From 54c09c84e9d903ef414016662352acd59a9f6fb7 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 16 Aug 2023 11:06:08 +0300 Subject: [PATCH] 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 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 5574da452..a104d540e 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))