# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1019755615 0
# Node ID b2c04d1e30ffac90f0d240a51b6fc90bc559ec68
# Parent  c1038e3c47bd6f9662fa86ae228adfa20437757e
(x_draw_phys_cursor_glyph): Take into account that a box
cursor on a stretch glyph has a width that depends on
x_stretch_cursor_p.

diff -r c1038e3c47bd -r b2c04d1e30ff src/xterm.c
--- a/src/xterm.c	Thu Apr 25 16:30:49 2002 +0000
+++ b/src/xterm.c	Thu Apr 25 17:26:55 2002 +0000
@@ -11478,7 +11478,13 @@
 	{
 	  struct glyph *cursor_glyph = get_phys_cursor_glyph (w);
 	  if (cursor_glyph)
-	    w->phys_cursor_width = cursor_glyph->pixel_width;
+	    {
+	      if (x_stretch_cursor_p)
+		w->phys_cursor_width = cursor_glyph->pixel_width;
+	      else
+		w->phys_cursor_width = min (CANON_X_UNIT (XFRAME (w->frame)),
+					    cursor_glyph->pixel_width);
+	    }
 	}
 
       /* When we erase the cursor, and ROW is overlapped by other