Mercurial > hg > xemacs-beta

comparison lisp/msw-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 74fd4e045ea6
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
41 41
42 (defvar mswindows-font-menu-registry-encoding nil 42 (defvar mswindows-font-menu-registry-encoding nil
43 "Registry and encoding to use with font menu fonts.") 43 "Registry and encoding to use with font menu fonts.")
44 44
45 (defvar mswindows-font-menu-junk-families 45 (defvar mswindows-font-menu-junk-families
46 (purecopy 46 (mapconcat
47 (mapconcat 47 #'identity
48 #'identity 48 '("Symbol"
49 '("Symbol" 49 )
50 ) 50 "\\|")
51 "\\|"))
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 (defvar mswindows-font-regexp-ascii nil 53 (defvar mswindows-font-regexp-ascii nil
55 "This is used to filter out font families that can't display ASCII text. 54 "This is used to filter out font families that can't display ASCII text.
56 It must be set at run-time.") 55 It must be set at run-time.")