[elpa] externals/listen 5204bbacbc 4/4: Fix: (listen-queue) Don't highlight track in non-playing queues

[ELPA Syncer]

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

    Fix: (listen-queue) Don't highlight track in non-playing queues
---
 README.org      | 1 +
 docs/README.org | 1 +
 listen-queue.el | 4 +++-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 43aff9f4ce..54a5833416 100644
--- a/README.org
+++ b/README.org
@@ -234,6 +234,7 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 - Command ~listen-queue-add-from-mpd~.
 - Indication of currently playing queue in queue list.
 - Set metadata slot when reverting track from disk.
+- Don't highlight current track in non-playing queues.
 
 ** v0.7
 
diff --git a/docs/README.org b/docs/README.org
index 955e09010d..1ab5bfc0dc 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -246,6 +246,7 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 + Command ~listen-queue-add-from-mpd~.
 + Indication of currently playing queue in queue list.
 + Set metadata slot when reverting track from disk.
++ Don't highlight current track in non-playing queues.
 
 ** v0.7
 
diff --git a/listen-queue.el b/listen-queue.el
index c12432352c..1a4cb5a3aa 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -147,7 +147,9 @@ Useful for when `save-excursion' does not preserve point."
                          ;; We compare filenames in case the queue's files
                          ;; have been refreshed from disk, in which case
                          ;; the track objects would no longer be `eq'.
-                         (if-let ((current-track (listen-queue-current queue))
+                         (if-let ((player listen-player)
+                                  ((eq queue (alist-get :queue 
(listen-player-etc player))))
+                                  (current-track (listen-queue-current queue))
                                   ((equal (listen-track-filename track)
                                           (listen-track-filename 
current-track))))
                              (progn