tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Revert "ignore inline source block on #+ prefixed lines"

Browse source 
This reverts commit 24812caff4.  This is
a wrong fix sinc the function already calls `org-element-context',
which cannot find Babel code in macros anyway.
This commit is contained in:
Nicolas Goaziou 2013-09-03 13:59:33 +02:00
parent 0022904e83
commit fe1289b382
1 changed files with 15 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/ob-exp.el
View file

@ -183,27 +183,24 @@ this template."
info (org-babel-exp-get-export-buffer))
(nth 1 info)))
(goto-char beg-el)
(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.
(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-backward " \t")
(skip-chars-forward " \t")
(point)))
(insert replacement))))))
;; 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)))))
((babel-call inline-babel-call)
(let* ((lob-info (org-babel-lob-get-info))
(results