From eca93742b6534db4715c3f3588aebea7823793dd Mon Sep 17 00:00:00 2001 From: Bastien Date: Mon, 3 May 2021 22:27:48 +0200 Subject: [PATCH] lisp/org-agenda.el: Prevent wrong scrolling * lisp/org-agenda.el (org-agenda-later): Prevent window from scrolling to the point when `scroll-conservatively' is > 101. Reported-by: Gustavo Barros Link: https://orgmode.org/list/87lfh2hk4k.fsf@gmail.com/ --- lisp/org-agenda.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d5abfffaf..53e3146ff 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8344,7 +8344,8 @@ With prefix ARG, go forward that many times the current span." (org-agenda-overriding-arguments (list (car args) sd span))) (org-agenda-redo) - (org-agenda-find-same-or-today-or-agenda cnt)))) + (org-agenda-find-same-or-today-or-agenda cnt)) + (set-window-start nil 1))) (defun org-agenda-earlier (arg) "Go backward in time by the current span.