X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fmsw-font-menu.el;h=5b97f332f7332d2cfe029754d7745e941f67189b;hb=98a6e4055a1fa624c592ac06f79287d55196ca37;hp=23a2b6d594d07a9089d417864598120d670bb670;hpb=140fb029a954e85e8e62e0ebd23e7bc43526b57b;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/msw-font-menu.el b/lisp/msw-font-menu.el
index 23a2b6d..5b97f33 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