diff options
| author | Marco Wahl <marcowahlsoft@gmail.com> | 2020-06-30 13:02:19 +0200 |
|---|---|---|
| committer | Marco Wahl <marcowahlsoft@gmail.com> | 2020-07-05 23:09:38 +0200 |
| commit | cc570144f88ee1899d90246592516361fe08da99 (patch) | |
| tree | 274cfb763e205e86910b3cc6feb21ee486a02690 | |
| parent | 97188a0cff9ec0264d536f0658670c7cb6bca2eb (diff) | |
| download | org-mode-cc570144f88ee1899d90246592516361fe08da99.tar.gz | |
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.
| -rw-r--r-- | lisp/org-agenda.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9fbeb2a..90129b2 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." |