/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.531 by rms, Sun Mar 31 16:27:56 2002 UTC revision 1.532 by pj, Fri Apr 5 05:50:11 2002 UTC
# Line 3355  specification for `play-sound'." Line 3355  specification for `play-sound'."
3355      (push 'sound sound)      (push 'sound sound)
3356      (play-sound sound)))      (play-sound sound)))
3357    
3358    (defun play-sound (sound)
3359      "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
3360    The following keywords are recognized:
3361    
3362      :file FILE - read sound data from FILE.  If FILE isn't an
3363    absolute file name, it is searched in `data-directory'.
3364    
3365      :data DATA - read sound data from string DATA.
3366    
3367    Exactly one of :file or :data must be present.
3368    
3369      :volume VOL - set volume to VOL.  VOL must an integer in the
3370    range 0..100 or a float in the range 0..1.0.  If not specified,
3371    don't change the volume setting of the sound device.
3372    
3373      :device DEVICE - play sound on DEVICE.  If not specified,
3374    a system-dependent default device name is used."
3375      (unless (fboundp 'play-sound-internal)
3376        (error "This Emacs binary lacks sound support."))
3377      (play-sound-internal sound))
3378    
3379  (define-key global-map "\e\e\e" 'keyboard-escape-quit)  (define-key global-map "\e\e\e" 'keyboard-escape-quit)
3380    
3381  (defcustom read-mail-command 'rmail  (defcustom read-mail-command 'rmail

Legend:
Removed from v.1.531  
changed lines
  Added in v.1.532

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26