# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 935070974 0
# Node ID df0478893e10c6e05af43bfbd4019febf5bdc4e0
# Parent  fa344b2d70417d59af4de6dcbd70973479a30f0b
(XTset_vertical_scroll_bar): Fix previous change.  Clear
under scroll bar with width FRAME_SCROLL_BAR_COLS.

diff -r fa344b2d7041 -r df0478893e10 src/xterm.c
--- a/src/xterm.c	Wed Aug 18 13:25:45 1999 +0000
+++ b/src/xterm.c	Thu Aug 19 13:56:14 1999 +0000
@@ -7929,7 +7929,8 @@
 	 for them on the frame, we have to clear "under" them.  */
       XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
 		  pixel_left, pixel_top,
-		  pixel_width + 1, pixel_height, False);
+		  FRAME_SCROLL_BAR_COLS (f) * CANON_X_UNIT (f),
+		  pixel_height, False);
 
       /* Move/size the scroll bar widget.  */
       if (mask)