Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 3917:b8ded6c3f2a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-22 09:24:11 by aidan] Only call charset-registries in the font menu if it's available.
author aidan
date Sun, 22 Apr 2007 09:24:12 +0000
parents 98af8a976fc3
children b4f4e0cc90f1
comparison
equal deleted inserted replaced
3916:c3650461398a 3917:b8ded6c3f2a4
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 (elt (charset-registries 'ascii) 0))) 160 (setq x-font-regexp-ascii
161 (if (fboundp 'charset-registries)
162 (elt (charset-registries 'ascii) 0)
163 "iso8859-1")))
161 (setq x-font-menu-registry-encoding 164 (setq x-font-menu-registry-encoding
162 (if (featurep 'mule) "*-*" "iso8859-1")) 165 (if (featurep 'mule) "*-*" "iso8859-1"))
163 (let ((case-fold-search t) 166 (let ((case-fold-search t)
164 family size weight entry monospaced-p 167 family size weight entry monospaced-p
165 dev-cache cache families sizes weights) 168 dev-cache cache families sizes weights)