Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/x11/x-font-menu.el	Mon Aug 13 09:58:32 2007 +0200
+++ b/lisp/x11/x-font-menu.el	Mon Aug 13 09:59:05 2007 +0200
@@ -131,13 +131,17 @@
 ;;;   "*If non-nil, then the font menu will only show fixed-width fonts.")
 
 ;;;###autoload
-(defvar font-menu-ignore-scaled-fonts t
-  "*If non-nil, then the font menu will try to show only bitmap fonts.")
+(defcustom font-menu-ignore-scaled-fonts t
+  "*If non-nil, then the font menu will try to show only bitmap fonts."
+  :type 'boolean
+  :group 'x)
 
 ;;;###autoload
-(defvar font-menu-this-frame-only-p nil
+(defcustom font-menu-this-frame-only-p nil
   "*If non-nil, then changing the default font from the font menu will only
-affect one frame instead of all frames.")
+affect one frame instead of all frames."
+  :type 'boolean
+  :group 'x)
 
 ;; only call XListFonts (and parse) once per device.
 ;; ( (device . [parsed-list-fonts family-menu size-menu weight-menu]) ...)