branch: externals/org-modern
commit 96cd1dc2c8f523f1f4f02b927375deaa924368b4
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix org agenda todo state highlighting
---
org-modern.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 17a5443644..fd299b168c 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -902,9 +902,10 @@ whole buffer; otherwise, for the line at point."
(when org-modern-todo
(goto-char (point-min))
(while (< (point) (point-max))
- (when-let ((todo (get-text-property (point) 'todo-state))
+ (when-let (((get-text-property (point) 'todo-state))
(org-not-done-regexp (get-text-property (point)
'org-not-done-regexp))
- (re (concat " \\(" todo "\\) "))
+ (re (get-text-property (point) 'org-todo-regexp))
+ (re (concat " " re " "))
((re-search-forward re (pos-eol) 'noerror)))
(org-modern--todo))
(goto-char (min (1+ (pos-eol)) (point-max)))))
