ob-exp: don't export inline call_ blocks which aren't whitespace padded

* lisp/ob-exp.el (org-babel-exp-lob-one-liners): Don't export inline
  call_ blocks which aren't whitespace padded.
This commit is contained in:
Eric Schulte 2011-06-25 17:45:06 -07:00
parent e28cba02dd
commit dceaf7da4f

View file

@ -181,7 +181,12 @@ options are taken from `org-babel-default-header-args'."
(save-excursion
(goto-char start)
(while (and (< (point) end)
(re-search-forward org-babel-lob-one-liner-regexp nil t))
(re-search-forward org-babel-lob-one-liner-regexp nil t)
(or (not (match-string 12))
(save-match-data
(save-excursion (goto-char (match-beginning 12))
(backward-char)
(thing-at-point 'whitespace)))))
(let* ((lob-info (org-babel-lob-get-info))
(inlinep (match-string 11))
(inline-start (match-end 11))