(window_scroll_pixel_based): Don't recenter if

PT is partially visible in the window.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1718f06ee99f61b8bfc56a8f56044f88d106911a..1f0ab6e89e6bef937626cd81ec40bfa892304afd 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-15  Gerd Moellmann  <gerd@gnu.org>
 
+       * window.c (window_scroll_pixel_based): Don't recenter if
+       PT is partially visible in the window.
+
        * xterm.c (expose_window_tree, expose_window, expose_line): Return
        1 when overwriting mouse-face.
        (expose_frame): If mouse-face was overwritten, redo it.

diff --git a/src/window.c b/src/window.c
index abd2e6230ab0406498527e9029881498e6b631eb..95caf8780648b1df41f1b5c007c537da958aaa3d 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -3960,8 +3960,10 @@ window_scroll_pixel_based (window, n, whole, noerror)
   SET_TEXT_POS_FROM_MARKER (start, w->start);
   
   /* If PT is not visible in WINDOW, move back one half of
-     the screen.  */
-  tem = Fpos_visible_in_window_p (make_number (PT), window, Qnil);
+     the screen.  Allow PT to be partially visible, otherwise
+     something like (scroll-down 1) with PT in the line before
+     the partially visible one would recenter. */
+  tem = Fpos_visible_in_window_p (make_number (PT), window, Qt);
   if (NILP (tem))
     {
       /* Move backward half the height of the window.  Performance note: