# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1124967458 0
# Node ID fcb6fe79c532aba82b5825560e693162c4de5229
# Parent  58d4ddcf0c9ab1383f13a3913b2273fc8fd0de8e
(play-sound): Rearrange to avoid warning.

diff -r 58d4ddcf0c9a -r fcb6fe79c532 lisp/subr.el
--- 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)