From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 May 2001 17:38:07 +0000 (+0000)
Subject: (x_set_foreground_color): Set frame's cursor_pixel.
X-Git-Tag: emacs-pretest-21.0.103~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36d42089e382f5d59cd39448a05d15b93b9de18a;p=emacs.git

(x_set_foreground_color): Set frame's cursor_pixel.
---

diff --git a/src/xfns.c b/src/xfns.c
index f6972f9c12b..52fe0c23dff 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1358,8 +1358,13 @@ x_set_foreground_color (f, arg, oldval)
 		      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 @@ x_set_background_color (f, arg, oldval)
 		      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);
       {