From: ueno <ueno>
Date: Tue, 9 Mar 2004 01:28:09 +0000 (+0000)
Subject: * riece-emacs.el (riece-propertize-modeline-string): Fix arguments
X-Git-Tag: riece-0_2_1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2f5108b50bff798d556bbfdfe397c41422ce943;p=elisp%2Friece.git

* riece-emacs.el (riece-propertize-modeline-string): Fix arguments
for add-text-properties.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c64af92..204cb6e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-09  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-emacs.el (riece-propertize-modeline-string): Fix arguments
+	for add-text-properties.
+
 2004-03-08  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-xface.el (riece-xface-insinuate): Use
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index ea6be0a..8fde3bc 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 string properties)
+  (add-text-properties 0 (length string) string properties)
   string)
 
 (provide 'riece-emacs)