From fe9a35bf46e800325d6b8cc435524486ff15e509 Mon Sep 17 00:00:00 2001 From: Tim Ruffing Date: Thu, 9 Mar 2023 13:38:28 +0100 Subject: [PATCH] Don't reset `org-todo-keywords-for-agenda' when org-agenda-multi * org-agenda.el (org-prepare-agenda): Don't reset `org-todo-keywords-for-agenda' when org-agenda-multi. Fixes a bug with TODO keywords that came to light in org-modern, see https://github.com/minad/org-modern/issues/26. This is very similar to cd2d138883a55cad48394a3f473da8b973a99a5e, which fixed the same for `org-done-keywords-for-agenda` (to fix a similar styling issue). TINYCHANGE --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7e54121dc..3da0967f0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3956,7 +3956,6 @@ FILTER-ALIST is an alist of filters we need to apply when (message "Sticky Agenda buffer, use `r' to refresh") (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw 'exit "Sticky Agenda buffer, use `r' to refresh")) - (setq org-todo-keywords-for-agenda nil) (if org-agenda-multi (progn (setq buffer-read-only nil) @@ -3969,6 +3968,7 @@ FILTER-ALIST is an alist of filters we need to apply when (make-string (window-max-chars-per-line) org-agenda-block-separator)) "\n")) (narrow-to-region (point) (point-max))) + (setq org-todo-keywords-for-agenda nil) (setq org-done-keywords-for-agenda nil) ;; Setting any org variables that are in org-agenda-local-vars ;; list need to be done after the prepare call -- 2.39.2