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 e4f8159242aaa7d5051cc19eefa8844ff7fcd65f..b436e5c02f84b5f6be5c8946f89da21762d4f7f2 100644 (file)
--- 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