From a4ba5390b7d84bf8b2ab6e4e088e6fd448c9debe Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 25 Jul 2007 23:43:16 +0000 Subject: [PATCH] (print-fontset-element): Use fontp only if defined. --- lisp/international/mule-diag.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 6bbe29426ce..04399f93a61 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -878,7 +878,7 @@ The font must be already used by Emacs." (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) -- 2.39.5