comparison lisp/font.el @ 373:6240c7796c7a r21-2b2

Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
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 ]+\\)")