From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 May 2008 18:27:54 +0000 (+0000)
Subject: (print_preprocess): Add sub-char-tables to the print-table,
X-Git-Tag: emacs-pretest-23.0.90~5768
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d77fa953afa438787d700474c7d1349cb452ffb;p=emacs.git

(print_preprocess): Add sub-char-tables to the print-table,
just like we do in print.c.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 6e2d3785d38..a7b19f3dfc9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* print.c (print_preprocess): Add sub-char-tables to the print-table,
+	just like we do in print.c.
+
 2008-05-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* minibuf.c (Ftry_completion): Remove code left over from when we used
diff --git a/src/print.c b/src/print.c
index 5a1d57998e6..d5453ce74ef 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1382,7 +1382,7 @@ print_preprocess (obj)
 
  loop:
   if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
-      || COMPILEDP (obj) || CHAR_TABLE_P (obj)
+      || COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
       || (! NILP (Vprint_gensym)
 	  && SYMBOLP (obj)
 	  && !SYMBOL_INTERNED_P (obj)))