Browse Source

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.
Eric Schulte 14 years ago
parent
commit
d1f0ae650f
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/ob.el

+ 2 - 1
lisp/ob.el

@@ -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))