Mercurial > hg > xemacs-beta

comparison lisp/msw-faces.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents d883f39b8495
children a86b2b5e0111
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
37 37
38 38
39 (defun mswindows-init-frame-faces (frame) 39 (defun mswindows-init-frame-faces (frame)
40 ) 40 )
41 41
42 ;; Other functions expect these regexps
43 (defconst mswindows-font-regexp
44 (let
45 ((- ":")
46 (fontname "\\([a-zA-Z ]+\\)")
47 (weight "\\([a-zA-Z]*\\)?")
48 (style "\\( [a-zA-Z]*\\)?")
49 (pointsize "\\([0-9]+\\)?")
50 (effects "\\([a-zA-Z ]*\\)?")
51 (charset "\\([a-zA-Z 0-9]*\\)")
52 )
53 (concat "^"
54 fontname - weight style - pointsize - effects - charset "$")))
42 55
43 ;;; Fill in missing parts of a font spec. This is primarily intended as a 56 ;;; Fill in missing parts of a font spec. This is primarily intended as a
44 ;;; helper function for the functions below. 57 ;;; helper function for the functions below.
45 ;;; mswindows fonts look like: 58 ;;; mswindows fonts look like:
46 ;;; fontname[:[weight][ style][:pointsize[:effects]]][:charset] 59 ;;; fontname[:[weight][ style][:pointsize[:effects]]][:charset]