Mercurial > emacs
changeset 89678:5af19e9c7f53
(read-face-font): Include fontsets in the completion list.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 Dec 2003 07:50:17 +0000 |
| parents | 7824ba2e288d |
| children | 6e3a816383a4 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Tue Dec 02 06:57:35 2003 +0000 +++ b/lisp/faces.el Mon Dec 29 07:50:17 2003 +0000 @@ -1071,7 +1071,8 @@ If optional argument FRAME Is nil or omitted, use the selected frame." (let ((completion-ignore-case t)) (completing-read (format "Set font attributes of face `%s' from font: " face) - (mapcar 'list (x-list-fonts "*" nil frame))))) + (mapcar 'list (append (fontset-list) + (x-list-fonts "*" nil frame)))))) (defun read-all-face-attributes (face &optional frame)