[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Fri, 05 Apr 2002 00:50:11 -0500 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.531 emacs/lisp/simple.el:1.532
*** emacs/lisp/simple.el:1.531 Sun Mar 31 11:27:56 2002
--- emacs/lisp/simple.el Fri Apr 5 00:50:11 2002
***************
*** 3355,3360 ****
--- 3355,3381 ----
(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
- [Emacs-diffs] Changes to emacs/lisp/simple.el,
Pavel Janík <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Pavel Janík, 2002/04/07
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Stefan Monnier, 2002/04/11
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F. Storm, 2002/04/14
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F. Storm, 2002/04/18
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M. Stallman, 2002/04/18
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M. Stallman, 2002/04/22
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Richard M. Stallman, 2002/04/27
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F. Storm, 2002/04/29