From 37f2e1519915a0476bb4d15328473541236d4890 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Tue, 30 Jun 2020 13:02:19 +0200 Subject: [PATCH] agenda: Call finalize-hook later * lisp/org-agenda.el (org-agenda-finalize): Call the hooks after the save-excursion. This opens the way for hooks to position the cursor after agenda generation. --- lisp/org-agenda.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9fbeb2a1e..90129b23e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3858,8 +3858,8 @@ This function is called just before displaying the agenda. If you want to add your own functions to the finalization of the agenda display, configure `org-agenda-finalize-hook'." (unless org-agenda-multi - (save-excursion - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t)) + (save-excursion (goto-char (point-min)) (save-excursion (while (org-activate-links (point-max)) @@ -3927,8 +3927,8 @@ agenda display, configure `org-agenda-finalize-hook'." (when (get 'org-agenda-effort-filter :preset-filter) (org-agenda-filter-apply (get 'org-agenda-effort-filter :preset-filter) 'effort)) - (add-hook 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local) - (run-hooks 'org-agenda-finalize-hook))))) + (add-hook 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)) + (run-hooks 'org-agenda-finalize-hook)))) (defun org-agenda-mark-clocking-task () "Mark the current clock entry in the agenda if it is present." -- 2.17.1