Mercurial > emacs

changeset 91216:79d9f396e42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char): Improve the previous change (show font name).
author Kenichi Handa <handa@m17n.org>
date Sun, 09 Dec 2007 12:38:35 +0000
parents bbe57de1a9ef
children 9cf3b1c148b9
files lisp/descr-text.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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("