From 860ea5165a57cdeb1e66b0886ac7bac4fc88d6a0 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 23 Jan 2005 00:53:32 +0000 Subject: [PATCH] (line-move): Fix last change. Check partial visibility at point rather than at window-start. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5