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

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