Mercurial > emacs
comparison lisp/facemenu.el @ 8747:d7115dce85f9
(facemenu-update): Don't use quoted constant lists
in define-key. Reverse order of menu definitions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Sep 1994 02:15:29 +0000 |
| parents | 03445a867bed |
| children | 90773ae84a4f |
comparison
equal
deleted
inserted
replaced
| 8746:f7599d76594f | 8747:d7115dce85f9 |
|---|---|
| 129 (setq facemenu-keymap (make-sparse-keymap "Set face")))) | 129 (setq facemenu-keymap (make-sparse-keymap "Set face")))) |
| 130 (if facemenu-key | 130 (if facemenu-key |
| 131 (define-key global-map facemenu-key facemenu-keymap)) | 131 (define-key global-map facemenu-key facemenu-keymap)) |
| 132 | 132 |
| 133 ;; Define basic keys | 133 ;; Define basic keys |
| 134 (define-key facemenu-menu [update] '("Update Menu" . facemenu-update)) | 134 ;; We construct this list structure explicitly because a quoted constant |
| 135 (define-key facemenu-menu [display] '("Display" . list-faces-display)) | 135 ;; would be pure. |
| 136 (define-key facemenu-menu [sep1] '("-------------")) | 136 (define-key facemenu-menu [other] (cons "Other..." 'facemenu-set-face)) |
| 137 (define-key facemenu-menu [remove] '("Remove Properties" . | 137 (define-key facemenu-menu [sep2] (list "---Special---")) |
| 138 facemenu-remove-all)) | 138 (define-key facemenu-menu [invisible] (cons "Invisible" |
| 139 (define-key facemenu-menu [read-only] '("Read-Only". facemenu-set-read-only)) | 139 'facemenu-set-invisible)) |
| 140 (define-key facemenu-menu [invisible] '("Invisible" | 140 (define-key facemenu-menu [read-only] (cons "Read-Only" |
| 141 . facemenu-set-invisible)) | 141 'facemenu-set-read-only)) |
| 142 (define-key facemenu-menu [sep2] '("---Special---")) | 142 (define-key facemenu-menu [remove] (cons "Remove Properties" |
| 143 (define-key facemenu-menu [other] '("Other..." . facemenu-set-face)) | 143 'facemenu-remove-all)) |
| 144 (define-key facemenu-menu [sep1] (list "-------------")) | |
| 145 (define-key facemenu-menu [display] (cons "Display" 'list-faces-display)) | |
| 146 (define-key facemenu-menu [update] (cons "Update Menu" 'facemenu-update)) | |
| 144 | 147 |
| 145 ;; Define commands for face-changing | 148 ;; Define commands for face-changing |
| 146 (facemenu-iterate | 149 (facemenu-iterate |
| 147 (function | 150 (function |
| 148 (lambda (f) | 151 (lambda (f) |