diff options
| author | Noah Evans <noah@nevans.me> | 2021-08-27 03:43:19 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-27 03:43:19 +0200 |
| commit | 8567ec8bcfce39d4678ac016b00176ae9d5f3bd2 (patch) | |
| tree | a589a9e4eee7870ef3fc00a4fc8919e132ccae05 /lisp/follow.el | |
| parent | 602419bbca9ae92e10c634b13bec6df3622d2714 (diff) | |
| download | emacs-8567ec8bcfce39d4678ac016b00176ae9d5f3bd2.tar.gz emacs-8567ec8bcfce39d4678ac016b00176ae9d5f3bd2.tar.bz2 emacs-8567ec8bcfce39d4678ac016b00176ae9d5f3bd2.zip | |
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
Diffstat (limited to 'lisp/follow.el')
| -rw-r--r-- | lisp/follow.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/follow.el b/lisp/follow.el index dde140d0fd5..b64f4cb7348 100644 --- 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 () |