Mercurial > hg > xemacs-beta

comparison lisp/font-menu.el @ 1701:a1e328407366

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-20 01:14:24 by youngs] 2003-09-20 James LewisMoss <dres@lewismoss.org> * console-impl.h (struct console_methods): add third arg to list_fonts * objects.c (Flist_fonts): Add third arg to list-fonts: maxnumber * objects-gtk.c (gtk_list_fonts): Add third (ignored) arg for maxnumber. * objects-msw.c (mswindows_list_fonts): Add third (ignored) arg for maxnumber. * objects-tty.c (tty_list_fonts): Add third (ignored) arg for maxnumber. * objects-x.c (x_list_fonts): Add third arg to specify the maximum fonts recieved from the server. 2003-09-20 James LewisMoss <dres@lewismoss.org> * font-menu.el (font-menu-max-number): New variable to specify the maximum recieved fonts. * x-font-menu.el (x-reset-device-font-menus): Use new variable (font-menu-max-number) to list-fonts.
author youngs
date Sat, 20 Sep 2003 01:14:30 +0000
parents 30118fdc4f1f
children 13a418960a88
comparison
equal deleted inserted replaced
1700:0a85daf64258 1701:a1e328407366
128 ;;;###autoload 128 ;;;###autoload
129 (defcustom font-menu-this-frame-only-p nil 129 (defcustom font-menu-this-frame-only-p nil
130 "*If non-nil, then changing the default font from the font menu will only 130 "*If non-nil, then changing the default font from the font menu will only
131 affect one frame instead of all frames." 131 affect one frame instead of all frames."
132 :type 'boolean 132 :type 'boolean
133 :group 'font-menu)
134
135 (defcustom font-menu-max-number nil
136 "The maximum number of fonts retrieved from the server"
137 :type 'integer
133 :group 'font-menu) 138 :group 'font-menu)
134 139
135 (defvaralias 'font-menu-max-items 'menu-max-items) 140 (defvaralias 'font-menu-max-items 'menu-max-items)
136 (defvaralias 'font-menu-submenu-name-format 'menu-submenu-name-format) 141 (defvaralias 'font-menu-submenu-name-format 'menu-submenu-name-format)
137 142