2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 44e4494d79a..e25ed31f45b 100644
--- 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 29a4bfab790..f48ba57b574 100644
--- 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)))