# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 769482711 0
# Node ID 880fcef68f73e8f9cdb591b655d16273c5f7de51
# Parent  cdde619af40c29f1db579d6ea05ee9111aad57b9
(x_set_background_color): Set scroll bar backgrounds.

diff -r cdde619af40c -r 880fcef68f73 src/xfns.c
--- a/src/xfns.c	Fri May 20 23:56:40 1994 +0000
+++ b/src/xfns.c	Sat May 21 01:11:51 1994 +0000
@@ -730,7 +730,14 @@
 		      f->display.x->background_pixel);
       XSetWindowBackground (x_current_display, FRAME_X_WINDOW (f),
 			    f->display.x->background_pixel);
-
+      {
+	Lisp_Object bar;
+	for (bar = FRAME_SCROLL_BARS (f); !NILP (bar);
+	     bar = XSCROLL_BAR (bar)->next)
+	  XSetWindowBackground (x_current_display,
+				SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)),
+				f->display.x->background_pixel);
+      }
 #else
       temp = XMakeTile (f->display.x->background_pixel);
       XChangeBackground (FRAME_X_WINDOW (f), temp);