[elpa] externals/org-modern 842749f515 2/3: org-modern-agenda: Minor simplification

[ELPA Syncer]

branch: externals/org-modern
commit 842749f5157e861559cf690fc8eb4a440814ab47
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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))