diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-12 18:37:18 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-12 18:37:18 +0200 |
| commit | 74909e1ec2ebef3d0a6911bb0b873ce165456813 (patch) | |
| tree | 5df810f17f7907254f8198745ccd9adb8e1d771b /lisp | |
| parent | 6ac22bc00cbdd8b42269af79c2dca4e89e001ff9 (diff) | |
| download | emacs-74909e1ec2ebef3d0a6911bb0b873ce165456813.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/eudc-bob.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 20a5c5f6075..b248c88d49d 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))))) |