Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 318:afd57c14dfc8 r21-0b57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b57
author cvs
date Mon, 13 Aug 2007 10:45:36 +0200
parents 4b85ae5eabfb
children cc15677e0335
comparison
equal deleted inserted replaced
317:a2fc9afbef65 318:afd57c14dfc8
774 ;;; A minimal mswindows font spec looks like: 774 ;;; A minimal mswindows font spec looks like:
775 ;;; Courier New 775 ;;; Courier New
776 ;;; A maximal mswindows font spec looks like: 776 ;;; A maximal mswindows font spec looks like:
777 ;;; Courier New:Bold Italic:10:underline strikeout:western 777 ;;; Courier New:Bold Italic:10:underline strikeout:western
778 ;;; Missing parts of the font spec should be filled in with these values: 778 ;;; Missing parts of the font spec should be filled in with these values:
779 ;;; Courier New:Normal:10::western 779 ;;; Courier New:Regular:10::western
780 ;; "^[a-zA-Z ]+:[a-zA-Z ]*:[0-9]+:[a-zA-Z ]*:[a-zA-Z 0-9]*$" 780 ;; "^[a-zA-Z ]+:[a-zA-Z ]*:[0-9]+:[a-zA-Z ]*:[a-zA-Z 0-9]*$"
781 (defvar font-mswindows-font-regexp 781 (defvar font-mswindows-font-regexp
782 (let 782 (let
783 ((- ":") 783 ((- ":")
784 (fontname "\\([a-zA-Z ]+\\)") 784 (fontname "\\([a-zA-Z ]+\\)")