branch: externals/listen
commit 5204bbacbc2937c46bce69ad2dedfa1351fa65ee
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@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
