Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
36 36
37 (defvar x-font-menu-registry-encoding nil 37 (defvar x-font-menu-registry-encoding nil
38 "Registry and encoding to use with font menu fonts.") 38 "Registry and encoding to use with font menu fonts.")
39 39
40 (defvar x-fonts-menu-junk-families 40 (defvar x-fonts-menu-junk-families
41 (purecopy 41 (mapconcat
42 (mapconcat 42 #'identity
43 #'identity 43 '("cursor" "glyph" "symbol" ; Obvious losers.
44 '("cursor" "glyph" "symbol" ; Obvious losers. 44 "\\`Ax...\\'" ; FrameMaker fonts - there are just way too
45 "\\`Ax...\\'" ; FrameMaker fonts - there are just way too
46 ; many of these, and there is a different 45 ; many of these, and there is a different
47 ; font family for each font face! Losers. 46 ; font family for each font face! Losers.
48 ; "Axcor" -> "Applix Courier Roman", 47 ; "Axcor" -> "Applix Courier Roman",
49 ; "Axcob" -> "Applix Courier Bold", etc. 48 ; "Axcob" -> "Applix Courier Bold", etc.
50 ) 49 )
51 "\\|")) 50 "\\|")
52 "A regexp matching font families which are uninteresting (e.g. cursor fonts).") 51 "A regexp matching font families which are uninteresting (e.g. cursor fonts).")
53 52
54 (defun hack-font-truename (fn) 53 (defun hack-font-truename (fn)
55 "Filter the output of `font-instance-truename' to deal with Japanese fontsets." 54 "Filter the output of `font-instance-truename' to deal with Japanese fontsets."
56 (if (string-match "," (font-instance-truename fn)) 55 (if (string-match "," (font-instance-truename fn))