From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 6 Jul 2025 14:39:33 +0000 (-0400)
Subject: lisp/mpc.el (mpc-describe-song): Don't quote lambdas
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8add3dc3ad9c66990f4f489a606e9290ac76e7cd;p=emacs.git

lisp/mpc.el (mpc-describe-song): Don't quote lambdas

(cherry picked from commit 4732b8921db04187612b45555863ecc1df6be552)
---

diff --git a/lisp/mpc.el b/lisp/mpc.el
index e4f8159242a..b436e5c02f8 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -2914,20 +2914,20 @@ playing song is displayed."
         (let ((inhibit-read-only t))
           (erase-buffer)
           (make-vtable
-           :columns '(( :name "Tag"
+           :columns `(( :name "Tag"
                         :align right
                         :min-width 3
                         :displayer
-                        (lambda (tag &rest _)
-                          (propertize tag 'face 'mpc-table-key)))
+                        ,(lambda (tag &rest _)
+                           (propertize tag 'face 'mpc-table-key)))
                       ( :name "Value"
                         :align left
                         :min-width 5
                         :displayer
-                        (lambda (value &rest _)
-                          (if (and value (not (string-blank-p value)))
-                              (propertize value 'face 'mpc-table-value)
-                            (propertize "empty" 'face 'mpc-table-empty)))))
+                        ,(lambda (value &rest _)
+                           (if (and value (not (string-blank-p value)))
+                               (propertize value 'face 'mpc-table-value)
+                             (propertize "empty" 'face 'mpc-table-empty)))))
            :objects (mapcar
                      (lambda (tag)
                        (pcase tag