Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 3659:98af8a976fc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-05 22:31:31 by aidan] Support specifying fonts for particular character sets in Mule; support translation to ISO 10646-1 for Mule character sets without an otherwise matching font; move to a vector of X11-charset-X11-registry instead of a regex for the charset-registry property.
author aidan
date Sun, 05 Nov 2006 22:31:46 +0000
parents d8309294c81c
children b8ded6c3f2a4
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
41 '(x-font-regexp 41 '(x-font-regexp
42 x-font-regexp-foundry-and-family 42 x-font-regexp-foundry-and-family
43 x-font-regexp-spacing)) 43 x-font-regexp-spacing))
44 44
45 (globally-declare-fboundp 45 (globally-declare-fboundp
46 '(charset-registry)) 46 '(charset-registries))
47 47
48 (defvar x-font-menu-registry-encoding nil 48 (defvar x-font-menu-registry-encoding nil
49 "Registry and encoding to use with font menu fonts.") 49 "Registry and encoding to use with font menu fonts.")
50 50
51 (defvar x-fonts-menu-junk-families 51 (defvar x-fonts-menu-junk-families
155 or if you change your font path, you can call this to re-initialize the menus." 155 or if you change your font path, you can call this to re-initialize the menus."
156 ;; by Stig@hackvan.com 156 ;; by Stig@hackvan.com
157 ;; #### - this should implement a `menus-only' option, which would 157 ;; #### - this should implement a `menus-only' option, which would
158 ;; recalculate the menus from the cache w/o having to do font-list again. 158 ;; recalculate the menus from the cache w/o having to do font-list again.
159 (unless x-font-regexp-ascii 159 (unless x-font-regexp-ascii
160 (setq x-font-regexp-ascii (if (featurep 'mule) 160 (setq x-font-regexp-ascii (elt (charset-registries 'ascii) 0)))
161 (charset-registry 'ascii)
162 "iso8859-1")))
163 (setq x-font-menu-registry-encoding 161 (setq x-font-menu-registry-encoding
164 (if (featurep 'mule) "*-*" "iso8859-1")) 162 (if (featurep 'mule) "*-*" "iso8859-1"))
165 (let ((case-fold-search t) 163 (let ((case-fold-search t)
166 family size weight entry monospaced-p 164 family size weight entry monospaced-p
167 dev-cache cache families sizes weights) 165 dev-cache cache families sizes weights)