mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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 ()