Fixed typo.

[riece] / lisp / riece-emacs.el

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index ea6be0a..1cfddda 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,17 @@
 (defalias 'riece-match-string-no-properties 'match-string-no-properties)
 
 (defun riece-propertize-modeline-string (string &rest properties)
-  (add-text-properties string properties)
+  (add-text-properties 0 (length string) properties string)
   string)
 
+(defun riece-put-text-property-nonsticky (start end prop value
+                                                    &optional object)
+  (add-text-properties start end
+                      (list prop value 'front-sticky nil 'rear-nonsticky t)
+                      object))
+
+(defalias 'riece-facep 'facep)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here