[elpa] externals/org 54c09c84e9 3/6: org-element-context: Fix when point is at the beginning of parsed value

[ELPA Syncer]

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

    org-element-context: Fix when point is at the beginning of parsed value
    
    * lisp/org-element.el (org-element-context): When point is at the
    first point in parsed affiliated keyword value, do not return parent
    "keyword".
    
    Reported-by: Tom Gillespie <tgbugs@gmail.com>
    Link: 
https://orgmode.org/list/CA+G3_PNt7WqkCzChV+dx1FeSPgTEVkNSE41a3qC5wv3g+jTwrQ@mail.gmail.com
---
 lisp/org-element.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 5574da4520..a104d540e6 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -8140,9 +8140,9 @@ This function may modify match data."
         (let ((case-fold-search t)) (looking-at org-element--affiliated-re))
         (cond
          ((not (member-ignore-case (match-string 1)
-                                   org-element-parsed-keywords))
+                                 org-element-parsed-keywords))
           (throw 'objects-forbidden element))
-         ((< (match-end 0) pos)
+         ((<= (match-end 0) pos)
           (narrow-to-region (match-end 0) (line-end-position)))
          ((and (match-beginning 2)
                (>= pos (match-beginning 2))