diff options
| -rw-r--r-- | lisp/facemenu.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index ba395e12930..3036e44358c 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -236,8 +236,8 @@ when they are created." (define-key map [dc] (cons "Display Colors" 'list-colors-display)) (define-key map [df] (cons "Display Faces" 'list-faces-display)) (define-key map [dp] (cons "List Properties" 'list-text-properties-at)) - (define-key map [ra] (cons "Remove All" 'facemenu-remove-all)) - (define-key map [rm] (cons "Remove Properties" 'facemenu-remove-props)) + (define-key map [ra] (cons "Remove Text Properties" 'facemenu-remove-all)) + (define-key map [rm] (cons "Remove Face Properties" 'facemenu-remove-face-props)) (define-key map [s1] (list "-----------------"))) ;;;###autoload (let ((map facemenu-menu)) @@ -405,13 +405,12 @@ This sets the `read-only' text property; it can be undone with (add-text-properties start end '(read-only t))) ;;;###autoload -(defun facemenu-remove-props (start end) - "Remove all text properties that facemenu added to region." +(defun facemenu-remove-face-props (start end) + "Remove `face' and `mouse-face' text properties." (interactive "*r") ; error if buffer is read-only despite the next line. (let ((inhibit-read-only t)) (remove-text-properties - start end '(face nil invisible nil intangible nil - read-only nil category nil)))) + start end '(face nil mouse-face nil)))) ;;;###autoload (defun facemenu-remove-all (start end) |