Mercurial > emacs
changeset 44400:dfe85fad7802
(play-sound): New function (uses play-sound-internal).
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Fri, 05 Apr 2002 05:50:11 +0000 |
| parents | a399428859ff |
| children | 4396c5082046 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Fri Apr 05 05:49:20 2002 +0000 +++ b/lisp/simple.el Fri Apr 05 05:50:11 2002 +0000 @@ -3355,6 +3355,27 @@ (push 'sound sound) (play-sound sound))) +(defun play-sound (sound) + "SOUND is a list of the form `(sound KEYWORD VALUE...)'. +The following keywords are recognized: + + :file FILE - read sound data from FILE. If FILE isn't an +absolute file name, it is searched in `data-directory'. + + :data DATA - read sound data from string DATA. + +Exactly one of :file or :data must be present. + + :volume VOL - set volume to VOL. VOL must an integer in the +range 0..100 or a float in the range 0..1.0. If not specified, +don't change the volume setting of the sound device. + + :device DEVICE - play sound on DEVICE. If not specified, +a system-dependent default device name is used." + (unless (fboundp 'play-sound-internal) + (error "This Emacs binary lacks sound support.")) + (play-sound-internal sound)) + (define-key global-map "\e\e\e" 'keyboard-escape-quit) (defcustom read-mail-command 'rmail