X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmsw-font-menu.el;h=194e6cdd291d1f07b816cddbe17936173720867d;hp=23a2b6d594d07a9089d417864598120d670bb670;hb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18;hpb=ccce6217f84987dff10ed3d2b60b9f0f65d8f25a

diff --git a/lisp/msw-font-menu.el b/lisp/msw-font-menu.el
index 23a2b6d..194e6cd 100644
--- a/lisp/msw-font-menu.el
+++ b/lisp/msw-font-menu.el
@@ -43,12 +43,11 @@
   "Registry and encoding to use with font menu fonts.")
 
 (defvar mswindows-font-menu-junk-families
-  (purecopy
-   (mapconcat
-    #'identity
-    '("Symbol" 
-      )
-    "\\|"))
+  (mapconcat
+   #'identity
+   '("Symbol" 
+     )
+   "\\|")
   "A regexp matching font families which are uninteresting (e.g. cursor fonts).")
 
 (defvar mswindows-font-regexp-ascii nil
@@ -177,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)))