diff options
| author | Andreas Schwab | 2007-07-25 23:43:16 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2007-07-25 23:43:16 +0000 |
| commit | a4ba5390b7d84bf8b2ab6e4e088e6fd448c9debe (patch) | |
| tree | d3b6756f574c7ed2307d5314fc6a49f7a41a1265 | |
| parent | 41a247c2c1c75d13fce1d510d83b1aa73550db8a (diff) | |
| download | emacs-a4ba5390b7d84bf8b2ab6e4e088e6fd448c9debe.tar.gz emacs-a4ba5390b7d84bf8b2ab6e4e088e6fd448c9debe.zip | |
(print-fontset-element): Use fontp
only if defined.
| -rw-r--r-- | lisp/international/mule-diag.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 878 | (if (stringp requested) | 878 | (if (stringp requested) |
| 879 | (insert "\n " requested) | 879 | (insert "\n " requested) |
| 880 | (let (family registry weight slant width adstyle) | 880 | (let (family registry weight slant width adstyle) |
| 881 | (if (fontp requested) | 881 | (if (and (fboundp 'fontp) (fontp requested)) |
| 882 | (setq family (font-get requested :family) | 882 | (setq family (font-get requested :family) |
| 883 | registry (font-get requested :registry) | 883 | registry (font-get requested :registry) |
| 884 | weight (font-get requested :weight) | 884 | weight (font-get requested :weight) |