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

org-babel-remove-result option keep result keyword 

This patch is based off of a request and an initial patch supplied by
Daniele Pizzolli.

* lisp/ob-core.el (org-babel-remove-result): Added an option to keep
  the results keyword when removing the content of results.
This commit is contained in:
Eric Schulte 2013-09-20 15:07:15 -06:00
parent 32315be4da
commit 136bdc0e83
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ob-core.el
View File

@ -2159,15 +2159,17 @@ code ---- the results are extracted in the syntax of the source
(set-marker visible-beg nil)
(set-marker visible-end nil))))))
(defun org-babel-remove-result (&optional info)
(defun org-babel-remove-result (&optional info keep-keyword)
"Remove the result of the current source block."
(interactive)
(let ((location (org-babel-where-is-src-block-result nil info)) start)
(let ((location (org-babel-where-is-src-block-result nil info)))
(when location
(setq start (- location 1))
(save-excursion
(goto-char location) (forward-line 1)
(delete-region start (org-babel-result-end))))))
(goto-char location)
(when (looking-at org-babel-result-regexp)
(delete-region
(if keep-keyword (1+ (match-end 0)) (match-beginning 0))
(progn (forward-line 1) (org-babel-result-end))))))))
(defun org-babel-result-end ()
"Return the point at the end of the current set of results."