diff options
author | Kenichi Handa <[email protected]> | 2007-12-09 12:38:35 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2007-12-09 12:38:35 +0000 |
commit | b2c6a4798fe4c0d92dacadb0d34d6123acf2a532 (patch) | |
tree | 1fc08df06ff3f55fb7965adbe97bdd8bc02aea19 /lisp/descr-text.el | |
parent | 2aef1e9a31e385f7f280a2a936a91326dcd8fc24 (diff) |
(describe-char): Improve the previous change (show
font name).
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r-- | lisp/descr-text.el | 5 |
1 files changed, 4 insertions, 1 deletions
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(" |