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

[Stefan Monnier]

branch: master
commit 6c99e4e3840aae385b04d5269eac7e758a9b2ade
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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)