# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1233712878 0
# Node ID 7d00428842ae2ac624480034dc59a342b61a1d83
# Parent  4c5660c5102cab90ff0c1e649fab06a555ac2683
(describe-char): Check font-object by fontp.

diff -r 4c5660c5102c -r 7d00428842ae lisp/descr-text.el
--- a/lisp/descr-text.el	Wed Feb 04 02:00:34 2009 +0000
+++ b/lisp/descr-text.el	Wed Feb 04 02:01:18 2009 +0000
@@ -630,7 +630,7 @@
 		     (nglyphs (lgstring-glyph-len gstring))
 		     (i 0)
 		     glyph)
-		(if font
+		(if (fontp font)
 		    (progn
 		      (insert " using this font:\n  "
 			      (symbol-name (font-get font :type))