Mercurial > hg > xemacs-beta

diff lisp/prim/sound.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents 6608ceec7cf8
children 41ff10fd062f
line wrap: on
line diff
--- a/lisp/prim/sound.el	Mon Aug 13 09:31:48 2007 +0200
+++ b/lisp/prim/sound.el	Mon Aug 13 09:32:43 2007 +0200
@@ -130,8 +130,8 @@
 nVolume (0 for default): ")
   (unless (symbolp sound-name)
     (error "sound-name not a symbol"))
-  (unless (null volume)
-    (integerp volume) (error "volume not an integer or nil"))
+  (unless (or (null volume) (integerp volume))
+    (error "volume not an integer or nil"))
   (let (buf
 	data
 	(file (locate-file filename  default-sound-directory-list  sound-ext)))