Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents d44af0c54775
children 7df0dd720c89
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
45 45
46 (if (not (fboundp 'try-font-name)) 46 (if (not (fboundp 'try-font-name))
47 (defun try-font-name (fontname &rest args) 47 (defun try-font-name (fontname &rest args)
48 (case window-system 48 (case window-system
49 ((x pm) (car-safe (x-list-fonts fontname))) 49 ((x pm) (car-safe (x-list-fonts fontname)))
50 (mswindows (car-safe (x-list-fonts fontname))) ; XXX FIXME 50 (mswindows (car-safe (mswindows-list-fonts fontname)))
51 (ns (car-safe (ns-list-fonts fontname))) 51 (ns (car-safe (ns-list-fonts fontname)))
52 (otherwise nil)))) 52 (otherwise nil))))
53 53
54 (if (not (fboundp 'facep)) 54 (if (not (fboundp 'facep))
55 (defun facep (face) 55 (defun facep (face)