(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)))))
(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)
+(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