* riece-debug.el (riece-funcall-ignore-errors): New function.

[riece] / lisp / riece-emacs.el

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 2997420..7477633 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -105,7 +105,7 @@
 
 (defun riece-normalize-modeline-string (string)
   (if (listp string)
-      (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