From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 16 Mar 2011 14:23:26 +0000 (-0400)
Subject: * src/print.c (print_preprocess): Don't forget font objects.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35ac2a97f505a3c0de5cc2d4cf40b5b2f22529d0;p=emacs.git

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

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