martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(facemenu-update): Don't use quoted constant lists

Browse Source 
in define-key.  Reverse order of menu definitions.
This commit is contained in:
Richard M. Stallman
1994-09-15 02:15:29 +00:00
parent 62010a73d8
commit 41e7728940
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/facemenu.el
View File

@@ -131,16 +131,19 @@ changing it.")
(define-key global-map facemenu-key facemenu-keymap))
;; Define basic keys
(define-key facemenu-menu [update] '("Update Menu" . facemenu-update))
(define-key facemenu-menu [display] '("Display" . list-faces-display))
(define-key facemenu-menu [sep1] '("-------------"))
(define-key facemenu-menu [remove] '("Remove Properties" .
facemenu-remove-all))
(define-key facemenu-menu [read-only] '("Read-Only". facemenu-set-read-only))
(define-key facemenu-menu [invisible] '("Invisible"
. facemenu-set-invisible))
(define-key facemenu-menu [sep2] '("---Special---"))
(define-key facemenu-menu [other] '("Other..." . facemenu-set-face))
;; We construct this list structure explicitly because a quoted constant
;; would be pure.
(define-key facemenu-menu [other] (cons "Other..." 'facemenu-set-face))
(define-key facemenu-menu [sep2] (list "---Special---"))
(define-key facemenu-menu [invisible] (cons "Invisible"
'facemenu-set-invisible))
(define-key facemenu-menu [read-only] (cons "Read-Only"
'facemenu-set-read-only))
(define-key facemenu-menu [remove] (cons "Remove Properties"
'facemenu-remove-all))
(define-key facemenu-menu [sep1] (list "-------------"))
(define-key facemenu-menu [display] (cons "Display" 'list-faces-display))
(define-key facemenu-menu [update] (cons "Update Menu" 'facemenu-update))
;; Define commands for face-changing
(facemenu-iterate