Remove org-babel-delete-all-results

Command org-babel-remove-result-one-or-many can already do this.

1 files changed, 0 insertions, 25 deletions

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 37c49a0..be119e4 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -711,31 +711,6 @@ to be easily overriden.")
    (emacs-lisp . t)
    (latex . t)))
 
-(defun km/org-babel-delete-all-results ()
-  "Delete Org babel result blocks."
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (let ((res-regex (rx line-start "#+RESULTS"
-                         (zero-or-one "[" (one-or-more alnum)
-                                      (zero-or-one "...") "]")
-                         ":" line-end)))
-      (while (re-search-forward res-regex nil t)
-        (let ((res-beg (point-at-bol)))
-          (forward-line)
-          (cond
-           ((looking-at-p "^#\\+begin_example$")
-            (re-search-forward "^#\\+end_example$")
-            (delete-region res-beg (point)))
-           ((looking-at-p "^: ")
-            (re-search-forward "^[^:]")
-            (delete-region res-beg (point)))
-           (t
-            (forward-line -1)
-            (delete-region res-beg (point-at-eol)))))
-        (when (looking-at-p "^\\s-$")
-          (delete-blank-lines))))))
-
 
 ;;; Org Contacts