branch: externals/listen
commit 5e3ee61bf394789cbf0528a08c59e601f4bf3bc4
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Fix: (listen-queue-track-revert) Include etc metadata
---
listen-queue.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/listen-queue.el b/listen-queue.el
index 8bddef6c2c..496bf7f2b1 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -437,7 +437,8 @@ with \"ffprobe\"."
"Revert TRACK's metadata from disk."
;; TODO: Use this where appropriate.
(let ((new-track (car (listen-queue-tracks-for (list (listen-track-filename
track))))))
- (dolist (slot '(artist title album number date genre))
+ (dolist (slot '(artist title album number date genre etc))
+ ;; FIXME: Store metadata in its own slot and don't misuse etc slot.
(setf (cl-struct-slot-value 'listen-track slot track)
(cl-struct-slot-value 'listen-track slot new-track)))))
