# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1072684217 0
# Node ID 5af19e9c7f530e5a84ea5d89805cf08a765a8c86
# Parent  7824ba2e288da7ea017d5b3081f97e0190a22ca6
(read-face-font): Include fontsets in the completion list.

diff -r 7824ba2e288d -r 5af19e9c7f53 lisp/faces.el
--- 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)