* riece-unread.el: Use riece-facep to check existence of

[riece] / lisp / riece-emacs.el

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 8fde3bc..5a47337 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -79,8 +79,8 @@
 (defun riece-kill-all-overlays ()
   "Delete all overlays in the current buffer."
   (let* ((overlay-lists (overlay-lists))
-         (buffer-read-only nil)
-         (overlays (delq nil (nconc (car overlay-lists) (cdr overlay-lists)))))
+        (buffer-read-only nil)
+        (overlays (delq nil (nconc (car overlay-lists) (cdr overlay-lists)))))
     (while overlays
       (delete-overlay (car overlays))
       (setq overlays (cdr overlays)))))
@@ -92,9 +92,11 @@
 (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)
 
+(defalias 'riece-facep 'facep)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here