From 8907ab75f67258145eef1964d35d1eb18ba162e6 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Tue, 6 Apr 2021 23:22:51 -0400 Subject: [PATCH] ENH get todo state more efficiently --- local/lib/org-x/org-x.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 52b2c7d..b379293 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -204,9 +204,7 @@ compared to REF-TIME. Returns nil if no timestamp is found." (defun org-x-is-todoitem-p () "Return todo keyword if heading has one." - (let ((keyword (nth 2 (org-heading-components)))) - (if (member keyword org-todo-keywords-1) - keyword))) + (-some-> (org-get-todo-state) (substring-no-properties))) (defun org-x-is-project-p () "Return todo keyword if heading has todoitem children."