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

2 files changed, 12 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b2af1639ea..08be07b117d 100644
--- 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 738f4f678ed..e78f593c7b5 100644
--- 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))