From 6c99e4e3840aae385b04d5269eac7e758a9b2ade Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 25 Sep 2023 08:02:29 -0400 Subject: [PATCH] * lisp/faces.el (read-face-name): Expose all lambdas to the compiler --- lisp/faces.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 8f93f9b2c0c..7eacc40443a 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1145,16 +1145,16 @@ returned. Otherwise, DEFAULT is returned verbatim." (format-prompt prompt default) (format "%s: " prompt))) (completion-extra-properties - '(:affixation-function - (lambda (faces) - (mapcar - (lambda (face) - (list face - (concat (propertize read-face-name-sample-text - 'face face) - "\t") - "")) - faces)))) + `(:affixation-function + ,(lambda (faces) + (mapcar + (lambda (face) + (list face + (concat (propertize read-face-name-sample-text + 'face face) + "\t") + "")) + faces)))) aliasfaces nonaliasfaces faces) ;; Build up the completion tables. (mapatoms (lambda (s)