Mercurial > emacs
changeset 63136:bbac4c8066b4
Comment changes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Jun 2005 15:35:05 +0000 |
| parents | ade1be8b63fd |
| children | 08283a69b880 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Jun 08 15:34:13 2005 +0000 +++ b/lisp/simple.el Wed Jun 08 15:35:05 2005 +0000 @@ -3342,10 +3342,15 @@ (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 @@ ;; 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))