[elpa] externals/listen db94a21bfc 08/16: Change: (listen-queue-add-from-mpd) Allow new queue

[ELPA Syncer]

branch: externals/listen
commit db94a21bfcd9a20bc34b029f8160cfc491dc6bea
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (listen-queue-add-from-mpd) Allow new queue
---
 listen-queue.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/listen-queue.el b/listen-queue.el
index a7c2f409b5..f20cc66796 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -309,11 +309,13 @@ which see."
   queue)
 
 (declare-function listen-mpd-completing-read "listen-mpd")
-(cl-defun listen-queue-add-from-mpd (queue)
-  "Add tracks to QUEUE selected from MPD library."
-  (interactive (list (listen-queue-complete)))
+(cl-defun listen-queue-add-from-mpd (filenames queue)
+  "Add FILENAMES (selected from MPD library) to QUEUE."
+  (interactive
+   (list (listen-mpd-completing-read :select-tag-p t)
+         (listen-queue-complete :allow-new-p t)))
   (require 'listen-mpd)
-  (listen-queue-add-files (listen-mpd-completing-read :select-tag-p t) queue))
+  (listen-queue-add-files filenames queue))
 
 (defun listen-queue-buffer (queue)
   "Return QUEUE's buffer, if any."