This commit was generated by cvs2svn to compensate for changes in r2793,

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