(print-fontset-element): Use fontp

only if defined.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 6bbe29426ce167186aaf112744f5b2059c21d65f..04399f93a61cfb06fa9b7081d975cbd854de77f1 100644 (file)
--- 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)