mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
lisp/mpc.el (mpc-describe-song): Don't quote lambdas
This commit is contained in:
parent
90a0771379
commit
4732b8921d
1 changed files with 7 additions and 7 deletions
14
lisp/mpc.el
14
lisp/mpc.el
|
|
@ -2925,20 +2925,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
|
||||
|
|
|
|||
Loading…
Reference in a new issue