From 137c0a677396644f54be99049289f26fcd18604f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Dec 2003 07:50:17 +0000 Subject: [PATCH] (read-face-font): Include fontsets in the completion list. --- lisp/faces.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index d5a7aa6b4b5..9a4aa7c83a6 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1071,7 +1071,8 @@ 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) - (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) -- 2.39.2