import xemacs-21.2.37

[chise/xemacs-chise.git.1] / lisp / sound.el

diff --git a/lisp/sound.el b/lisp/sound.el
index e63c0e9..2857165 100644 (file)
--- 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