From: Pavel Janík <Pavel@Janik.cz>
Date: Sun, 7 Apr 2002 10:11:24 +0000 (+0000)
Subject: (play-sound): Move to subr.el.
X-Git-Tag: ttn-vms-21-2-B4~15758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf6f437fc9db506fa68bc49f301b69ce6035d894;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 26e0cd8869c..e32dd2a4c8a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/simple.el b/lisp/simple.el
index da2e3520074..eefac3fce0f 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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