[elpa] externals/listen 6ade160cf6 037/103: Tidy

[ELPA Syncer]

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

    Tidy
---
 listen-queue.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/listen-queue.el b/listen-queue.el
index f8be5ea1da..606a417eb9 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -190,9 +190,9 @@ select track as well."
                                       map nil t)))
       (alist-get selected map nil nil #'equal))))
 
-(cl-defun listen-queue-complete (&key (prompt "Queue: "))
+(cl-defun listen-queue-complete (&key (prompt "Queue"))
   "Return a Listen queue selected with completion.
-PROMPT is passed to `completing-read', which see."
+PROMPT is passed to `format-prompt', which see."
   (pcase (length listen-queues)
     (0 (call-interactively #'listen-queue-new))
     (1 (car listen-queues))
@@ -202,7 +202,7 @@ PROMPT is passed to `completing-read', which see."
                                       (when (listen--playing-p player)
                                         (listen-queue-name (map-elt 
(listen-player-etc player) :queue)))))
               (queue-names (mapcar #'listen-queue-name listen-queues))
-              (prompt (format-prompt "Queue" default-queue-name))
+              (prompt (format-prompt prompt default-queue-name))
               (selected (completing-read prompt queue-names nil t nil nil 
default-queue-name)))
          (cl-find selected listen-queues :key #'listen-queue-name :test 
#'equal)))))