mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(describe-char): Improve the previous change (show

Browse Source 
font name).
This commit is contained in:
Kenichi Handa 2007-12-09 12:38:35 +00:00
parent 2aef1e9a31
commit b2c6a4798f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/descr-text.el
View File

@ -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("