diff options
| author | Stefan Monnier | 2023-09-25 08:02:29 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-09-25 08:02:29 -0400 |
| commit | 6c99e4e3840aae385b04d5269eac7e758a9b2ade (patch) | |
| tree | 2f30c2a656d15546d4ec757ca22761e9982091e7 | |
| parent | 9f91a1c3ebef4034d5e96741023abc4f3d02d730 (diff) | |
| download | emacs-6c99e4e3840aae385b04d5269eac7e758a9b2ade.tar.gz emacs-6c99e4e3840aae385b04d5269eac7e758a9b2ade.zip | |
* lisp/faces.el (read-face-name): Expose all lambdas to the compiler
| -rw-r--r-- | lisp/faces.el | 20 |
1 files 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." | |||
| 1145 | (format-prompt prompt default) | 1145 | (format-prompt prompt default) |
| 1146 | (format "%s: " prompt))) | 1146 | (format "%s: " prompt))) |
| 1147 | (completion-extra-properties | 1147 | (completion-extra-properties |
| 1148 | '(:affixation-function | 1148 | `(:affixation-function |
| 1149 | (lambda (faces) | 1149 | ,(lambda (faces) |
| 1150 | (mapcar | 1150 | (mapcar |
| 1151 | (lambda (face) | 1151 | (lambda (face) |
| 1152 | (list face | 1152 | (list face |
| 1153 | (concat (propertize read-face-name-sample-text | 1153 | (concat (propertize read-face-name-sample-text |
| 1154 | 'face face) | 1154 | 'face face) |
| 1155 | "\t") | 1155 | "\t") |
| 1156 | "")) | 1156 | "")) |
| 1157 | faces)))) | 1157 | faces)))) |
| 1158 | aliasfaces nonaliasfaces faces) | 1158 | aliasfaces nonaliasfaces faces) |
| 1159 | ;; Build up the completion tables. | 1159 | ;; Build up the completion tables. |
| 1160 | (mapatoms (lambda (s) | 1160 | (mapatoms (lambda (s) |