# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 931639546 0
# Node ID 1edc68c613d89f4725e274693b4324eace691d7b
# Parent  ca83292ec6f227294284701de9eb7be61c3ea36a
(x_display_bar_cursor): Use the cursor-color
to display the bar, not the cursor foreground pixel.

diff -r ca83292ec6f2 -r 1edc68c613d8 src/xterm.c
--- a/src/xterm.c	Fri Jul 09 18:37:55 1999 +0000
+++ b/src/xterm.c	Sat Jul 10 20:45:46 1999 +0000
@@ -4828,8 +4828,27 @@
 	    && x < current_glyphs->used[y])
 	   ? current_glyphs->glyphs[y][x]
 	   : SPACEGLYPH);
+
+      {
+	XGCValues xgcv;
+	unsigned long mask;
+
+	xgcv.background = f->output_data.x->cursor_pixel;
+	xgcv.foreground = f->output_data.x->cursor_pixel;
+	xgcv.graphics_exposures = 0;
+	mask = GCForeground | GCBackground | GCGraphicsExposures;
+
+	if (FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc)
+	  XChangeGC (FRAME_X_DISPLAY (f),
+		     FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc,
+		     mask, &xgcv);
+	else
+	  FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc
+	    = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), mask, &xgcv);
+      }
+
       XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
-		      f->output_data.x->cursor_gc,
+		      FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc,
 		      CHAR_TO_PIXEL_COL (f, x),
 		      CHAR_TO_PIXEL_ROW (f, y),
 		      max (f->output_data.x->cursor_width, 1),