From a94501a13205cc72911266a2172b938393b56ca9 Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Thu, 31 Oct 2013 01:47:44 -0400 Subject: [PATCH] =?UTF-8?q?babel:=20don=E2=80=99t=20move=20point=20when=20?= =?UTF-8?q?tangling=20a=20single=20block?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/ob-tangle.el: (org-babel-tangle): don’t move point when called with single prefix arg Previously, C-u C-x C-v C-t would move point to the head of the source block. --- lisp/ob-tangle.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 0b22467d1..7a27c7b62 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -180,12 +180,12 @@ used to limit the exported source code blocks by language." (run-hooks 'org-babel-pre-tangle-hook) ;; Possibly Restrict the buffer to the current code block (save-restriction - (when (equal arg '(4)) - (let ((head (org-babel-where-is-src-block-head))) + (save-excursion + (when (equal arg '(4)) + (let ((head (org-babel-where-is-src-block-head))) (if head (goto-char head) (user-error "Point is not in a source code block")))) - (save-excursion (let ((block-counter 0) (org-babel-default-header-args (if target-file