diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-04-05 05:49:20 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-04-05 05:49:20 +0000 |
| commit | 14e415e7eea3e8c6b39f1126f6dce2ee8f91b28f (patch) | |
| tree | 822c11fa9648cd731a3e8641ba1283c539b2ceab /src/sound.c | |
| parent | ec4ba9e3bcde66ce8583c8cf531371127fa80a37 (diff) | |
| download | emacs-14e415e7eea3e8c6b39f1126f6dce2ee8f91b28f.tar.gz emacs-14e415e7eea3e8c6b39f1126f6dce2ee8f91b28f.tar.bz2 emacs-14e415e7eea3e8c6b39f1126f6dce2ee8f91b28f.zip | |
(Fplay_sound_internal): Renamed from Fplay_sound.
Doc fix to reflect it.
Diffstat (limited to 'src/sound.c')
| -rw-r--r-- | src/sound.c | 24 |
1 files changed, 5 insertions, 19 deletions
diff --git a/src/sound.c b/src/sound.c index eaa70204daf..aa2e27dbfcc 100644 --- a/src/sound.c +++ b/src/sound.c @@ -220,7 +220,7 @@ Lisp_Object QCvolume, QCdevice; Lisp_Object Qsound; Lisp_Object Qplay_sound_functions; -/* These are set during `play-sound' so that sound_cleanup has +/* These are set during `play-sound-internal' so that sound_cleanup has access to them. */ struct sound_device *current_sound_device; @@ -371,7 +371,7 @@ find_sound_type (s) } -/* Function installed by play-sound with record_unwind_protect. */ +/* Function installed by play-sound-internal with record_unwind_protect. */ static Lisp_Object sound_cleanup (arg) @@ -389,24 +389,10 @@ sound_cleanup (arg) } -DEFUN ("play-sound", Fplay_sound, Splay_sound, 1, 1, 0, +DEFUN ("play-sound-internal", Fplay_sound_internal, Splay_sound_internal, 1, 1, 0, doc: /* 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. */) +Internal use only, use `play-sound' instead. */) (sound) Lisp_Object sound; { @@ -954,7 +940,7 @@ syms_of_sound () Qplay_sound_functions = intern ("play-sound-functions"); staticpro (&Qplay_sound_functions); - defsubr (&Splay_sound); + defsubr (&Splay_sound_internal); } |