XEmacs 21.2.14.

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

diff --git a/lisp/sound.el b/lisp/sound.el
index af52042..e63c0e9 100644 (file)
--- a/lisp/sound.el
+++ b/lisp/sound.el
@@ -105,6 +105,7 @@
   :type 'directory
   )
 
   :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:")
 (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
     (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
     (unless file
       (error "Couldn't load sound file %s" filename))
     (unwind-protect