Mercurial > hg > xemacs-beta

diff lisp/sound.el @ 5470:0af042a0c116

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Mon, 07 Feb 2011 21:22:17 +0100
parents 308d34e9f07d 2a54dfbe434f
children cc6f0266bc36
line wrap: on
line diff
--- a/lisp/sound.el	Sat Jan 22 00:59:20 2011 +0100
+++ b/lisp/sound.el	Mon Feb 07 21:22:17 2011 +0100
@@ -179,8 +179,8 @@
     (setq sound-alist (cons
 		       (nconc (list sound-name)
 			      (if (and volume (not (eq 0 volume)))
-				  (list ':volume volume))
-			      (list ':sound data))
+				  (list :volume volume))
+			      (list :sound data))
 		       sound-alist)))
   sound-name)