# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1118665111 0
# Node ID 2a6bb16cad69f2dabb0849ce0a0783dc76065df2
# Parent  d83d568c5952b70aca33df34a733786047113805
(x_use_underline_position_properties): New variable.
(x_draw_glyph_string): Remind in a comment to change doc string of
x-use-underline-position-properties if/when underline positioning is
implemented.
(syms_of_w32term): DEFVAR_BOOL x-use-underline-position-properties,
and initialize it to nil.

diff -r d83d568c5952 -r 2a6bb16cad69 src/w32term.c
--- a/src/w32term.c	Mon Jun 13 12:08:25 2005 +0000
+++ b/src/w32term.c	Mon Jun 13 12:18:31 2005 +0000
@@ -87,6 +87,10 @@
 /* Last window where we saw the mouse.  Used by mouse-autoselect-window.  */
 static Lisp_Object last_window;
 
+/* Non-zero means make use of UNDERLINE_POSITION font properties.
+   (Not yet supported, see TODO in x_draw_glyph_string.)  */
+int x_use_underline_position_properties;
+
 extern unsigned int msh_mousewheel;
 
 extern void free_frame_menubar ();
@@ -2488,7 +2492,9 @@
           unsigned long dy = s->height - h;
 
 	  /* TODO: Use font information for positioning and thickness
-	     of underline.  See OUTLINETEXTMETRIC, and xterm.c.  */
+	     of underline.  See OUTLINETEXTMETRIC, and xterm.c.
+	     Note: If you make this work, don't forget to change the
+	     doc string of x-use-underline-position-properties below.  */
           if (s->face->underline_defaulted_p)
             {
               w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
@@ -6536,6 +6542,18 @@
 			     &w32_use_visible_system_caret, 0))
     w32_use_visible_system_caret = 0;
 
+  /* We don't yet support this, but defining this here avoids whining
+     from cus-start.el and other places, like "M-x set-variable".  */
+  DEFVAR_BOOL ("x-use-underline-position-properties",
+	       &x_use_underline_position_properties,
+     doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
+nil means ignore them.  If you encounter fonts with bogus
+UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
+to 4.1, set this to nil.
+
+NOTE: Not supported on MS-Windows yet.  */);
+  x_use_underline_position_properties = 0;
+
   DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
 	       doc: /* If not nil, Emacs uses toolkit scroll bars.  */);
   Vx_toolkit_scroll_bars = Qt;