Mercurial > hg > xemacs-beta
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