# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936715741 0
# Node ID 9aecfcf3cb4328d302a1545efd2010e08d16857d
# Parent  c6be980d15a6704ebcdaf6594b1f4cbfad4a19e4
(x_set_foreground_color): Call
update_face_from_frame_parameter.
(x_set_background_color): Ditto.
(x_set_mouse_color): Ditto.
(x_set_cursor_color): Ditto.
(x_set_border_color): Ditto.
(x_set_scroll_bar_foreground): Ditto.
(x_set_scroll_bar_background): Ditto.

diff -r c6be980d15a6 -r 9aecfcf3cb43 src/xfns.c
--- a/src/xfns.c	Tue Sep 07 14:48:59 1999 +0000
+++ b/src/xfns.c	Tue Sep 07 14:49:01 1999 +0000
@@ -1405,7 +1405,7 @@
       XSetBackground (FRAME_X_DISPLAY (f), f->output_data.x->reverse_gc,
 		      f->output_data.x->foreground_pixel);
       UNBLOCK_INPUT;
-      recompute_basic_faces (f);
+      update_face_from_frame_parameter (f, Qforeground_color, arg);
       if (FRAME_VISIBLE_P (f))
         redraw_frame (f);
     }
@@ -1447,7 +1447,7 @@
       }
       UNBLOCK_INPUT;
 
-      recompute_basic_faces (f);
+      update_face_from_frame_parameter (f, Qbackground_color, arg);
 
       if (FRAME_VISIBLE_P (f))
         redraw_frame (f);
@@ -1586,6 +1586,8 @@
 
   XFlush (FRAME_X_DISPLAY (f));
   UNBLOCK_INPUT;
+
+  update_face_from_frame_parameter (f, Qmouse_color, arg);
 }
 
 void
@@ -1631,6 +1633,8 @@
 	  x_update_cursor (f, 1);
 	}
     }
+
+  update_face_from_frame_parameter (f, Qcursor_color, arg);
 }
 
 /* Set the border-color of frame F to value described by ARG.
@@ -1649,15 +1653,12 @@
      struct frame *f;
      Lisp_Object arg, oldval;
 {
-  unsigned char *str;
   int pix;
 
   CHECK_STRING (arg, 0);
-  str = XSTRING (arg)->data;
-
   pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
-
   x_set_border_pixel (f, pix);
+  update_face_from_frame_parameter (f, Qborder_color, arg);
 }
 
 /* Set the border-color of frame F to pixel value PIX.
@@ -2034,7 +2035,8 @@
 	(*condemn_scroll_bars_hook) (f);
       if (judge_scroll_bars_hook)
 	(*judge_scroll_bars_hook) (f);
-      
+
+      update_face_from_frame_parameter (f, Qscroll_bar_foreground, value);
       redraw_frame (f);
     }
 }
@@ -2069,6 +2071,7 @@
       if (judge_scroll_bars_hook)
 	(*judge_scroll_bars_hook) (f);
       
+      update_face_from_frame_parameter (f, Qscroll_bar_background, value);
       redraw_frame (f);
     }
 }
@@ -3851,7 +3854,7 @@
 
   /* Set up faces after all frame parameters are known.  */
   call1 (Qface_set_after_frame_default, frame);
-  
+
 #ifdef USE_X_TOOLKIT
   /* Create the menu bar.  */
   if (!minibuffer_only && FRAME_EXTERNAL_MENU_BAR (f))