XEmacs 21.4.9 "Informed Management".

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

diff --git a/lisp/msw-font-menu.el b/lisp/msw-font-menu.el
index 5b97f33..194e6cd 100644 (file)
--- a/lisp/msw-font-menu.el
+++ b/lisp/msw-font-menu.el
@@ -176,13 +176,13 @@ or if you change your font path, you can call this to re-initialize the menus."
     
     (when (string-match mswindows-font-regexp name)
       (setq weight (match-string 2 name))
-      (setq size   (string-to-int (match-string 4 name))))
+      (setq size   (string-to-int (or (match-string 4 name) "0"))))
       
     (when (string-match mswindows-font-regexp truename)
       (when (not (member weight (aref entry 1)))
        (setq weight (match-string 2 truename)))
       (when (not (member size   (aref entry 2)))
-       (setq size (string-to-int (match-string 4 truename))))
+       (setq size (string-to-int (or (match-string 4 truename) "0"))))
       (setq slant (match-string 5 truename)))
       
     (vector entry family size weight slant)))