Mercurial > emacs

changeset 44422:5f7f8b191a8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(play-sound): Move here from simple.el.
author Pavel Janík <Pavel@Janik.cz>
date Sun, 07 Apr 2002 10:09:39 +0000
parents 84b09c068bb9
children 4bcede390f6f
files lisp/subr.el
diffstat 1 files changed, 21 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sun Apr 07 06:59:17 2002 +0000
+++ b/lisp/subr.el	Sun Apr 07 10:09:39 2002 +0000
@@ -1967,4 +1967,25 @@
     (overlay-put ol2 'evaporate t)
     (overlay-put ol2 'text-clones dups)))
 
+(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))
+
 ;;; subr.el ends here