From 41e7728940ada2a9370cd7b3cd23006b434e1d22 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Sep 1994 02:15:29 +0000 Subject: (facemenu-update): Don't use quoted constant lists in define-key. Reverse order of menu definitions. --- lisp/facemenu.el | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'lisp') diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 1a2d670fac2..f01b493f6d7 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -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 -- cgit v1.2.1