mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* facemenu.el: Disable the remove-* commands if the mark isn't active.

Browse Source 
Fixes: debbugs:9162
This commit is contained in:
Lars Magne Ingebrigtsen 2011-09-11 03:55:09 +02:00
parent 6612f0bffd
commit b322f63a7c
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-09-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* facemenu.el: Disable the remove-* commands if the mark isn't
active (bug#9162).
2011-09-10 Chong Yidong <cyd@stupidchicken.com>
* buff-menu.el (Buffer-menu-switch-other-window): Use second arg

10
lisp/facemenu.el
View File

@ -241,10 +241,12 @@ it will remove any faces not explicitly in the list."
(define-key map [df] (cons (purecopy "Display Faces") 'list-faces-display))
(define-key map [dp] (cons (purecopy "Describe Properties")
'describe-text-properties))
(define-key map [ra] (cons (purecopy "Remove Text Properties")
'facemenu-remove-all))
(define-key map [rm] (cons (purecopy "Remove Face Properties")
'facemenu-remove-face-props))
(define-key map [ra] (list 'menu-item (purecopy "Remove Text Properties")
'facemenu-remove-all
:enable 'mark-active))
(define-key map [rm] (list 'menu-item (purecopy "Remove Face Properties")
'facemenu-remove-face-props
:enable 'mark-active))
(define-key map [s1] (list (purecopy "--"))))
(let ((map facemenu-menu))
(define-key map [in] (cons (purecopy "Indentation")