From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 21 May 1994 01:11:51 +0000 (+0000)
Subject: (x_set_background_color): Set scroll bar backgrounds.
X-Git-Tag: emacs-19.34~8254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8acee5f65458ad69657c61b7a4b8fea9ba237fe;p=emacs.git

(x_set_background_color): Set scroll bar backgrounds.
---

diff --git a/src/xfns.c b/src/xfns.c
index 5fc2ac650ca..6f3217f84b7 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -730,7 +730,14 @@ x_set_background_color (f, arg, oldval)
 		      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);