projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge signal-slot branch.
[riece]
/
lisp
/
riece-xemacs.el
diff --git
a/lisp/riece-xemacs.el
b/lisp/riece-xemacs.el
index
b1d7349
..
119cabe
100644
(file)
--- a/
lisp/riece-xemacs.el
+++ b/
lisp/riece-xemacs.el
@@
-117,6
+117,11
@@
(defun riece-match-string-no-properties (number &optional string)
(format "%s" (match-string number string)))
(defun riece-match-string-no-properties (number &optional string)
(format "%s" (match-string number string)))
+(defun riece-propertize-modeline-string (string &rest properties)
+ (let ((extent (make-extent nil nil)))
+ (set-extent-properties extent properties)
+ (cons extent string)))
+
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here