Mercurial > emacs

comparison lisp/facemenu.el @ 8850:90773ae84a4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)