# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1185406996 0
# Node ID 9a2ae52d083c60f464377bd566f4ff72abb92471
# Parent  1a04225b86b98057f1f0f4b865d6de30a5546503
(print-fontset-element): Use fontp
only if defined.

diff -r 1a04225b86b9 -r 9a2ae52d083c lisp/international/mule-diag.el
--- 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)