Mercurial > emacs

comparison lisp/subr.el @ 65114:fcb6fe79c532

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(play-sound): Rearrange to avoid warning.
author Richard M. Stallman <rms@gnu.org>
date Thu, 25 Aug 2005 10:57:38 +0000
parents aad2616355a4
children 6d566cf5ad51 2d92f5c9d6ae
comparison
equal deleted inserted replaced
65113:58d4ddcf0c9a 65114:fcb6fe79c532
2655 range 0..100 or a float in the range 0..1.0. If not specified, 2655 range 0..100 or a float in the range 0..1.0. If not specified,
2656 don't change the volume setting of the sound device. 2656 don't change the volume setting of the sound device.
2657 2657
2658 :device DEVICE - play sound on DEVICE. If not specified, 2658 :device DEVICE - play sound on DEVICE. If not specified,
2659 a system-dependent default device name is used." 2659 a system-dependent default device name is used."
2660 (unless (fboundp 'play-sound-internal) 2660 (if (fboundp 'play-sound-internal)
2661 (error "This Emacs binary lacks sound support")) 2661 (play-sound-internal sound)
2662 (play-sound-internal sound)) 2662 (error "This Emacs binary lacks sound support")))
2663 2663
2664 (defun define-mail-user-agent (symbol composefunc sendfunc 2664 (defun define-mail-user-agent (symbol composefunc sendfunc
2665 &optional abortfunc hookvar) 2665 &optional abortfunc hookvar)
2666 "Define a symbol to identify a mail-sending package for `mail-user-agent'. 2666 "Define a symbol to identify a mail-sending package for `mail-user-agent'.
2667 2667