diff lisp/sound.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents d44af0c54775
children e11d67e05968
line wrap: on
line diff
--- a/lisp/sound.el	Mon Aug 13 10:27:41 2007 +0200
+++ b/lisp/sound.el	Mon Aug 13 10:28:48 2007 +0200
@@ -19,7 +19,7 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the 
+;; along with XEmacs; see the file COPYING.  If not, write to the
 ;; Free Software Foundation, 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
@@ -31,7 +31,7 @@
 (defgroup sound nil
   "Configure XEmacs sounds and properties"
   :group 'environment)
- 
+
 (defcustom sound-default-alist
       '((default		:sound bass)
 	(undefined-key	:sound drum)
@@ -48,7 +48,7 @@
 	(no-completion	:sound whip)
 	(isearch-failed	:sound quiet)
 	(isearch-quit	:sound bass)
-	;; QUIT: sound generated by ^G and it's variants.
+	;; QUIT: sound generated by ^G and its variants.
 	(quit		:sound quiet :volume 75)
 	;; READY: time-consuming task has completed...  compile,
 	;; cvs-update, etc.
@@ -82,7 +82,7 @@
 				       (const :format "" :value :duration)
 				       (integer :tag "Duration"))))))
 
-(defcustom sound-load-alist 
+(defcustom sound-load-alist
   '((load-sound-file "drum-beep.au"	'drum)
     (load-sound-file "quiet-beep.au"	'quiet)
     (load-sound-file "bass-snap.au"	'bass 80)
@@ -91,10 +91,10 @@
     (load-sound-file "yeep.au"		'yeep)
     (load-sound-file "hype.au"		'hype 100)
     )
-  "A list of calls to load-sound-file to be processed by load-default-sounds. 
+  "A list of calls to load-sound-file to be processed by load-default-sounds.
 
   Reference load-sound-file for more information."
-  
+
   :group 'sound
   :type '(repeat  (sexp :tag "Sound")
 		  ))
@@ -107,7 +107,7 @@
   )
 
 (defcustom sound-ext ""
-  "Filename extensions to complete sound file name with. If more than one 
+  "Filename extensions to complete sound file name with. If more than one
    extension is used, they should be separated by \":\". "
   :group 'sound
   :type 'string)
@@ -174,7 +174,7 @@
 console of a machine with native sound support or running a NetAudio
 server and XEmacs has the necessary sound support compiled in."
   (interactive)
-  ;; #### - this should do NOTHING if the sounds can't be played.  
+  ;; #### - this should do NOTHING if the sounds can't be played.
   (message "Loading sounds...")
   (setq sound-alist nil)
   ;; this is where the calls to load-sound-file get done