Mercurial > hg > xemacs-beta

comparison lisp/x11/x-font-menu.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
116 ;;;###autoload 116 ;;;###autoload
117 (defvar font-menu-ignore-scaled-fonts t 117 (defvar font-menu-ignore-scaled-fonts t
118 "*If non-nil, then the font menu will try to show only bitmap fonts.") 118 "*If non-nil, then the font menu will try to show only bitmap fonts.")
119 119
120 ;;;###autoload 120 ;;;###autoload
121 (defvar font-menu-this-frame-only-p t 121 (defvar font-menu-this-frame-only-p nil
122 "*If non-nil, then changing the default font from the font menu will only 122 "*If non-nil, then changing the default font from the font menu will only
123 affect one frame instead of all frames.") 123 affect one frame instead of all frames.")
124 124
125 ;; only call XListFonts (and parse) once per device. 125 ;; only call XListFonts (and parse) once per device.
126 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...) 126 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...)