X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-emacs.el;h=74776332e44406ffa730b095212eff73273094ff;hb=2191bfae45338f2ec08ea9855b7ee756cee01690;hp=ed12853bab1cc21a92341358fd2c87ca107ecd0a;hpb=de5787f28584950af277bd5db63925be70a34665;p=riece

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index ed12853..7477633 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))
+      (list (apply #'concat (riece-normalize-modeline-string-1 string)))
     string))
 
 (defun riece-put-text-property-nonsticky (start end prop value