Mercurial > hg > xemacs-beta
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 () |