3355 |
(push 'sound sound) |
(push 'sound sound) |
3356 |
(play-sound sound))) |
(play-sound sound))) |
3357 |
|
|
3358 |
|
(defun play-sound (sound) |
3359 |
|
"SOUND is a list of the form `(sound KEYWORD VALUE...)'. |
3360 |
|
The following keywords are recognized: |
3361 |
|
|
3362 |
|
:file FILE - read sound data from FILE. If FILE isn't an |
3363 |
|
absolute file name, it is searched in `data-directory'. |
3364 |
|
|
3365 |
|
:data DATA - read sound data from string DATA. |
3366 |
|
|
3367 |
|
Exactly one of :file or :data must be present. |
3368 |
|
|
3369 |
|
:volume VOL - set volume to VOL. VOL must an integer in the |
3370 |
|
range 0..100 or a float in the range 0..1.0. If not specified, |
3371 |
|
don't change the volume setting of the sound device. |
3372 |
|
|
3373 |
|
:device DEVICE - play sound on DEVICE. If not specified, |
3374 |
|
a system-dependent default device name is used." |
3375 |
|
(unless (fboundp 'play-sound-internal) |
3376 |
|
(error "This Emacs binary lacks sound support.")) |
3377 |
|
(play-sound-internal sound)) |
3378 |
|
|
3379 |
(define-key global-map "\e\e\e" 'keyboard-escape-quit) |
(define-key global-map "\e\e\e" 'keyboard-escape-quit) |
3380 |
|
|
3381 |
(defcustom read-mail-command 'rmail |
(defcustom read-mail-command 'rmail |