Mercurial > hg > xemacs-beta

comparison lisp/x11/x-font-menu.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 538048ae2ab8
children
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
129 ;; 129 ;;
130 ;;; (defvar font-menu-ignore-proportional-fonts nil 130 ;;; (defvar font-menu-ignore-proportional-fonts nil
131 ;;; "*If non-nil, then the font menu will only show fixed-width fonts.") 131 ;;; "*If non-nil, then the font menu will only show fixed-width fonts.")
132 132
133 ;;;###autoload 133 ;;;###autoload
134 (defvar font-menu-ignore-scaled-fonts t 134 (defcustom font-menu-ignore-scaled-fonts t
135 "*If non-nil, then the font menu will try to show only bitmap fonts.") 135 "*If non-nil, then the font menu will try to show only bitmap fonts."
136 136 :type 'boolean
137 ;;;###autoload 137 :group 'x)
138 (defvar font-menu-this-frame-only-p nil 138
139 ;;;###autoload
140 (defcustom font-menu-this-frame-only-p nil
139 "*If non-nil, then changing the default font from the font menu will only 141 "*If non-nil, then changing the default font from the font menu will only
140 affect one frame instead of all frames.") 142 affect one frame instead of all frames."
143 :type 'boolean
144 :group 'x)
141 145
142 ;; only call XListFonts (and parse) once per device. 146 ;; only call XListFonts (and parse) once per device.
143 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...) 147 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...)
144 (defvar device-fonts-cache nil) 148 (defvar device-fonts-cache nil)
145 149