Mercurial > hg > xemacs-beta

comparison lisp/msw-font-menu.el @ 2527:491f8cf78a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-28 02:58:38 by ben] Abstract font-list/color-list font-menu.el, font.el, frame.el, gtk-font-menu.el, minibuf.el, msw-faces.el, msw-font-menu.el, obsolete.el, x-faces.el, x-font-menu.el: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions. console-impl.h, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions.
author ben
date Fri, 28 Jan 2005 02:58:52 +0000
parents 79c6ff3eef26
children b4f4e0cc90f1
comparison
equal deleted inserted replaced
2526:902d5bd9b75c 2527:491f8cf78a9c
72 (setq mswindows-font-regexp-ascii "Western")) 72 (setq mswindows-font-regexp-ascii "Western"))
73 (let ((case-fold-search t) 73 (let ((case-fold-search t)
74 family size weight entry 74 family size weight entry
75 dev-cache cache families sizes weights) 75 dev-cache cache families sizes weights)
76 (dolist (name (cond ((null debug) ; debugging kludge 76 (dolist (name (cond ((null debug) ; debugging kludge
77 (list-fonts "::::" device)) 77 (font-list "::::" device))
78 ((stringp debug) (split-string debug "\n")) 78 ((stringp debug) (split-string debug "\n"))
79 (t debug))) 79 (t debug)))
80 (when (and (string-match mswindows-font-regexp-ascii name) 80 (when (and (string-match mswindows-font-regexp-ascii name)
81 (string-match mswindows-font-regexp name)) 81 (string-match mswindows-font-regexp name))
82 (setq weight (capitalize (car (mswindows-parse-font-style 82 (setq weight (capitalize (car (mswindows-parse-font-style