ob: fix results insertion for inline blocks which happen to start a line

* lisp/ob.el (org-babel-insert-result): Fix results insertion for
  inline blocks which happen to start a line.
This commit is contained in:
Eric Schulte 2011-06-27 10:28:59 -07:00
parent acec7eb7c3
commit d1f0ae650f
1 changed files with 2 additions and 1 deletions

View File

@ -1525,7 +1525,8 @@ code ---- the results are extracted in the syntax of the source
(save-excursion
(let* ((inlinep
(save-excursion
(re-search-backward "[ \f\t\n\r\v]" nil t)
(or (= (point) (point-at-bol))
(re-search-backward "[ \f\t\n\r\v]" nil t))
(when (or (looking-at org-babel-inline-src-block-regexp)
(looking-at org-babel-inline-lob-one-liner-regexp))
(goto-char (match-end 0))