Mercurial > emacs

changeset 37608:9ce50239786f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_set_foreground_color): Set frame's cursor_pixel.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 07 May 2001 17:38:07 +0000
parents 2f80188cbbd6
children c6d7c9d92543
files src/xfns.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
       {