diff --git a/lisp/org-element.el b/lisp/org-element.el index bcdd33684..67fda5cce 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -2617,6 +2617,7 @@ LIMIT bounds the search. Return value is a cons cell whose CAR is `inline-babel-call' and CDR is beginning position." (save-excursion + (unless (bolp) (backward-char)) (when (re-search-forward org-babel-inline-src-block-regexp limit t) (cons 'inline-src-block (match-beginning 1))))) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index a044e6544..6a2ce1ff2 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -831,6 +831,10 @@ CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01" "Test `inline-src-block' parser." (should (org-test-with-temp-text "src_emacs-lisp{(+ 1 1)}" + (org-element-map (org-element-parse-buffer) 'inline-src-block 'identity))) + ;; Test parsing at the beginning of an item. + (should + (org-test-with-temp-text "- src_emacs-lisp{(+ 1 1)}" (org-element-map (org-element-parse-buffer) 'inline-src-block 'identity))))