# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1197203915 0
# Node ID 79d9f396e42f4733dfe05642cfd268aa7515b81d
# Parent  bbe57de1a9efafa590e748ef979625d54dbf7e7a
(describe-char): Improve the previous change (show
font name).

diff -r bbe57de1a9ef -r 79d9f396e42f lisp/descr-text.el
--- a/lisp/descr-text.el	Sun Dec 09 12:36:11 2007 +0000
+++ b/lisp/descr-text.el	Sun Dec 09 12:38:35 2007 +0000
@@ -586,7 +586,10 @@
 	  (if (and (vectorp (nth 2 composition))
 		   (vectorp (aref (nth 2 composition) 0)))
 	      (progn
-		(insert " by these glyphs:\n")
+		(insert " using this font:\n  "
+			(aref (query-font (aref (aref (nth 2 composition) 0) 0))
+			      0)
+			"\nby these glyphs:\n")
 		(mapc (lambda (x) (insert (format "  %S\n" x)))
 		      (nth 2 composition)))
 	    (insert " by the rule:\n\t("