瀏覽代碼

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.
Eric Schulte 14 年之前
父節點
當前提交
dceaf7da4f
共有 1 個文件被更改,包括 6 次插入1 次删除
  1. 6 1
      lisp/ob-exp.el

+ 6 - 1
lisp/ob-exp.el

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