[elpa] externals/org d0b5573: org: Fix: Respect TAB in property drawer as separator

[ELPA Syncer]

branch: externals/org
commit d0b55739c0b86a21ccf111a2e094b89571280fbc
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@gmail.com>

    org: Fix: Respect TAB in property drawer as separator
    
    * lisp/org.el (org-property-drawer-re): Allow TAB as first
    character after the property name's colon.
---
 lisp/org.el              | 2 +-
 testing/lisp/test-org.el | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 6ddcc6a..4bee496 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -565,7 +565,7 @@ Group 1 contains drawer's name or \"END\".")
 
 (defconst org-property-drawer-re
   (concat "^[ \t]*:PROPERTIES:[ \t]*\n"
-         "\\(?:[ \t]*:\\S-+:\\(?: .*\\)?[ \t]*\n\\)*?"
+         "\\(?:[ \t]*:\\S-+:\\(?:[ \t].*\\)?[ \t]*\n\\)*?"
          "[ \t]*:END:[ \t]*$")
   "Matches an entire property drawer.")
 
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 18d41a0..4a46634 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -413,6 +413,10 @@
   ;; The function ignores incomplete drawers.
   (should-not
    (org-test-with-temp-text ":PROPERTIES:\n<point>:PROP: t\n"
+                            (org-at-property-drawer-p)))
+  ;; tab separating the value.
+  (should
+   (org-test-with-temp-text ":PROPERTIES:\n:PROP:      t\n:END:\n"
      (org-at-property-drawer-p))))
 
 (ert-deftest test-org/get-property-block ()