diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-09-02 10:31:10 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-09-02 10:33:55 -0600 |
commit | 24812caff400bab66b66c42e761cbb5a8fc9525f (patch) | |
tree | cd63c9243f58570e152b8d95f3a6dc65c7c4619e | |
parent | 7916e491c5369a1daa4edd1d5858db2ac53a7635 (diff) | |
download | org-mode-24812caff400bab66b66c42e761cbb5a8fc9525f.tar.gz |
ignore inline source block on #+ prefixed lines
* lisp/ob-exp.el (org-babel-exp-non-block-elements): Ignore inline
source block on #+ prefixed lines.
-rw-r--r-- | lisp/ob-exp.el | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index c8479e3..136ed39 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -183,24 +183,27 @@ this template." info (org-babel-exp-get-export-buffer)) (nth 1 info))) (goto-char beg-el) - (let ((replacement (org-babel-exp-do-export info 'inline))) - (if (equal replacement "") - ;; Replacement code is empty: completely - ;; remove inline src block, including extra - ;; white space that might have been created - ;; when inserting results. + (unless (save-excursion (goto-char (point-at-bol)) + (looking-at "^#\\+")) + (let ((replacement (org-babel-exp-do-export + info 'inline))) + (if (equal replacement "") + ;; Replacement code is empty: completely + ;; remove inline src block, including extra + ;; white space that might have been created + ;; when inserting results. + (delete-region beg-el + (progn (goto-char end-el) + (skip-chars-forward " \t") + (point))) + ;; Otherwise: remove inline src block but + ;; preserve following white spaces. Then + ;; insert value. (delete-region beg-el (progn (goto-char end-el) - (skip-chars-forward " \t") + (skip-chars-backward " \t") (point))) - ;; Otherwise: remove inline src block but - ;; preserve following white spaces. Then - ;; insert value. - (delete-region beg-el - (progn (goto-char end-el) - (skip-chars-backward " \t") - (point))) - (insert replacement))))) + (insert replacement)))))) ((babel-call inline-babel-call) (let* ((lob-info (org-babel-lob-get-info)) (results |