X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fsound.el;h=2857165bbc7e69f9da736df86a01926bcc1a6ac0;hb=9f350a48ad0b17edb7afc3a448bb7f4b5456766f;hp=e63c0e91094caadf27d46ef8225218802e11b66f;hpb=976b002b16336930724ae22476014583ad022e7d;p=chise%2Fxemacs-chise.git

diff --git a/lisp/sound.el b/lisp/sound.el
index e63c0e9..2857165 100644
--- a/lisp/sound.el
+++ b/lisp/sound.el
@@ -163,12 +163,11 @@ nVolume (0 for default): ")
       ;; 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