branch: externals/org
commit 54c09c84e9d903ef414016662352acd59a9f6fb7
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@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 <tgb...@gmail.com>
Link:
https://orgmode.org/list/ca+g3_pnt7wqkczchv+dx1fespgtevknse41a3qc5wv3g+jt...@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))
