comparison lisp/sound.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 e38acbeb1cae
children 0af042a0c116
comparison
equal deleted inserted replaced
5343:34ab0e66aaca 5344:2a54dfbe434f
179 ;; some conses in sound-alist might have been dumped with emacs. 179 ;; some conses in sound-alist might have been dumped with emacs.
180 (if old (setq sound-alist (delq old (copy-sequence sound-alist))))) 180 (if old (setq sound-alist (delq old (copy-sequence sound-alist)))))
181 (setq sound-alist (cons 181 (setq sound-alist (cons
182 (nconc (list sound-name) 182 (nconc (list sound-name)
183 (if (and volume (not (eq 0 volume))) 183 (if (and volume (not (eq 0 volume)))
184 (list ':volume volume)) 184 (list :volume volume))
185 (list ':sound data)) 185 (list :sound data))
186 sound-alist))) 186 sound-alist)))
187 sound-name) 187 sound-name)
188 188
189 ;;;###autoload 189 ;;;###autoload
190 (defun load-default-sounds () 190 (defun load-default-sounds ()