From: Miles Bader <miles@gnu.org>
Date: Fri, 8 Dec 2000 18:56:35 +0000 (+0000)
Subject: (Fmove_to_window_line): Skip past any partially visible first line.
X-Git-Tag: emacs-pretest-21.0.93~71
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=163784df97c4b76ad15a4787908fdeff2af226cd;p=emacs.git

(Fmove_to_window_line): Skip past any partially visible first line.
---

diff --git a/src/window.c b/src/window.c
index 3467be7edda..223ef072386 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4482,12 +4482,7 @@ displayed_window_lines (w)
       int lines = (rest + CANON_Y_UNIT (f) - 1) / CANON_Y_UNIT (f);
       it.vpos += lines;
     }
-#if 0
-  else if (it.current_y < height && bottom_y > height)
-    /* Partially visible line at the bottom.  */
-    ++it.vpos;
-#endif
-  
+
   return it.vpos;
 }
 
@@ -4529,6 +4524,10 @@ zero means top of window, negative means relative to bottom of window.")
 	XSETINT (arg, XINT (arg) + lines);
     }
 
+  if (w->vscroll)
+    /* Skip past a partially visible first line.  */
+    XSETINT (arg, XINT (arg) + 1);
+
   return Fvertical_motion (arg, window);
 }