procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(play-sound): Move to subr.el.

Browse source
This commit is contained in:
Pavel Janík 2002-04-07 10:11:24 +00:00
parent 324cd947a2
commit cf6f437fc9
2 changed files with 6 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2002-04-07 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* subr.el (play-sound): Move here from simple.el.
* simple.el (play-sound): Move to subr.el.
2002-04-06 Richard M. Stallman <rms@gnu.org>
* files.el (display-time-string-forms): Mark as risky.

21
lisp/simple.el
View file

@ -3355,27 +3355,6 @@ specification for `play-sound'."
(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