Mercurial > hg > xemacs-beta

comparison lisp/sound.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 3ecd8885ac67
children c33ae14dd6d0
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
161 (and buf (kill-buffer buf))) 161 (and buf (kill-buffer buf)))
162 (let ((old (assq sound-name sound-alist))) 162 (let ((old (assq sound-name sound-alist)))
163 ;; some conses in sound-alist might have been dumped with emacs. 163 ;; some conses in sound-alist might have been dumped with emacs.
164 (if old (setq sound-alist (delq old (copy-sequence sound-alist))))) 164 (if old (setq sound-alist (delq old (copy-sequence sound-alist)))))
165 (setq sound-alist (cons 165 (setq sound-alist (cons
166 (purecopy 166 (nconc (list sound-name)
167 (nconc (list sound-name) 167 (if (and volume (not (eq 0 volume)))
168 (if (and volume (not (eq 0 volume))) 168 (list ':volume volume))
169 (list ':volume volume)) 169 (list ':sound data))
170 (list ':sound data))) 170 sound-alist)))
171 sound-alist)))
172 sound-name) 171 sound-name)
173 172
174 ;;;###autoload 173 ;;;###autoload
175 (defun load-default-sounds () 174 (defun load-default-sounds ()
176 "Load and install some sound files as beep-types, using 175 "Load and install some sound files as beep-types, using