Mercurial > hg > xemacs-beta

comparison lisp/gtk-font-menu.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents 491f8cf78a9c
children 2a54dfbe434f 308d34e9f07d
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
90 or if you change your font path, you can call this to re-initialize the menus." 90 or if you change your font path, you can call this to re-initialize the menus."
91 ;; by Stig@hackvan.com 91 ;; by Stig@hackvan.com
92 ;; #### - this should implement a `menus-only' option, which would 92 ;; #### - this should implement a `menus-only' option, which would
93 ;; recalculate the menus from the cache w/o having to do font-list again. 93 ;; recalculate the menus from the cache w/o having to do font-list again.
94 (unless gtk-font-regexp-ascii 94 (unless gtk-font-regexp-ascii
95 (setq gtk-font-regexp-ascii (if (featurep 'mule) 95 (setq gtk-font-regexp-ascii (if-fboundp #'charset-registries
96 (declare-fboundp 96 (aref (charset-registries 'ascii) 0)
97 (charset-registry 'ascii)) 97 "iso8859-1")))
98 "iso8859-1")))
99 (setq gtk-font-menu-registry-encoding 98 (setq gtk-font-menu-registry-encoding
100 (if (featurep 'mule) "*-*" "iso8859-1")) 99 (if (featurep 'mule) "*-*" "iso8859-1"))
101 (let ((case-fold-search t) 100 (let ((case-fold-search t)
102 family size weight entry monospaced-p 101 family size weight entry monospaced-p
103 dev-cache cache families sizes weights) 102 dev-cache cache families sizes weights)