diff options
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index df099787698..bb9b1e979fa 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1107,6 +1107,16 @@ returned. Otherwise, DEFAULT is returned verbatim." (let ((prompt (if default (format-prompt prompt default) (format "%s: " prompt))) + (completion-extra-properties + '(:affixation-function + (lambda (faces) + (mapcar + (lambda (face) + (list (concat (propertize "SAMPLE" 'face face) + "\t") + "" + face)) + faces)))) aliasfaces nonaliasfaces faces) ;; Build up the completion tables. (mapatoms (lambda (s) |