From b2c6a4798fe4c0d92dacadb0d34d6123acf2a532 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 9 Dec 2007 12:38:35 +0000 Subject: (describe-char): Improve the previous change (show font name). --- lisp/descr-text.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/descr-text.el') diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 1fea494c35..2f11e5d994 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -586,7 +586,10 @@ as well as widgets, buttons, overlays, and text properties." (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(" -- cgit v1.2.3