Mercurial > hg > xemacs-beta
diff lisp/gtk-font-menu.el @ 5344:2a54dfbe434f
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 | ed74d2ca7082 0af042a0c116 |
line wrap: on
line diff
--- a/lisp/gtk-font-menu.el Sat Jan 22 17:21:22 2011 +0000 +++ b/lisp/gtk-font-menu.el Sat Jan 22 23:29:25 2011 +0000 @@ -168,19 +168,19 @@ (mapcar (lambda (x) (vector x (list 'font-menu-set-font x nil nil) - ':style 'radio ':active nil ':selected nil)) + :style 'radio :active nil :selected nil)) families) (mapcar (lambda (x) (vector (if (/= 0 (% x 10)) (number-to-string (/ x 10.0)) (number-to-string (/ x 10))) (list 'font-menu-set-font nil nil x) - ':style 'radio ':active nil ':selected nil)) + :style 'radio :active nil :selected nil)) sizes) (mapcar (lambda (x) (vector x (list 'font-menu-set-font nil x nil) - ':style 'radio ':active nil ':selected nil)) + :style 'radio :active nil :selected nil)) weights))) (cdr dev-cache)))