master 74909e1 06/11: Fix a check for whether Emacs can play sounds in eudc-bob

[Lars Ingebrigtsen]

branch: master
commit 74909e1ec2ebef3d0a6911bb0b873ce165456813
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix a check for whether Emacs can play sounds in eudc-bob
    
    * lisp/net/eudc-bob.el (eudc-bob-sound-menu)
    (eudc-bob-play-sound-at-point): Check for play-sound-internal
    instead of play-sound, because the latter is always defined.
---
 lisp/net/eudc-bob.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 20a5c5f..b248c88 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -71,7 +71,7 @@
   `("EUDC Sound Menu"
     ["---" nil nil]
     ["Play sound" eudc-bob-play-sound-at-point
-     (fboundp 'play-sound)]
+     (fboundp 'play-sound-internal)]
     ,@(cdr (cdr eudc-bob-generic-menu))))
 
 (defun eudc-jump-to-event (event)
@@ -197,7 +197,7 @@ display a button."
   (let (sound)
     (if (null (setq sound (eudc-bob-get-overlay-prop 'object-data)))
        (error "No sound data available here")
-      (unless (fboundp 'play-sound)
+      (unless (fboundp 'play-sound-internal)
        (error "Playing sounds not supported on this system"))
       (play-sound (list 'sound :data sound)))))