[elpa] externals/org 93bf820384 1/2: org-element-headline-parser: Treat "* TODO" as empty title + TODO keyword

[ELPA Syncer]

branch: externals/org
commit 93bf820384e8b275ff500ab62ec85901d2490ab2
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-element-headline-parser: Treat "* TODO" as empty title + TODO keyword
    
    * lisp/org-element.el (org-element-headline-parser): Allow end of line
    instead of space after todo keyword.
    *
    testing/lisp/test-org-element.el (test-org-element/headline-todo-keyword):
    Add new test.
---
 lisp/org-element.el              | 2 +-
 testing/lisp/test-org-element.el | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 7ccdb103db..d61a7efb2d 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1103,7 +1103,7 @@ Assume point is at beginning of the headline."
                          (skip-chars-forward " \t")))
           (level (org-reduced-level true-level))
           (todo (and org-todo-regexp
-                     (let (case-fold-search) (looking-at (concat 
org-todo-regexp " ")))
+                     (let (case-fold-search) (looking-at (concat 
org-todo-regexp "\\(?: \\|$\\)")))
                      (progn (goto-char (match-end 0))
                             (skip-chars-forward " \t")
                             (match-string 1))))
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 304059c673..e2cdadbd1a 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1206,7 +1206,10 @@ Some other text
   ;; Todo keyword is prefix of headlines first word.
   (org-test-with-temp-text "* TODOHeadline"
     (let ((org-todo-keywords '((sequence "TODO" "DONE"))))
-      (should-not (org-element-property :todo-keyword 
(org-element-at-point))))))
+      (should-not (org-element-property :todo-keyword 
(org-element-at-point)))))
+  (org-test-with-temp-text "* TODO"
+    (let ((org-todo-keywords '((sequence "TODO" "DONE"))))
+      (should (org-element-property :todo-keyword (org-element-at-point))))))
 
 (ert-deftest test-org-element/headline-comment-keyword ()
   "Test COMMENT keyword recognition."