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