diff options
author | Karl Heuer <kwzh@gnu.org> | 1997-12-09 21:34:50 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1997-12-09 21:34:50 +0000 |
commit | a6e7e6d68d5aa49f5a018b7f82476e4b7f2b5e03 (patch) | |
tree | 8f8dcbbf5382b71b64842838fc76fa221360ff37 /lisp/facemenu.el | |
parent | fb00ac058bae4c15047a9a884eb6f1b103a6e102 (diff) | |
download | emacs-a6e7e6d68d5aa49f5a018b7f82476e4b7f2b5e03.tar.gz |
(facemenu-remove-face-props): Renamed from
facemenu-remove-props. Remove only face and mouse-face.
(facemenu-menu): Update menu item for facemenu-remove-face-props.
Diffstat (limited to 'lisp/facemenu.el')
-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) |