# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003932297 0
# Node ID 98531a716f4827d4ee03d66c7c8b92ff47229b17
# Parent  561bc8b0392f1d7c929f89fa2df1cb33d30e346a
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Fix clearing of area not covered by scroll bar.

diff -r 561bc8b0392f -r 98531a716f48 src/xterm.c
--- a/src/xterm.c	Wed Oct 24 12:37:32 2001 +0000
+++ b/src/xterm.c	Wed Oct 24 14:04:57 2001 +0000
@@ -9208,11 +9208,14 @@
   /* Does the scroll bar exist yet?  */
   if (NILP (w->vertical_scroll_bar))
     {
-      BLOCK_INPUT;
       if (width && height)
-	x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
-		      left, top, width, height, False);
-      UNBLOCK_INPUT;
+	{
+	  BLOCK_INPUT;
+	  x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+			left, top, width, height, False);
+	  UNBLOCK_INPUT;
+	}
+      
       bar = x_scroll_bar_create (w, top, sb_left, sb_width, height);
     }
   else
@@ -9273,7 +9276,7 @@
 	int rest = area_width - sb_width;
 	if (rest > 0)
 	  x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
-			left + area_width -  rest, 0,
+			left + area_width -  rest, top,
 			rest, max (height, 1), False);
       }