# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 989257087 0
# Node ID 9ce50239786fac0880acba0a64c35b256453b203
# Parent  2f80188cbbd6e11bca06f4f17f6dac0bc8c34253
(x_set_foreground_color): Set frame's cursor_pixel.

diff -r 2f80188cbbd6 -r 9ce50239786f src/xfns.c
--- a/src/xfns.c	Mon May 07 16:00:50 2001 +0000
+++ b/src/xfns.c	Mon May 07 17:38:07 2001 +0000
@@ -1358,8 +1358,13 @@
 		      f->output_data.x->foreground_pixel);
       XSetBackground (FRAME_X_DISPLAY (f), f->output_data.x->reverse_gc,
 		      f->output_data.x->foreground_pixel);
+      
       XSetBackground (FRAME_X_DISPLAY (f), f->output_data.x->cursor_gc,
 		      f->output_data.x->foreground_pixel);
+      unload_color (f, f->output_data.x->cursor_pixel);
+      f->output_data.x->cursor_pixel
+	= x_copy_color (f, f->output_data.x->foreground_pixel);
+
       UNBLOCK_INPUT;
       update_face_from_frame_parameter (f, Qforeground_color, arg);
       if (FRAME_VISIBLE_P (f))
@@ -1387,6 +1392,7 @@
 		      f->output_data.x->background_pixel);
       XSetForeground (FRAME_X_DISPLAY (f), f->output_data.x->cursor_gc,
 		      f->output_data.x->background_pixel);
+      
       XSetWindowBackground (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
 			    f->output_data.x->background_pixel);
       {