procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(line-move): Only call sit-for when moving backwards.

Browse source
This commit is contained in:
Kim F. Storm 2005-06-03 23:48:21 +00:00
parent 555228aa59
commit 0fc367df13
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/simple.el
View file

@ -3351,25 +3351,25 @@ Outline mode sets this."
(let ((forward (> arg 0))
(part (nth 2 (pos-visible-in-window-p (point) nil t))))
(if (and (consp part)
(> (setq part (if forward (cdr part) (car part))) 0))
(> (if forward (cdr part) (car part)) 0))
(set-window-vscroll nil
(if forward
(+ (window-vscroll nil t)
(min part
(min (cdr part)
(* (frame-char-height) arg)))
(max 0
(- (window-vscroll nil t)
(min part
(min (car part)
(* (frame-char-height) (- arg))))))
t)
(set-window-vscroll nil 0)
(when (line-move-1 arg noerror to-end)
(sit-for 0)
(if (and (not forward)
(setq part (nth 2 (pos-visible-in-window-p
(line-beginning-position) nil t)))
(> (cdr part) 0))
(set-window-vscroll nil (cdr part) t))
(when (not forward)
(sit-for 0)
(if (and (setq part (nth 2 (pos-visible-in-window-p
(line-beginning-position) nil t)))
(> (cdr part) 0))
(set-window-vscroll nil (cdr part) t)))
t)))
(line-move-1 arg noerror to-end)))