(print_object): Make each lowest sub_char_table start a new line.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b2af16..08be07b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-03  Kenichi Handa  <handa@m17n.org>
+
+       * print.c (print_object): Make each lowest sub_char_table start a
+       new line (Bug#2866).
+
 2009-04-02  Kenichi Handa  <handa@m17n.org>
 
        * fontset.c (fontset_font): Record no-font when a fontset

diff --git a/src/print.c b/src/print.c
index 738f4f6..e78f593 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2116,6 +2116,13 @@ print_object (obj, printcharfun, escapeflag)
              /* We print a char-table as if it were a vector,
                 lumping the parent and default slots in with the
                 character slots.  But we add #^ as a prefix.  */
+
+             /* Make each lowest sub_char_table start a new line.
+                Otherwise we'll make a line extremely long, which
+                results in slow redisplay.  */
+             if (SUB_CHAR_TABLE_P (obj)
+                 && XINT (XSUB_CHAR_TABLE (obj)->depth) == 3)
+               PRINTCHAR ('\n');
              PRINTCHAR ('#');
              PRINTCHAR ('^');
              if (SUB_CHAR_TABLE_P (obj))