diff options
author | Bastien <bzg@gnu.org> | 2020-02-17 00:45:13 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-17 00:45:13 +0100 |
commit | dfa7a3397b8fac37a5f9e6a71b37c260c308cf6a (patch) | |
tree | cdcceda781d51d8564e878bc5b41f436e21a7987 | |
parent | 8f6ce817d80f891108d85606de356806a55ac81c (diff) | |
download | org-mode-dfa7a3397b8fac37a5f9e6a71b37c260c308cf6a.tar.gz |
org-agenda.el: Fix call to `org-agenda-finalize-hook'
* lisp/org-agenda.el (org-agenda-finalize): Run functions in
`org-agenda-finalize-hook' at the very end.
-rw-r--r-- | lisp/org-agenda.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ec12710..a78b98a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3901,7 +3901,6 @@ FILTER-ALIST is an alist of filters we need to apply when 'tags (org-with-point-at mrk (mapcar #'downcase (org-get-tags))))))))) - (run-hooks 'org-agenda-finalize-hook) (setq org-agenda-represented-tags nil org-agenda-represented-categories nil) (when org-agenda-top-headline-filter @@ -3927,7 +3926,8 @@ FILTER-ALIST is an alist of filters we need to apply when (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))))) + (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." |