Mercurial > hg > xemacs-beta

diff lisp/sound.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents bbff43aa5eb7
children
line wrap: on
line diff
--- a/lisp/sound.el	Mon Aug 13 11:12:06 2007 +0200
+++ b/lisp/sound.el	Mon Aug 13 11:13:30 2007 +0200
@@ -105,6 +105,7 @@
   :type 'directory
   )
 
+;; #### This should really be a list.  --hniksic
 (defcustom sound-extension-list (if (or (eq system-type 'cygwin32)
 					(eq system-type 'windows-nt))
 				    ".wav:" ".au:")
@@ -144,7 +145,8 @@
     (error "volume not an integer or nil"))
   (let (buf
 	data
-	(file (locate-file filename  default-sound-directory-list  sound-extension-list)))
+	(file (locate-file filename default-sound-directory-list
+			   sound-extension-list)))
     (unless file
       (error "Couldn't load sound file %s" filename))
     (unwind-protect