ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2012-09-20 19:14:43 +02:00
parent 7a909d1684 fd5cc62ca5
commit 7c40e0c6ba
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org-element.el
View File

@ -2617,6 +2617,7 @@ LIMIT bounds the search.
Return value is a cons cell whose CAR is `inline-babel-call' and Return value is a cons cell whose CAR is `inline-babel-call' and
CDR is beginning position." CDR is beginning position."
(save-excursion (save-excursion
(unless (bolp) (backward-char))
(when (re-search-forward org-babel-inline-src-block-regexp limit t) (when (re-search-forward org-babel-inline-src-block-regexp limit t)
(cons 'inline-src-block (match-beginning 1))))) (cons 'inline-src-block (match-beginning 1)))))

4
testing/lisp/test-org-element.el
View File

@ -831,6 +831,10 @@ CLOCK: [2012-01-01 sun. 00:01]--[2012-01-01 sun. 00:02] => 0:01"
"Test `inline-src-block' parser." "Test `inline-src-block' parser."
(should (should
(org-test-with-temp-text "src_emacs-lisp{(+ 1 1)}" (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)))) (org-element-map (org-element-parse-buffer) 'inline-src-block 'identity))))