From: Kenichi Handa <handa@m17n.org>
Date: Fri, 3 Apr 2009 06:26:50 +0000 (+0000)
Subject: (print_object): Make each lowest sub_char_table start a new line.
X-Git-Tag: emacs-pretest-23.0.93~244
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=223509a3a0170623fd9d6019dbdfbc26bde71553;p=emacs.git

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

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))