From 03ceda9edd34ce05068a118bc8fd49913725fa09 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Jun 2005 15:35:05 +0000 Subject: [PATCH] Comment changes. --- lisp/simple.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 097dde16d01..ba661e54a19 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3342,10 +3342,15 @@ Outline mode sets this." (or (memq prop buffer-invisibility-spec) (assq prop buffer-invisibility-spec))))) -;; Perform vertical scrolling of tall images if necessary. -;; Don't vscroll in a keyboard macro. +;; This is like line-move-1 except that it also performs +;; vertical scrolling of tall images if appropriate. +;; That is not really a clean thing to do, since it mixes +;; scrolling with cursor motion. But so far we don't have +;; a cleaner solution to the problem of making C-n do something +;; useful given a tall image. (defun line-move (arg &optional noerror to-end try-vscroll) (if (and auto-window-vscroll try-vscroll + ;; But don't vscroll in a keyboard macro. (not defining-kbd-macro) (not executing-kbd-macro)) (let ((forward (> arg 0)) @@ -3368,6 +3373,8 @@ Outline mode sets this." ;; Update display before calling pos-visible-in-window-p, ;; because it depends on window-start being up-to-date. (sit-for 0) + ;; If the current line is partly hidden at the bottom, + ;; scroll it partially up so as to unhide the bottom. (if (and (setq part (nth 2 (pos-visible-in-window-p (line-beginning-position) nil t))) (> (cdr part) 0)) -- 2.39.5