From b108f6b8dfd28d6c6ebcdfcabb428438fe348ad9 Mon Sep 17 00:00:00 2001 From: Daniele Pizzolli Date: Fri, 30 Jan 2015 23:28:27 +0100 Subject: [PATCH 2/2] ob-core.el: Add `org-babel-remove-result-all' * lisp/ob-core.el (org-babel-remove-result-all): New interactive function. TINYCHANGE --- lisp/ob-core.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index ac9f63b..e09863d 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2348,6 +2348,16 @@ in the buffer." (org-babel-map-src-blocks nil (org-babel-remove-result)) (org-babel-remove-result))) +(defun org-babel-remove-result-all (x) + "Remove the results of all the source blocks and the results of all inline sources. +If called with a prefix argument, keep the keyword in result +blocks." + (interactive "P") + (if x + (org-babel-map-src-blocks nil (org-babel-remove-result nil t)) + (org-babel-map-src-blocks nil (org-babel-remove-result))) + (org-babel-map-inline-src-blocks nil (org-babel-remove-inline-result))) + (defun org-babel-result-end () "Return the point at the end of the current set of results." (save-excursion -- 2.1.4