diff src/xterm.c @ 83541:694bbb62a75d

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-371 Update from CVS * [e-mail]/emacs--devo--0--patch-372 Update from CVS * [e-mail]/emacs--devo--0--patch-373 Update from CVS * [e-mail]/emacs--devo--0--patch-374 Update from CVS * [e-mail]/emacs--devo--0--patch-375 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-376 Update from CVS * [e-mail]/emacs--devo--0--patch-377 Update from CVS * [e-mail]/emacs--devo--0--patch-378 Update from CVS * [e-mail]/emacs--devo--0--patch-379 Merge from erc--emacs--21 * [e-mail]/emacs--devo--0--patch-380 Update from CVS * [e-mail]/emacs--devo--0--patch-381 Update from CVS * [e-mail]/emacs--devo--0--patch-382 Update from CVS * [e-mail]/emacs--devo--0--patch-383 Update from CVS * [e-mail]/emacs--devo--0--patch-384 Update from CVS * [e-mail]/emacs--devo--0--patch-385 Update from CVS * [e-mail]/emacs--devo--0--patch-386 Update from erc--emacs--22 * [e-mail]/emacs--devo--0--patch-387 Fix ERC bug introduced in last patch * [e-mail]/emacs--devo--0--patch-388 Update from erc--emacs--22 * [e-mail]/emacs--devo--0--patch-389 Update from CVS * [e-mail]/emacs--devo--0--patch-390 Update from CVS * [e-mail]/emacs--devo--0--patch-391 Update from CVS * [e-mail]/emacs--devo--0--patch-392 Update from CVS * [e-mail]/emacs--devo--0--patch-393 Update from CVS * [e-mail]/emacs--devo--0--patch-394 Update from CVS * [e-mail]/emacs--devo--0--patch-395 Update from CVS * [e-mail]/emacs--devo--0--patch-396 Update from CVS * [e-mail]/emacs--devo--0--patch-397 Update from CVS * [e-mail]/emacs--devo--0--patch-398 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-399 Update from CVS * [e-mail]/emacs--devo--0--patch-400 Update from CVS * [e-mail]/emacs--devo--0--patch-401 Update from CVS * [e-mail]/emacs--devo--0--patch-402 Update from CVS * [e-mail]/emacs--devo--0--patch-403 Rcirc update from Ryan Yeske * [e-mail]/emacs--devo--0--patch-404 Update from CVS * [e-mail]/emacs--devo--0--patch-405 Update from CVS * [e-mail]/emacs--devo--0--patch-406 Update from CVS * [e-mail]/emacs--devo--0--patch-407 Update from CVS * [e-mail]/emacs--devo--0--patch-408 Update from CVS * [e-mail]/emacs--devo--0--patch-409 Update from CVS * [e-mail]/emacs--devo--0--patch-410 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-411 Miscellaneous tq-related fixes. * [e-mail]/emacs--devo--0--patch-412 Update from CVS * [e-mail]/gnus--rel--5.10--patch-121 Update from CVS * [e-mail]/gnus--rel--5.10--patch-122 Update from CVS * [e-mail]/gnus--rel--5.10--patch-123 Update from CVS * [e-mail]/gnus--rel--5.10--patch-124 Update from CVS * [e-mail]/gnus--rel--5.10--patch-125 Update from CVS * [e-mail]/gnus--rel--5.10--patch-126 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-127 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-581

--- a/src/xterm.c	Sun Jul 30 10:19:46 2006 +0000
+++ b/src/xterm.c	Sat Oct 14 16:56:21 2006 +0000
@@ -181,6 +181,10 @@
 
 int x_use_underline_position_properties;
 
+/* Non-zero means to draw the underline at the same place as the descent line.  */
+
+int x_underline_at_descent_line;
+
 /* This is a chain of structures for all the X displays currently in
    use.  */
 
@@ -2601,7 +2605,9 @@
       int background_width = s->background_width;
       int x = s->x, left_x = window_box_left_offset (s->w, TEXT_AREA);
 
-      if (x < left_x)
+      /* Don't draw into left margin, fringe or scrollbar area
+         except for header line and mode line.  */
+      if (x < left_x && !s->row->mode_line_p)
 	{
 	  background_width -= left_x - x;
 	  x = left_x;
@@ -2695,32 +2701,35 @@
 	  if (!XGetFontProperty (s->font, XA_UNDERLINE_THICKNESS, &h))
 	    h = 1;
 
-	  /* Get the underline position.  This is the recommended
-	     vertical offset in pixels from the baseline to the top of
-	     the underline.  This is a signed value according to the
-	     specs, and its default is
-
-	     ROUND ((maximum descent) / 2), with
-	     ROUND(x) = floor (x + 0.5)  */
-
-	  if (x_use_underline_position_properties
-	      && XGetFontProperty (s->font, XA_UNDERLINE_POSITION, &tem))
-	    y = s->ybase + (long) tem;
-	  else if (s->face->font)
-	    y = s->ybase + (s->face->font->max_bounds.descent + 1) / 2;
-	  else
+          if (x_underline_at_descent_line)
 	    y = s->y + s->height - h;
+          else
+            {
+	      /* Get the underline position.  This is the recommended
+                 vertical offset in pixels from the baseline to the top of
+                 the underline.  This is a signed value according to the
+                 specs, and its default is
+
+	         ROUND ((maximum descent) / 2), with
+	         ROUND(x) = floor (x + 0.5)  */
+
+              if (x_use_underline_position_properties
+                  && XGetFontProperty (s->font, XA_UNDERLINE_POSITION, &tem))
+                y = s->ybase + (long) tem;
+              else if (s->face->font)
+                y = s->ybase + (s->face->font->max_bounds.descent + 1) / 2;
+            }
 
 	  if (s->face->underline_defaulted_p)
 	    XFillRectangle (s->display, s->window, s->gc,
-			    s->x, y, s->width, h);
+			    s->x, y, s->background_width, h);
 	  else
 	    {
 	      XGCValues xgcv;
 	      XGetGCValues (s->display, s->gc, GCForeground, &xgcv);
 	      XSetForeground (s->display, s->gc, s->face->underline_color);
 	      XFillRectangle (s->display, s->window, s->gc,
-			      s->x, y, s->width, h);
+			      s->x, y, s->background_width, h);
 	      XSetForeground (s->display, s->gc, xgcv.foreground);
 	    }
 	}
@@ -2732,14 +2741,14 @@
 
 	  if (s->face->overline_color_defaulted_p)
 	    XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy,
-			    s->width, h);
+			    s->background_width, h);
 	  else
 	    {
 	      XGCValues xgcv;
 	      XGetGCValues (s->display, s->gc, GCForeground, &xgcv);
 	      XSetForeground (s->display, s->gc, s->face->overline_color);
 	      XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy,
-			      s->width, h);
+			      s->background_width, h);
 	      XSetForeground (s->display, s->gc, xgcv.foreground);
 	    }
 	}
@@ -10096,8 +10105,8 @@
 
   for (i = 0; i < dpyinfo->n_fonts; i++)
     if (dpyinfo->font_table[i].name
-	&& (!strcmp (dpyinfo->font_table[i].name, fontname)
-	    || !strcmp (dpyinfo->font_table[i].full_name, fontname)))
+	&& (!strcasecmp (dpyinfo->font_table[i].name, fontname)
+	    || !strcasecmp (dpyinfo->font_table[i].full_name, fontname)))
       return (dpyinfo->font_table + i);
   return NULL;
 }
@@ -10644,6 +10653,11 @@
 
   dpyinfo->cut_buffers_initialized = 0;
 
+  dpyinfo->x_dnd_atoms_size = 8;
+  dpyinfo->x_dnd_atoms_length = 0;
+  dpyinfo->x_dnd_atoms = xmalloc (sizeof (*dpyinfo->x_dnd_atoms)
+                                  * dpyinfo->x_dnd_atoms_size);
+
   connection = ConnectionNumber (dpyinfo->display);
   dpyinfo->connection = connection;
 
@@ -11104,6 +11118,14 @@
 to 4.1, set this to nil.  */);
   x_use_underline_position_properties = 1;
 
+  DEFVAR_BOOL ("x-underline-at-descent-line",
+	       &x_underline_at_descent_line,
+     doc: /* *Non-nil means to draw the underline at the same place as the descent line.
+nil means to draw the underline according to the value of the variable
+`x-use-underline-position-properties', which is usually at the baseline
+level.  The default value is nil.  */);
+  x_underline_at_descent_line = 0;
+
   DEFVAR_BOOL ("x-mouse-click-focus-ignore-position",
 	       &x_mouse_click_focus_ignore_position,
     doc: /* Non-nil means that a mouse click to focus a frame does not move point.