From b2f5108b50bff798d556bbfdfe397c41422ce943 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 9 Mar 2004 01:28:09 +0000 Subject: [PATCH] * riece-emacs.el (riece-propertize-modeline-string): Fix arguments for add-text-properties. --- lisp/ChangeLog | 5 +++++ lisp/riece-emacs.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * riece-emacs.el (riece-propertize-modeline-string): Fix arguments + for add-text-properties. + 2004-03-08 Daiki Ueno * 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) -- 1.7.10.4