Fix recentering issue in `follow-mode'

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

Copyright-paperwork-exempt: yes

diff --git a/lisp/follow.el b/lisp/follow.el
index dde140d0fd536635f6d910bd452b5e706cc2f914..b64f4cb7348532575f0a423a5dbbd0b3835d6315 100644 (file)
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -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 ()