[Emacs-diffs] Changes to emacs/lisp/descr-text.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/10/27 02:12:04

Index: descr-text.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/descr-text.el,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- descr-text.el       5 Sep 2008 00:50:27 -0000       1.71
+++ descr-text.el       27 Oct 2008 02:12:03 -0000      1.72
@@ -606,6 +606,8 @@
                     (nglyphs (lgstring-glyph-len gstring))
                     (i 0)
                     glyph)
+               (if font
+                   (progn
                (insert " using this font:\n  "
                        (symbol-name (font-get font :type))
                        ?:
@@ -615,6 +617,12 @@
                            (setq glyph (lgstring-glyph gstring i)))
                  (insert (format "  %S\n" glyph))
                  (setq i (1+ i))))
+                 (insert " by these characters:\n")
+                 (while (and (< i nglyphs)
+                             (setq glyph (lgstring-glyph gstring i)))
+                   (insert (format " %c (#x%d)\n"
+                                   (lglyph-char glyph) (lglyph-char glyph)))
+                   (setq i (1+ i)))))
            (insert " by the rule:\n\t(")
            (let ((first t))
              (mapc (lambda (x)