diff options
| author | Kim F. Storm | 2005-01-23 00:53:32 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-01-23 00:53:32 +0000 |
| commit | 860ea5165a57cdeb1e66b0886ac7bac4fc88d6a0 (patch) | |
| tree | 112d8d040fe3ba341288aecc2c43548637d7f13e | |
| parent | 5c20cae25beb7029f0b43e96103da93cec31a781 (diff) | |
| download | emacs-860ea5165a57cdeb1e66b0886ac7bac4fc88d6a0.tar.gz emacs-860ea5165a57cdeb1e66b0886ac7bac4fc88d6a0.zip | |
(line-move): Fix last change. Check partial
visibility at point rather than at window-start.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index e2476577fe3..02ce351c50b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3183,7 +3183,7 @@ Outline mode sets this." | |||
| 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 |