Contents in 1999-06-04-13 of release-21-2.

[chise/xemacs-chise.git.1] / lisp / msw-faces.el

diff --git a/lisp/msw-faces.el b/lisp/msw-faces.el
index e77f415..f4e4125 100644 (file)
--- a/lisp/msw-faces.el
+++ b/lisp/msw-faces.el
@@ -39,6 +39,19 @@
 (defun mswindows-init-frame-faces (frame)
   )
 
 (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.
 
 ;;; Fill in missing parts of a font spec. This is primarily intended as a
 ;;; helper function for the functions below.