branch: externals/listen
commit 486c1c1c78c24d44ae4a62aa5527447bd9e2861a
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Fix: (listen--update-metadata) Destructuring
---
listen-mpv.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/listen-mpv.el b/listen-mpv.el
index 1d42ccf976..6f565e47f7 100755
--- a/listen-mpv.el
+++ b/listen-mpv.el
@@ -64,14 +64,13 @@
(cl-defmethod listen--update-metadata ((player listen-player-mpv) &optional
then)
"Update PLAYER's metadata slot, then call THEN without arguments."
- (let ((callback (lambda (msg)
- (pcase-let (((map event id reason data error name) msg))
- (setf (listen-player-metadata player)
- (map-apply (lambda (key value)
- (cons (intern (downcase (symbol-name
key))) value))
- data))
- (when then
- (funcall then))))))
+ (let ((callback (lambda (metadata)
+ (setf (listen-player-metadata player)
+ (map-apply (lambda (key value)
+ (cons (intern (downcase (symbol-name
key))) value))
+ metadata))
+ (when then
+ (funcall then)))))
(if then
(listen-mpv--get-property player "metadata" :then callback)
(funcall callback (listen-mpv--get-property player "metadata")))))
