[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org eca9374: lisp/org-agenda.el: Prevent wrong
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org eca9374: lisp/org-agenda.el: Prevent wrong scrolling |
Date: |
Mon, 3 May 2021 16:57:12 -0400 (EDT) |
branch: externals-release/org
commit eca93742b6534db4715c3f3588aebea7823793dd
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>
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/
---
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 d5abfff..53e3146 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org eca9374: lisp/org-agenda.el: Prevent wrong scrolling,
ELPA Syncer <=