Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.476 emacs/lisp/subr.el:1.477
*** emacs/lisp/subr.el:1.476 Thu Aug 25 01:37:47 2005
--- emacs/lisp/subr.el Thu Aug 25 10:57:38 2005
***************
*** 2657,2665 ****
: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))
(defun define-mail-user-agent (symbol composefunc sendfunc
&optional abortfunc hookvar)
--- 2657,2665 ----
:device DEVICE - play sound on DEVICE. If not specified,
a system-dependent default device name is used."
! (if (fboundp 'play-sound-internal)
! (play-sound-internal sound)
! (error "This Emacs binary lacks sound support")))
(defun define-mail-user-agent (symbol composefunc sendfunc
&optional abortfunc hookvar)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
