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

font name).

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 1fea494c35b..2f11e5d9946 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("