From: Kim F. Storm Date: Sun, 23 Jan 2005 00:53:32 +0000 (+0000) Subject: (line-move): Fix last change. Check partial X-Git-Tag: ttn-vms-21-2-B4~2616 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=860ea5165a57cdeb1e66b0886ac7bac4fc88d6a0;p=emacs.git (line-move): Fix last change. Check partial visibility at point rather than at window-start. --- diff --git a/lisp/simple.el b/lisp/simple.el index e2476577fe3..02ce351c50b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3183,7 +3183,7 @@ Outline mode sets this." (defun line-move (arg &optional noerror to-end) (if auto-window-vscroll (let ((forward (> arg 0)) - (pvis (pos-visible-in-window-p (window-start) nil t))) + (pvis (pos-visible-in-window-p (point) nil t))) (if (and pvis (null (nth 2 pvis)) (> (nth (if forward 4 3) pvis) 0)) (set-window-vscroll nil