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

2023-09-25 08:02:29 -04:00 · 2023-09-25 08:02:29 -04:00 · 6c99e4e384
commit 6c99e4e384
parent 9f91a1c3eb
1 changed files with 10 additions and 10 deletions
--- 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)