Mercurial > emacs

changeset 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 58d4ddcf0c9a
children b66a53128ca5
files lisp/subr.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Thu Aug 25 10:56:51 2005 +0000
+++ b/lisp/subr.el	Thu Aug 25 10:57:38 2005 +0000
@@ -2657,9 +2657,9 @@
 
   :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))
+  (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)