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:
parent
32315be4da
commit
136bdc0e83
1 changed files with 7 additions and 5 deletions
|
@ -2159,15 +2159,17 @@ code ---- the results are extracted in the syntax of the source
|
||||||
(set-marker visible-beg nil)
|
(set-marker visible-beg nil)
|
||||||
(set-marker visible-end 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."
|
"Remove the result of the current source block."
|
||||||
(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)))
|
||||||
(when location
|
(when location
|
||||||
(setq start (- location 1))
|
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char location) (forward-line 1)
|
(goto-char location)
|
||||||
(delete-region start (org-babel-result-end))))))
|
(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 ()
|
(defun org-babel-result-end ()
|
||||||
"Return the point at the end of the current set of results."
|
"Return the point at the end of the current set of results."
|
||||||
|
|
Loading…
Reference in a new issue