(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