From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 19 Aug 1999 13:56:14 +0000 (+0000)
Subject: (XTset_vertical_scroll_bar): Fix previous change.  Clear
X-Git-Tag: emacs-pretest-21.0.90~7113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e90dbbd17e7e5cffb43fe1cadf0dc0a21e3c2a31;p=emacs.git

(XTset_vertical_scroll_bar): Fix previous change.  Clear
under scroll bar with width FRAME_SCROLL_BAR_COLS.
---

diff --git a/src/xterm.c b/src/xterm.c
index 57f7e1b8005..ac945e144b5 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -7929,7 +7929,8 @@ XTset_vertical_scroll_bar (w, portion, whole, position)
 	 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)