X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-font-menu.el;h=b4adead123d415fd5ffaebc2863ccb894a1405f9;hb=e41b671ad8ef8f9d0464058e49a3a1ff9a5e4d4d;hp=03b4092efd65542228da8930b5496eee6375f9b2;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/x-font-menu.el b/lisp/x-font-menu.el
index 03b4092..b4adead 100644
--- a/lisp/x-font-menu.el
+++ b/lisp/x-font-menu.el
@@ -38,17 +38,16 @@
   "Registry and encoding to use with font menu fonts.")
 
 (defvar x-fonts-menu-junk-families
-  (purecopy
-   (mapconcat
-    #'identity
-    '("cursor" "glyph" "symbol"	; Obvious losers.
-      "\\`Ax...\\'"		; FrameMaker fonts - there are just way too
+  (mapconcat
+   #'identity
+   '("cursor" "glyph" "symbol"	; Obvious losers.
+     "\\`Ax...\\'"		; FrameMaker fonts - there are just way too
 				;  many of these, and there is a different
 				;  font family for each font face!  Losers.
 				;  "Axcor" -> "Applix Courier Roman",
 				;  "Axcob" -> "Applix Courier Bold", etc.
-      )
-    "\\|"))
+     )
+   "\\|")
   "A regexp matching font families which are uninteresting (e.g. cursor fonts).")
 
 (defun hack-font-truename (fn)