Mercurial > hg > xemacs-beta

comparison src/objects.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 e22b0213b713
children 61855263cb07
comparison
equal deleted inserted replaced
1700:0a85daf64258 1701:a1e328407366
505 505
506 return MAYBE_LISP_DEVMETH (XDEVICE (f->device), 506 return MAYBE_LISP_DEVMETH (XDEVICE (f->device),
507 font_instance_properties, (f)); 507 font_instance_properties, (f));
508 } 508 }
509 509
510 DEFUN ("list-fonts", Flist_fonts, 1, 2, 0, /* 510 DEFUN ("list-fonts", Flist_fonts, 1, 3, 0, /*
511 Return a list of font names matching the given pattern. 511 Return a list of font names matching the given pattern.
512 DEVICE specifies which device to search for names, and defaults to the 512 DEVICE specifies which device to search for names, and defaults to the
513 currently selected device. 513 currently selected device.
514 */ 514 */
515 (pattern, device)) 515 (pattern, device, maxnumber))
516 { 516 {
517 CHECK_STRING (pattern); 517 CHECK_STRING (pattern);
518 device = wrap_device (decode_device (device)); 518 device = wrap_device (decode_device (device));
519 519
520 return MAYBE_LISP_DEVMETH (XDEVICE (device), list_fonts, (pattern, device)); 520 return MAYBE_LISP_DEVMETH (XDEVICE (device), list_fonts, (pattern, device,
521 maxnumber));
521 } 522 }
522 523
523 524
524 /**************************************************************************** 525 /****************************************************************************
525 Color Object 526 Color Object