Mercurial > hg > xemacs-beta

comparison lisp/gtk-font-menu.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 0af042a0c116 ed74d2ca7082
children cc6f0266bc36
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
88 or if you change your font path, you can call this to re-initialize the menus." 88 or if you change your font path, you can call this to re-initialize the menus."
89 ;; by Stig@hackvan.com 89 ;; by Stig@hackvan.com
90 ;; #### - this should implement a `menus-only' option, which would 90 ;; #### - this should implement a `menus-only' option, which would
91 ;; recalculate the menus from the cache w/o having to do font-list again. 91 ;; recalculate the menus from the cache w/o having to do font-list again.
92 (unless gtk-font-regexp-ascii 92 (unless gtk-font-regexp-ascii
93 (setq gtk-font-regexp-ascii (if-fboundp #'charset-registries 93 (setq gtk-font-regexp-ascii (if-fboundp 'charset-registries
94 (aref (charset-registries 'ascii) 0) 94 (aref (charset-registries 'ascii) 0)
95 "iso8859-1"))) 95 "iso8859-1")))
96 (setq gtk-font-menu-registry-encoding 96 (setq gtk-font-menu-registry-encoding
97 (if (featurep 'mule) "*-*" "iso8859-1")) 97 (if (featurep 'mule) "*-*" "iso8859-1"))
98 (let ((case-fold-search t) 98 (let ((case-fold-search t)