(print-fontset): Insert proper newline and indentation spaces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f75c247ac7d8c726daf49b8b95c813201d9715d9..a488b635212ae63e591c72331a6092cc4ee33fdc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-09  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-diag.el (print-fontset): Insert proper
+       newline and indentation spaces.
+
 2003-01-07  Dave Love  <fx@gnu.org>
 
        * emacs-lisp/byte-opt.el (side-effect-free-fns): Add langinfo,

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 80511746b31a1bf5880238a03ea99212c46a731c..a128b28bad7e0b1fc5e1dfa43994ac2b17f72b3c 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1007,7 +1007,7 @@ the current buffer."
         (dolist (elt val)
           (let ((requested (car elt)))
             (if (stringp requested)
-                (insert requested)
+                (insert "\n    " requested)
               (let ((family (aref requested 0))
                     (registry (aref requested 5)))
                 (if (not family)