(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 6e2d3785d384d8a9ab29984f8912e14c01e95506..a7b19f3dfc96c4f116a678e3a5314c70cb2f9475 100644 (file)
--- 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 5a1d57998e62dc51d18b262e77f98934cd9018c8..d5453ce74ef2f9bf396e08360a4c90f5d75c5824 100644 (file)
--- 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)))