Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cf6f437f
Commit
cf6f437f
authored
Apr 07, 2002
by
Pavel Janík
Browse files
(play-sound): Move to subr.el.
parent
324cd947
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
21 deletions
+6
-21
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/simple.el
lisp/simple.el
+0
-21
No files found.
lisp/ChangeLog
View file @
cf6f437f
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.
...
...
lisp/simple.el
View file @
cf6f437f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment