[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M . Stallman]

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)