branch: externals/org-modern
commit 63df971a82d03e9007c671de5edc5d3549f90df5
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    org-modern-agenda: Simplify
---
 org-modern.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index b9e3bf4cf4..9bfd78fcc6 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -903,9 +903,9 @@ whole buffer; otherwise, for the line at point."
           (goto-char (point-min))
           (while (< (point) (point-max))
             (when-let ((todo (get-text-property (point) 'todo-state))
+                       (org-not-done-regexp (get-text-property (point) 
'org-not-done-regexp))
                        (re (concat " \\(" todo "\\) "))
-                       (pos (re-search-forward re (pos-eol) 'noerror))
-                       (org-not-done-regexp (get-text-property (point) 
'org-not-done-regexp)))
+                       ((re-search-forward re (pos-eol) 'noerror)))
               (org-modern--todo))
             (goto-char (min (1+ (pos-eol)) (point-max)))))
         (when org-modern-tag

Reply via email to