]> git.eshelyaron.com Git - emacs.git/commitdiff
(describe-char): Improve the previous change (show
authorKenichi Handa <handa@m17n.org>
Sun, 9 Dec 2007 12:38:35 +0000 (12:38 +0000)
committerKenichi Handa <handa@m17n.org>
Sun, 9 Dec 2007 12:38:35 +0000 (12:38 +0000)
font name).

lisp/descr-text.el

index 1fea494c35bf7546acba5e11bb350a73bcb3d26b..2f11e5d9946df9ad9c9da640d0a4239c523d3107 100644 (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("