diff options
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index a234c902332..5efcc30cfea 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1075,7 +1075,7 @@ of a global face. Value is the new attribute value." 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) - (x-list-fonts "*" nil frame)))) + (append (fontset-list) (x-list-fonts "*" nil frame))))) (defun read-all-face-attributes (face &optional frame) @@ -1230,7 +1230,8 @@ If FRAME is omitted or nil, use the selected frame." (:box . "Box") (:inverse-video . "Inverse") (:stipple . "Stipple") - (:font . "Font or fontset") + (:font . "Font") + (:fontset . "Fontset") (:inherit . "Inherit"))) (max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x))) attrs)))) |