branch: elpa/elfeed
commit 8c192d0926f6e056a18d69b73d744072cf86b679
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Avoid with-no-warnings related to emms
---
elfeed-show.el | 18 ++++++++----------
1 file changed, 8 insertions(+), 10 deletions(-)
diff --git a/elfeed-show.el b/elfeed-show.el
index 49f5896148..717a75226e 100644
--- a/elfeed-show.el
+++ b/elfeed-show.el
@@ -513,22 +513,20 @@ Prompts for ENCLOSURE-INDEX when called interactively."
(interactive (list (elfeed--enclosure-maybe-prompt-index elfeed-show-entry))
elfeed-show-mode)
(elfeed-show-add-enclosure-to-playlist enclosure-index)
- (with-no-warnings
- (with-current-emms-playlist
- (save-excursion
- (emms-playlist-last)
- (emms-playlist-mode-play-current-track)))))
+ (eval '(with-current-emms-playlist
+ (save-excursion
+ (emms-playlist-last)
+ (emms-playlist-mode-play-current-track)))))
(defun elfeed-show-add-enclosure-to-playlist (enclosure-index)
"Add enclosure number ENCLOSURE-INDEX to current EMMS playlist.
Prompts for ENCLOSURE-INDEX when called interactively."
-
(interactive (list (elfeed--enclosure-maybe-prompt-index elfeed-show-entry))
elfeed-show-mode)
- (require 'emms) ;; optional
- (with-no-warnings ;; due to lazy (require )
- (emms-add-url (car (elt (elfeed-entry-enclosures elfeed-show-entry)
- (- enclosure-index 1))))))
+ (require 'emms)
+ (declare-function emms-add-url "emms")
+ (emms-add-url (car (elt (elfeed-entry-enclosures elfeed-show-entry)
+ (- enclosure-index 1)))))
(defun elfeed-show-next-link ()
"Skip to the next link, exclusive of the Link header."
