diff options
author | Bastien <bzg@gnu.org> | 2020-02-17 00:45:13 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-17 00:45:28 +0100 |
commit | 41c5fe0be8ad88e15e62408182675043a73d8465 (patch) | |
tree | e6d1d91fd7b62ffa4b87e972dfcd353667f0401b | |
parent | 8f540c4db446a664089fb09b5b4a8e6c8510e114 (diff) | |
download | org-mode-41c5fe0be8ad88e15e62408182675043a73d8465.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 5ed667d..ac3fee5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3884,7 +3884,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 @@ -3910,7 +3909,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." |