Mercurial > hg > xemacs-beta

comparison lisp/cl-compat.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 8b50bee3c88c
children 0af042a0c116
comparison
equal deleted inserted replaced
5343:34ab0e66aaca 5344:2a54dfbe434f
73 73
74 (defun keyword-argument-supplied-p (klist key) 74 (defun keyword-argument-supplied-p (klist key)
75 (assq key klist)) 75 (assq key klist))
76 76
77 (defun elt-satisfies-test-p (item elt klist) 77 (defun elt-satisfies-test-p (item elt klist)
78 (let ((test-not (cdr (assq ':test-not klist))) 78 (let ((test-not (cdr (assq :test-not klist)))
79 (test (cdr (assq ':test klist))) 79 (test (cdr (assq :test klist)))
80 (key (cdr (assq ':key klist)))) 80 (key (cdr (assq :key klist))))
81 (if key (setq elt (funcall key elt))) 81 (if key (setq elt (funcall key elt)))
82 (if test-not (not (funcall test-not item elt)) 82 (if test-not (not (funcall test-not item elt))
83 (funcall (or test 'eql) item elt)))) 83 (funcall (or test 'eql) item elt))))
84 84
85 ;; The rounding functions in C now have all the functionality this package 85 ;; The rounding functions in C now have all the functionality this package