Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents afd57c14dfc8
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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:Regular:10::western 779 ;;; Courier New:Normal: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 ]+\\)")