[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.

--- a/lisp/msw-faces.el	Fri Jan 28 02:36:28 2005 +0000
+++ b/lisp/msw-faces.el	Fri Jan 28 02:58:52 2005 +0000
@@ -271,7 +271,7 @@
 		     (and (string-match mswindows-font-regexp name)
 			  (string-to-int (substring name (match-beginning 3)
 						    (match-end 3)))))
-		 (list-fonts font device)))
+		 (font-list font device)))
    #'<))
 
 (defun mswindows-frob-font-size (font up-p device)