From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 22 Aug 1995 00:32:03 +0000 (+0000)
Subject: (display_text_line): Write blanks under the entire
X-Git-Tag: emacs-19.34~2939
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75d13c6481ab5197c98b6e1d1c9e50e89be3f211;p=emacs.git

(display_text_line): Write blanks under the entire
scroll bar, not just the first column.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index bd1bdf5bcdb..7000d8d6089 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -3036,11 +3036,16 @@ display_text_line (w, start, vpos, hpos, taboffset)
          covered up by the scroll bars, and it's distracting to see
          them when the scroll bar windows are flickering around to be
          reconfigured.  */
-      *p1++ = (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
-	       ? ' '
-	       : (dp && INTEGERP (DISP_BORDER_GLYPH (dp))
-		  ? DISP_BORDER_GLYPH (dp)
-		  : '|'));
+      if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
+	{
+	  int i;
+	  for (i = 0; i < FRAME_SCROLL_BAR_COLS (f); i++)
+	    *p1++ = SPACEGLYPH;
+	}
+      else
+	*p1++ = (dp && INTEGERP (DISP_BORDER_GLYPH (dp))
+		 ? DISP_BORDER_GLYPH (dp)
+		 : '|');
     }
   desired_glyphs->used[vpos] = max (desired_glyphs->used[vpos],
 				   p1 - desired_glyphs->glyphs[vpos]);