Mercurial > emacs
comparison lisp/facemenu.el @ 8850:90773ae84a4f
(facemenu-update): Reverse the menu order again.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 17 Sep 1994 03:32:48 +0000 |
parents | d7115dce85f9 |
children | 231a4d114799 |
comparison
equal
deleted
inserted
replaced
8849:7e705163bde7 | 8850:90773ae84a4f |
---|---|
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 ;; We construct this list structure explicitly because a quoted constant | 134 ;; We construct this list structure explicitly because a quoted constant |
135 ;; would be pure. | 135 ;; would be pure. |
136 (define-key facemenu-menu [other] (cons "Other..." 'facemenu-set-face)) | 136 (define-key facemenu-menu [update] (cons "Update Menu" 'facemenu-update)) |
137 (define-key facemenu-menu [sep2] (list "---Special---")) | 137 (define-key facemenu-menu [display] (cons "Display" 'list-faces-display)) |
138 (define-key facemenu-menu [sep1] (list "-------------")) | |
139 (define-key facemenu-menu [remove] (cons "Remove Properties" | |
140 'facemenu-remove-all)) | |
141 (define-key facemenu-menu [read-only] (cons "Read-Only" | |
142 'facemenu-set-read-only)) | |
138 (define-key facemenu-menu [invisible] (cons "Invisible" | 143 (define-key facemenu-menu [invisible] (cons "Invisible" |
139 'facemenu-set-invisible)) | 144 'facemenu-set-invisible)) |
140 (define-key facemenu-menu [read-only] (cons "Read-Only" | 145 (define-key facemenu-menu [sep2] (list "---Special---")) |
141 'facemenu-set-read-only)) | 146 (define-key facemenu-menu [other] (cons "Other..." 'facemenu-set-face)) |
142 (define-key facemenu-menu [remove] (cons "Remove Properties" | |
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)) | |
147 | 147 |
148 ;; Define commands for face-changing | 148 ;; Define commands for face-changing |
149 (facemenu-iterate | 149 (facemenu-iterate |
150 (function | 150 (function |
151 (lambda (f) | 151 (lambda (f) |