(print_preprocess): Add sub-char-tables to the print-table,

just like we do in print.c.

2 files changed, 6 insertions, 1 deletions

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