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

Fix recentering issue in `follow-mode'

Browse source 
* lisp/follow.el (follow-recenter): Make `C-c . C-l' work in
windows before the middle one, too (bug#50220).

Copyright-paperwork-exempt: yes
This commit is contained in:
Noah Evans 2021-08-27 03:43:19 +02:00 • committed by Lars Ingebrigtsen
parent 602419bbca
commit 8567ec8bcf
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/follow.el
View file

@ -858,8 +858,11 @@ from the bottom."
(windows (follow-all-followers))
(win (nth (/ (- (length windows) 1) 2) windows)))
(select-window win)
(goto-char dest)
(recenter))))
(let ((win-s (window-start)))
(goto-char dest)
(recenter)
(when (< dest win-s)
(setq follow-internal-force-redisplay t))))))
(defun follow-redraw ()