changeset 90990:9a2ae52d083c

(print-fontset-element): Use fontp only if defined.
author Andreas Schwab <schwab@suse.de>
date Wed, 25 Jul 2007 23:43:16 +0000
parents 1a04225b86b9
children c25c6957ba4a
files lisp/international/mule-diag.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Wed Jul 25 14:57:09 2007 +0000
+++ b/lisp/international/mule-diag.el	Wed Jul 25 23:43:16 2007 +0000
@@ -878,7 +878,7 @@
 	(if (stringp requested)
 	    (insert "\n    " requested)
 	  (let (family registry weight slant width adstyle)
-	    (if (fontp requested)
+	    (if (and (fboundp 'fontp) (fontp requested))
 		(setq family (font-get requested :family)
 		      registry (font-get requested :registry)
 		      weight (font-get requested :weight)