X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-xemacs.el;h=119cabe6502e189f6682353f4e3e1945ea57adec;hb=a99caf447dd0b2d8ccc329fb64eb10a8613152f4;hp=b1d73495daba040584fceb9a14b5b5d1eb3b5fd7;hpb=93d36d14915e0b8c678e0ab7f4708851a38bd304;p=elisp%2Friece.git

diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index b1d7349..119cabe 100644
--- 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-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