# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1216946205 0
# Node ID 8e0048b7af163ea1eb53c9d3d3ec20ddf2714a2b
# Parent  3035988dd0b36507a2edab075154598b11b58ce4
(Fx_select_font): Reverse sense of second arg.

diff -r 3035988dd0b3 -r 8e0048b7af16 src/ChangeLog
--- a/src/ChangeLog	Thu Jul 24 23:46:50 2008 +0000
+++ b/src/ChangeLog	Fri Jul 25 00:36:45 2008 +0000
@@ -1,3 +1,7 @@
+2008-07-25  Jason Rumney  <jasonr@gnu.org>
+
+        * w32font.c (Fx_select_font): Reverse sense of second arg.
+
 2008-07-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* syntax.c (struct lisp_parse_state, char_quoted, inc_bytepos)
diff -r 3035988dd0b3 -r 8e0048b7af16 src/w32font.c
--- a/src/w32font.c	Thu Jul 24 23:46:50 2008 +0000
+++ b/src/w32font.c	Fri Jul 25 00:36:45 2008 +0000
@@ -2328,10 +2328,10 @@
 Return fontconfig style font string corresponding to the selection.
 
 If FRAME is omitted or nil, it defaults to the selected frame.
-If INCLUDE-PROPORTIONAL is non-nil, include proportional fonts
+If EXCLUDE-PROPORTIONAL is non-nil, exclude proportional fonts
 in the font selection dialog. */)
-  (frame, include_proportional)
-     Lisp_Object frame, include_proportional;
+  (frame, exclude_proportional)
+     Lisp_Object frame, exclude_proportional;
 {
   FRAME_PTR f = check_x_frame (frame);
   CHOOSEFONT cf;
@@ -2348,9 +2348,9 @@
   cf.hwndOwner = FRAME_W32_WINDOW (f);
   cf.Flags = CF_FORCEFONTEXIST | CF_SCREENFONTS | CF_NOVERTFONTS;
 
-  /* Unless include_proportional is non-nil, limit the selection to
+  /* If exclude_proportional is non-nil, limit the selection to
      monospaced fonts.  */
-  if (NILP (include_proportional))
+  if (!NILP (exclude_proportional))
     cf.Flags |= CF_FIXEDPITCHONLY;
 
   cf.lpLogFont = &lf;