3183 |
(defun line-move (arg &optional noerror to-end) |
(defun line-move (arg &optional noerror to-end) |
3184 |
(if auto-window-vscroll |
(if auto-window-vscroll |
3185 |
(let ((forward (> arg 0)) |
(let ((forward (> arg 0)) |
3186 |
(pvis (pos-visible-in-window-p (window-start) nil t))) |
(pvis (pos-visible-in-window-p (point) nil t))) |
3187 |
(if (and pvis (null (nth 2 pvis)) |
(if (and pvis (null (nth 2 pvis)) |
3188 |
(> (nth (if forward 4 3) pvis) 0)) |
(> (nth (if forward 4 3) pvis) 0)) |
3189 |
(set-window-vscroll nil |
(set-window-vscroll nil |