Mercurial > emacs

comparison lisp/international/mule-diag.el @ 90990:9a2ae52d083c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print-fontset-element): Use fontp only if defined.
author Andreas Schwab <schwab@suse.de>
date Wed, 25 Jul 2007 23:43:16 +0000
parents 63467424b001
children f55f9811f5d7
comparison
equal deleted inserted replaced
90989:1a04225b86b9 90990:9a2ae52d083c
876 (dolist (elt val) 876 (dolist (elt val)
877 (let ((requested (car elt))) 877 (let ((requested (car elt)))
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)
885 slant (font-get requested :slant) 885 slant (font-get requested :slant)
886 width (font-get requested :width) 886 width (font-get requested :width)