From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Sep 2002 03:26:01 +0000 (+0000)
Subject: (try_scrolling): If after make_cursor_line_fully_visible
X-Git-Tag: ttn-vms-21-2-B4~13215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef3c2c73ce2f3b06400ebc646b1a56444fa62190;p=emacs.git

(try_scrolling): If after make_cursor_line_fully_visible
we go to too_near_end, call clear_glyph_matrix.
(redisplay_window): After make_cursor_line_fully_visible,
call clear_glyph_matrix and bypass `goto done'.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index d6f26cbf8c8..16c351b9f91 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -9789,7 +9789,10 @@ try_scrolling (window, just_this_one_p, scroll_conservatively,
       /* If cursor ends up on a partially visible line,
 	 treat that as being off the bottom of the screen.  */
       if (! make_cursor_line_fully_visible (w))
-	goto too_near_end;
+	{
+	  clear_glyph_matrix (w->desired_matrix);
+	  goto too_near_end;
+	}
       rc = SCROLLING_SUCCESS;
     }
 
@@ -10496,9 +10499,10 @@ redisplay_window (window, just_this_one_p)
 	    w->base_line_number = Qnil;
 
 	  if (!make_cursor_line_fully_visible (w))
+	    clear_glyph_matrix (w->desired_matrix);
 	    /* Drop through and scroll.  */
-	    ;
-	  goto done;
+	  else
+	    goto done;
 	}
       else
 	clear_glyph_matrix (w->desired_matrix);