From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Dec 2003 07:50:17 +0000 (+0000)
Subject: (read-face-font): Include fontsets in the completion list.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=137c0a677396644f54be99049289f26fcd18604f;p=emacs.git

(read-face-font): Include fontsets in the completion list.
---

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)