ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ob: idempotent code block evaluation and result removal 

* lisp/ob.el (org-babel-remove-result): Idempotent code block
  evaluation and result removal.
This commit is contained in:
Eric Schulte 2011-08-19 07:50:11 -06:00
parent bf740ba41c
commit 96ad99ba07
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ob.el
View File

@ -1678,8 +1678,9 @@ code ---- the results are extracted in the syntax of the source
(interactive) (interactive)
(let ((location (org-babel-where-is-src-block-result nil info)) start) (let ((location (org-babel-where-is-src-block-result nil info)) start)
(when location (when location
(setq start (- location 1))
(save-excursion (save-excursion
(goto-char location) (setq start (point)) (forward-line 1) (goto-char location) (forward-line 1)
(delete-region start (org-babel-result-end)))))) (delete-region start (org-babel-result-end))))))
(defun org-babel-result-end () (defun org-babel-result-end ()