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

ob-exp: Tiny cleanup related to 87ab99

Browse source 
* lisp/ob-exp.el (org-babel-exp-process-buffer): Tiny cleanup related
  to 87ab99f563.
This commit is contained in:
Nicolas Goaziou 2013-05-30 15:18:17 +02:00
parent 752a4eb49d
commit 8b431a8021
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ob-exp.el
View file

@ -267,10 +267,7 @@ this template."
(cons (cons
(org-element-property :language element) (org-element-property :language element)
(let ((params (org-element-property :parameters element))) (let ((params (org-element-property :parameters element)))
(and params (org-split-string params "[ \t]+"))))) (and params (org-split-string params "[ \t]+"))))))
(preserve-indent
(or org-src-preserve-indentation
(org-element-property :preserve-indent element))))
;; Execute all non-block elements between POS and ;; Execute all non-block elements between POS and
;; current block. ;; current block.
(org-babel-exp-non-block-elements pos begin) (org-babel-exp-non-block-elements pos begin)
@ -291,7 +288,7 @@ this template."
(goto-char match-start) (goto-char match-start)
(delete-region (point) block-end) (delete-region (point) block-end)
(insert replacement) (insert replacement)
(if preserve-indent (if (org-element-property :preserve-indent element)
;; Indent only the code block markers. ;; Indent only the code block markers.
(save-excursion (skip-chars-backward " \r\t\n") (save-excursion (skip-chars-backward " \r\t\n")
(indent-line-to ind) (indent-line-to ind)