Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/sound.el	Mon Aug 13 11:35:05 2007 +0200
+++ b/lisp/sound.el	Mon Aug 13 11:36:19 2007 +0200
@@ -163,12 +163,11 @@
       ;; some conses in sound-alist might have been dumped with emacs.
       (if old (setq sound-alist (delq old (copy-sequence sound-alist)))))
     (setq sound-alist (cons
-			(purecopy
-			 (nconc (list sound-name)
-				(if (and volume (not (eq 0 volume)))
-				    (list ':volume volume))
-			       (list ':sound data)))
-			sound-alist)))
+		       (nconc (list sound-name)
+			      (if (and volume (not (eq 0 volume)))
+				  (list ':volume volume))
+			      (list ':sound data))
+		       sound-alist)))
   sound-name)
 
 ;;;###autoload