From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 25 Sep 2023 12:02:29 +0000 (-0400)
Subject: * lisp/faces.el (read-face-name): Expose all lambdas to the compiler
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c99e4e3840aae385b04d5269eac7e758a9b2ade;p=emacs.git

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

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)