From 23e565a67d3f2161d615386a0f1eb0194ca8dd57 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 26 Aug 2015 21:30:50 -0400 Subject: Remove org-babel-delete-all-results Command org-babel-remove-result-one-or-many can already do this. --- lisp/init-org.el | 25 ------------------------- 1 file changed, 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 -- cgit v1.2.3