# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1017985811 0
# Node ID dfe85fad78025bef592c357967088ff68ff136f3
# Parent  a399428859ff81df43cffc6dc0df82078437b884
(play-sound): New function (uses play-sound-internal).

diff -r a399428859ff -r dfe85fad7802 lisp/simple.el
--- a/lisp/simple.el	Fri Apr 05 05:49:20 2002 +0000
+++ b/lisp/simple.el	Fri Apr 05 05:50:11 2002 +0000
@@ -3355,6 +3355,27 @@
     (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