Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
807 for use in the 'weight' field of an mswindows font string.") 807 for use in the 'weight' field of an mswindows font string.")
808 808
809 809
810 (defun mswindows-font-create-object (fontname &optional device) 810 (defun mswindows-font-create-object (fontname &optional device)
811 (let ((case-fold-search t) 811 (let ((case-fold-search t)
812 (font (mswindows-font-canicolize-name fontname))) 812 (font (mswindows-font-canonicalize-name fontname)))
813 (if (or (not (stringp font)) 813 (if (or (not (stringp font))
814 (not (string-match font-mswindows-font-regexp font))) 814 (not (string-match font-mswindows-font-regexp font)))
815 (make-font) 815 (make-font)
816 (let ((name (match-string 1 font)) 816 (let ((name (match-string 1 font))
817 (weight (match-string 2 font)) 817 (weight (match-string 2 font))