X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-emacs.el;fp=lisp%2Friece-emacs.el;h=7393c2e0f5c4d1b62e3b3dfb622ac3213b613b05;hp=8fde3bcefeb88cd6a06efd199dc7dbbf36cea334;hb=7c1ad0a5131aea1e7cdc99072bc03a24f51908dd;hpb=84b4296bdf14bc134329b0fe8ed92f477533303c

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 8fde3bc..7393c2e 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -92,7 +92,7 @@
 (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)
+  (add-text-properties 0 (length string) properties string)
   string)
 
 (provide 'riece-emacs)