[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 74909e1 06/11: Fix a check for whether Emacs can play sounds in e
From: |
Lars Ingebrigtsen |
Subject: |
master 74909e1 06/11: Fix a check for whether Emacs can play sounds in eudc-bob |
Date: |
Wed, 12 Aug 2020 12:59:54 -0400 (EDT) |
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)))))
- master updated (6cddb73 -> 56a44a8), Lars Ingebrigtsen, 2020/08/12
- master 51ea541 01/11: Remove some compat code from ediff-init.el, Lars Ingebrigtsen, 2020/08/12
- master af6ea55 07/11: Remove some compat code from bubbles.el, Lars Ingebrigtsen, 2020/08/12
- master 74909e1 06/11: Fix a check for whether Emacs can play sounds in eudc-bob,
Lars Ingebrigtsen <=
- master a459e52 02/11: Remove some compat code from idlwave.el, Lars Ingebrigtsen, 2020/08/12
- master 77907b2 03/11: Remove some compat code from prolog.el, Lars Ingebrigtsen, 2020/08/12
- master e97d3e1 08/11: Remove some compat code from epa.el, Lars Ingebrigtsen, 2020/08/12
- master 9a929de 10/11: Remove some compat code from viper*.el, Lars Ingebrigtsen, 2020/08/12
- master 56a44a8 11/11: Remove some compat code from viper-cmd.el, Lars Ingebrigtsen, 2020/08/12
- master 6ac22bc 05/11: Remove some compat code from allout.el, Lars Ingebrigtsen, 2020/08/12
- master 67bd8a4 04/11: Remove some compat code from allout*.el, Lars Ingebrigtsen, 2020/08/12
- master 1dfb170 09/11: Mark some unused defaliases in semantic/fw.el obsolete, Lars Ingebrigtsen, 2020/08/12