Mercurial > hg > xemacs-beta

comparison lisp/x-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 8b464283e891
children 13a418960a88
comparison
equal deleted inserted replaced
1700:0a85daf64258 1701:a1e328407366
94 (if (featurep 'mule) "*-*" "iso8859-1")) 94 (if (featurep 'mule) "*-*" "iso8859-1"))
95 (let ((case-fold-search t) 95 (let ((case-fold-search t)
96 family size weight entry monospaced-p 96 family size weight entry monospaced-p
97 dev-cache cache families sizes weights) 97 dev-cache cache families sizes weights)
98 (dolist (name (cond ((null debug) ; debugging kludge 98 (dolist (name (cond ((null debug) ; debugging kludge
99 (list-fonts "*-*-*-*-*-*-*-*-*-*-*-*-*-*" device)) 99 (list-fonts "*-*-*-*-*-*-*-*-*-*-*-*-*-*" device
100 font-menu-max-number))
100 ((stringp debug) (split-string debug "\n")) 101 ((stringp debug) (split-string debug "\n"))
101 (t debug))) 102 (t debug)))
102 (when (and (string-match x-font-regexp-ascii name) 103 (when (and (string-match x-font-regexp-ascii name)
103 (string-match x-font-regexp name)) 104 (string-match x-font-regexp name))
104 (setq weight (capitalize (match-string 1 name)) 105 (setq weight (capitalize (match-string 1 name))