APA> More later, perhaps, APA> Adrian (defun font-menu-set-font (family weight size) gets called with a size value of nil, which is used in a division to determine the :size of the new face. APA> Signaling: (wrong-type-argument number-char-or-marker-p nil) APA> /(nil 1) APA> (int-to-string (/ size (specifier-instance font-menu-size-scaling ...))) APA> ) APA> (concat (int-to-string (/ size ...)) "pt") APA> ) APA> (list :family family :size (concat (int-to-string ...) "pt")) APA> ) APA> (custom-set-face-update-spec (quote default) (list (list ... ...)) (list :family family :size (concat ... "pt"))) -- Adrian Aichner Teradyne GmbH, European Design Center Integra Test Division Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 (What is a Fax?) D-81673 MUENCHEN E-mail adrian.aichner(a)teradyne.com