Mercurial > hg > xemacs-beta

comparison src/objects-msw.c @ 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 79c6ff3eef26
children 9fc738581a9d
comparison
equal deleted inserted replaced
1700:0a85daf64258 1701:a1e328407366
1922 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0)); 1922 FONT_INSTANCE_MSWINDOWS_HFONT_VARIANT (f, 0, 0));
1923 1923
1924 } 1924 }
1925 1925
1926 static Lisp_Object 1926 static Lisp_Object
1927 mswindows_list_fonts (Lisp_Object pattern, Lisp_Object device) 1927 mswindows_list_fonts (Lisp_Object pattern, Lisp_Object device,
1928 Lisp_Object maxnumber)
1928 { 1929 {
1929 struct device *d = XDEVICE (device); 1930 struct device *d = XDEVICE (device);
1930 Lisp_Object font_list = Qnil, fonttail, result = Qnil; 1931 Lisp_Object font_list = Qnil, fonttail, result = Qnil;
1931 1932
1932 if (DEVICE_MSWINDOWS_P (d)) 1933 if (DEVICE_MSWINDOWS_P (d))