From e32a7a22958a9cf7b73b8dd7c8a7f1fb33a50924 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 14 Dec 2004 02:12:56 +0000 Subject: [PATCH] * riece-emacs.el (riece-normalize-modeline-string): Don't concatenate elements in modeline string. --- lisp/ChangeLog | 5 +++++ lisp/riece-emacs.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44d2761..9379e0b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-14 Daiki Ueno + + * riece-emacs.el (riece-normalize-modeline-string): Don't + concatenate elements in modeline string. + 2004-12-13 Daiki Ueno * riece-irc.el (riece-irc-open-server): Send USER command with diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el index ed12853..2997420 100644 --- a/lisp/riece-emacs.el +++ b/lisp/riece-emacs.el @@ -105,7 +105,7 @@ (defun riece-normalize-modeline-string (string) (if (listp string) - (apply #'concat (riece-normalize-modeline-string-1 string)) + (riece-normalize-modeline-string-1 string) string)) (defun riece-put-text-property-nonsticky (start end prop value -- 1.7.10.4