* riece-emacs.el (riece-propertize-modeline-string): Fix arguments

[elisp/riece.git] / lisp / riece-emacs.el

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 00759b7..8fde3bc 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -24,9 +24,6 @@
 
 ;;; Code:
 
-(defalias 'riece-set-case-syntax-pair
-  'set-case-syntax-pair)
-
 ;;; stolen (and renamed) from gnus-ems.el.
 ;;; In GNU Emacs, user can intercept whole mouse tracking events by
 ;;; assigning [mouse-X].  In XEmacs, however, which causes different
@@ -92,6 +89,12 @@
 (defalias 'riece-run-with-idle-timer 'run-with-idle-timer)
 (defalias 'riece-cancel-timer 'cancel-timer)
 
+(defalias 'riece-match-string-no-properties 'match-string-no-properties)
+
+(defun riece-propertize-modeline-string (string &rest properties)
+  (add-text-properties 0 (length string) string properties)
+  string)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here