X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmsw-faces.el;h=f4e412560a425eb4c65454060dabb5dc3d451fa2;hb=46f51e794ddb493a8a76ec2f3be00b41e3b0be22;hp=e77f415fc57a51acba89725c99cb810f2cb0acb6;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/msw-faces.el b/lisp/msw-faces.el
index e77f415..f4e4125 100644
--- a/lisp/msw-faces.el
+++ b/lisp/msw-faces.el
@@ -39,6 +39,19 @@
 (defun mswindows-init-frame-faces (frame)
   )
 
+;; Other functions expect these regexps
+(defconst mswindows-font-regexp
+  (let
+      ((- 		":")
+       (fontname	"\\([a-zA-Z ]+\\)")
+       (weight	"\\([a-zA-Z]*\\)?")
+       (style	"\\( [a-zA-Z]*\\)?")
+       (pointsize	"\\([0-9]+\\)?")
+       (effects	"\\([a-zA-Z ]*\\)?")
+       (charset	"\\([a-zA-Z 0-9]*\\)")
+       )
+    (concat "^"
+	    fontname - weight style - pointsize - effects - charset "$")))
 
 ;;; Fill in missing parts of a font spec. This is primarily intended as a
 ;;; helper function for the functions below.