Mercurial > emacs

changeset 101781:7d00428842ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char): Check font-object by fontp.
author Kenichi Handa <handa@m17n.org>
date Wed, 04 Feb 2009 02:01:18 +0000
parents 4c5660c5102c
children 18af909e5131
files lisp/descr-text.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))