Mercurial > emacs
comparison lisp/simple.el @ 63037:e7db86688ce6
Add comment to line-move re. sit-for.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 05 Jun 2005 17:19:55 +0000 |
| parents | 5e1ac4f79779 |
| children | a473771b436f 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 63036:55298152ef7d | 63037:e7db86688ce6 |
|---|---|
| 3363 (* (frame-char-height) (- arg)))))) | 3363 (* (frame-char-height) (- arg)))))) |
| 3364 t) | 3364 t) |
| 3365 (set-window-vscroll nil 0) | 3365 (set-window-vscroll nil 0) |
| 3366 (when (line-move-1 arg noerror to-end) | 3366 (when (line-move-1 arg noerror to-end) |
| 3367 (when (not forward) | 3367 (when (not forward) |
| 3368 ;; Update display before calling pos-visible-in-window-p, | |
| 3369 ;; because it depends on window-start being up-to-date. | |
| 3368 (sit-for 0) | 3370 (sit-for 0) |
| 3369 (if (and (setq part (nth 2 (pos-visible-in-window-p | 3371 (if (and (setq part (nth 2 (pos-visible-in-window-p |
| 3370 (line-beginning-position) nil t))) | 3372 (line-beginning-position) nil t))) |
| 3371 (> (cdr part) 0)) | 3373 (> (cdr part) 0)) |
| 3372 (set-window-vscroll nil (cdr part) t))) | 3374 (set-window-vscroll nil (cdr part) t))) |