X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fx-font-menu.el;h=b4adead123d415fd5ffaebc2863ccb894a1405f9;hb=6f6c2759db74292539455548959e9668891f6962;hp=54f4c663c30a818fa2955af1e15b9a1189722651;hpb=afa9772e3fcbb4e80e3e4cfd1a40b4fccc6d08b8;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/x-font-menu.el b/lisp/x-font-menu.el
index 54f4c66..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)
@@ -185,6 +184,8 @@ or if you change your font path, you can call this to re-initialize the menus."
 ;; get the truename and use the possibly suboptimal data from that.
 ;;;###autoload
 (defun* x-font-menu-font-data (face dcache)
+  (defvar x-font-regexp)
+  (defvar x-font-regexp-foundry-and-family)
   (let* ((case-fold-search t)
 	 (domain (if font-menu-this-frame-only-p
 				  (selected-frame)