From d3f67fb0f37667af39a30c527221a43ea37999a9 Mon Sep 17 00:00:00 2001 From: Carlos HMS Esteves Date: Sun, 1 Nov 2015 20:52:26 -0500 Subject: [PATCH] ob-core.el: Allow execution of region of source code block * ob-core.el (org-babel-execute-src-block-region): Execute only active region of the current source block. Same as `org-babel-execute-src-block', but use only the active region instead of the whole block. TINYCHANGE --- lisp/ob-core.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 51a34f3..98ed69e 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -740,6 +740,15 @@ block." (setq call-process-region 'org-babel-call-process-region-original))))))))) +(defun org-babel-execute-src-block-region (beg end) + "Execute region in the current source code block. +`org-babel-execure-src-block' is called; the only change is that +only the active region is sent, instead of the whole block." + (interactive "r") + (let ((info (org-babel-get-src-block-info))) + (setcar (nthcdr 1 info) (buffer-substring beg end)) + (org-babel-execute-src-block nil info))) + (defun org-babel-expand-body:generic (body params &optional var-lines) "Expand BODY with PARAMS. Expand a block of code with org-babel according to its header -- 2.1.4