mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/faces.el (read-face-name): Expose all lambdas to the compiler

Browse source
This commit is contained in:
Stefan Monnier 2023-09-25 08:02:29 -04:00
parent 9f91a1c3eb
commit 6c99e4e384
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/faces.el
View file

@ -1145,16 +1145,16 @@ returned. Otherwise, DEFAULT is returned verbatim."
(format-prompt prompt default) (format-prompt prompt default)
(format "%s: " prompt))) (format "%s: " prompt)))
(completion-extra-properties (completion-extra-properties
'(:affixation-function `(:affixation-function
(lambda (faces) ,(lambda (faces)
(mapcar (mapcar
(lambda (face) (lambda (face)
(list face (list face
(concat (propertize read-face-name-sample-text (concat (propertize read-face-name-sample-text
'face face) 'face face)
"\t") "\t")
"")) ""))
faces)))) faces))))
aliasfaces nonaliasfaces faces) aliasfaces nonaliasfaces faces)
;; Build up the completion tables. ;; Build up the completion tables.
(mapatoms (lambda (s) (mapatoms (lambda (s)