(defalias 'riece-match-string-no-properties 'match-string-no-properties)
(defun riece-propertize-modeline-string (string &rest properties)
- (add-text-properties 0 (length string) string properties)
+ (add-text-properties 0 (length string) properties string)
string)
(provide 'riece-emacs)