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 <gusbrs.2016@gmail.com>
Link: https://orgmode.org/list/87lfh2hk4k.fsf@gmail.com/
This commit is contained in:
Bastien 2021-05-03 22:27:48 +02:00
parent dfdd5cd0cd
commit eca93742b6
1 changed files with 2 additions and 1 deletions

View File

@ -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.