Mercurial > hg > xemacs-beta

comparison lisp/msw-font-menu.el @ 5344:2a54dfbe434f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't quote keywords, they've been self-quoting for well over a decade. 2011-01-22 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-setq, byte-compile-set): Remove kludge allowing keywords' values to be set, all the code that does that is gone. * cl-compat.el (elt-satisfies-test-p): * faces.el (set-face-parent): * faces.el (face-doc-string): * gtk-font-menu.el: * gtk-font-menu.el (gtk-reset-device-font-menus): * msw-font-menu.el: * msw-font-menu.el (mswindows-reset-device-font-menus): * package-get.el (package-get-installedp): * select.el (select-convert-from-image-data): * sound.el: * sound.el (load-sound-file): * x-font-menu.el (x-reset-device-font-menus-core): Don't quote keywords, they're self-quoting, and the win from backward-compatibility is sufficiently small now that the style problem overrides it.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 22 Jan 2011 23:29:25 +0000
parents b4f4e0cc90f1
children 0af042a0c116
comparison
equal deleted inserted replaced
5343:34ab0e66aaca 5344:2a54dfbe434f
138 (vector 138 (vector
139 cache 139 cache
140 (mapcar (lambda (x) 140 (mapcar (lambda (x)
141 (vector x 141 (vector x
142 (list 'font-menu-set-font x nil nil) 142 (list 'font-menu-set-font x nil nil)
143 ':style 'radio ':active nil ':selected nil)) 143 :style 'radio :active nil :selected nil))
144 families) 144 families)
145 (mapcar (lambda (x) 145 (mapcar (lambda (x)
146 (vector (int-to-string x) 146 (vector (int-to-string x)
147 (list 'font-menu-set-font nil nil x) 147 (list 'font-menu-set-font nil nil x)
148 ':style 'radio ':active nil ':selected nil)) 148 :style 'radio :active nil :selected nil))
149 sizes) 149 sizes)
150 (mapcar (lambda (x) 150 (mapcar (lambda (x)
151 (vector x 151 (vector x
152 (list 'font-menu-set-font nil x nil) 152 (list 'font-menu-set-font nil x nil)
153 ':style 'radio ':active nil ':selected nil)) 153 :style 'radio :active nil :selected nil))
154 weights))) 154 weights)))
155 (cdr dev-cache))) 155 (cdr dev-cache)))
156 156
157 ;; Extract font information from a face. We examine both the 157 ;; Extract font information from a face. We examine both the
158 ;; user-specified font name and the canonical (`true') font name. 158 ;; user-specified font name and the canonical (`true') font name.