mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(facemenu-remove-face-props): Renamed from

Browse source 
facemenu-remove-props.  Remove only face and mouse-face.
(facemenu-menu): Update menu item for facemenu-remove-face-props.
This commit is contained in:
Karl Heuer 1997-12-09 21:34:50 +00:00
parent dee169ce38
commit a32d7856d3
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/facemenu.el
View file

@ -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)