diff --git a/lisp/org-element.el b/lisp/org-element.el index 27fd9d9f6..06065fe9a 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3547,7 +3547,7 @@ position of point and CDR is nil." ;; They will be parsed as a paragraph. (when (looking-at "[ \t]*$") (goto-char origin) (setq output nil)) ;; Return value. - (cons (point) output)))) + (cons origin output)))) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 98faff4d0..8c724d555 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -165,6 +165,12 @@ Some other text :name (org-test-with-temp-text "#+NAME: para\nParagraph" (org-element-at-point))))) + (should + (= 1 + (org-element-property + :begin + (org-test-with-temp-text "#+NAME: para\nParagraph" + (org-element-at-point))))) ;; Parse multiple keywords. (should (equal