From 0e7a5039b92c43e3e80d36b933959f319a16a534 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 20 Sep 2006 09:45:19 +0000 Subject: [PATCH] (line-move-partial): Call pos-visible-in-window-p with position t instead of trying both window-end and window-end - 1. --- lisp/simple.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 8f954c281a1..1d1e34c77e3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3496,11 +3496,9 @@ Outline mode sets this." (>= rbot (frame-char-height)) (<= ypos (- (frame-char-height)))) (unless lh - (let* ((wend (window-end nil t)) - (evis (or (pos-visible-in-window-p wend nil t) - (pos-visible-in-window-p (1- wend) nil t)))) - (setq rbot (nth 3 evis) - vpos (nth 5 evis)))) + (let ((wend (pos-visible-in-window-p t nil t))) + (setq rbot (nth 3 wend) + vpos (nth 5 wend)))) (cond ;; If last line of window is fully visible, move forward. ((or (null rbot) (= rbot 0)) -- 2.39.2