mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-03 08:30:03 +00:00
Code

agenda: Call finalize-hook later

Browse Source 
* 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.
This commit is contained in:
Marco Wahl 2020-06-30 13:02:19 +02:00
parent 97188a0cff
commit cc570144f8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-agenda.el
View File

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