* src/print.c (print_preprocess): Don't forget font objects.

diff --git a/src/ChangeLog b/src/ChangeLog
index 44e4494..e25ed31 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * print.c (print_preprocess): Don't forget font objects.
+
 2011-03-16  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacs.c (USAGE3): Doc fixes.

diff --git a/src/print.c b/src/print.c
index 29a4bfa..f48ba57 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1209,7 +1209,7 @@ print_preprocess (Lisp_Object obj)
  loop:
   if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
       || COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
-      || HASH_TABLE_P (obj)
+      || HASH_TABLE_P (obj) || FONTP (obj)
       || (! NILP (Vprint_gensym)
          && SYMBOLP (obj)
          && !SYMBOL_INTERNED_P (obj)))