Mercurial > emacs
comparison lisp/simple.el @ 59698:815c3e98edef
(line-move): Fix last change. Check partial
visibility at point rather than at window-start.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Sun, 23 Jan 2005 00:53:32 +0000 |
parents | 1d33b3da1157 |
children | 5f125540565b |
comparison
equal
deleted
inserted
replaced
59697:3c5cc02ff90e | 59698:815c3e98edef |
---|---|
3181 | 3181 |
3182 ;; Perform vertical scrolling of tall images if necessary. | 3182 ;; Perform vertical scrolling of tall images if necessary. |
3183 (defun line-move (arg &optional noerror to-end) | 3183 (defun line-move (arg &optional noerror to-end) |
3184 (if auto-window-vscroll | 3184 (if auto-window-vscroll |
3185 (let ((forward (> arg 0)) | 3185 (let ((forward (> arg 0)) |
3186 (pvis (pos-visible-in-window-p (window-start) nil t))) | 3186 (pvis (pos-visible-in-window-p (point) nil t))) |
3187 (if (and pvis (null (nth 2 pvis)) | 3187 (if (and pvis (null (nth 2 pvis)) |
3188 (> (nth (if forward 4 3) pvis) 0)) | 3188 (> (nth (if forward 4 3) pvis) 0)) |
3189 (set-window-vscroll nil | 3189 (set-window-vscroll nil |
3190 (if forward | 3190 (if forward |
3191 (+ (window-vscroll nil t) | 3191 (+ (window-vscroll nil t) |