From 1509906e293b8ecf7b9ace4c12ad049357236c7f Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Sat, 3 Sep 2016 02:48:23 +0100 Subject: [PATCH] ob-comint: Fix org-babel-comint-in-buffer MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * lisp/ob-comint.el (org-babel-comint-in-buffer): Fix bug. The function’s docstring says it wraps BODY in ‘save-excursion’, but in fact it did not. --- lisp/ob-comint.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el index 8f3204604..dd696c281 100644 --- a/lisp/ob-comint.el +++ b/lisp/ob-comint.el @@ -51,8 +51,9 @@ executed inside the protection of `save-excursion' and (error "Buffer %s does not exist or has no process" ,buffer)) (save-match-data (with-current-buffer ,buffer - (let ((comint-input-filter (lambda (_input) nil))) - ,@body))))) + (save-excursion + (let ((comint-input-filter (lambda (_input) nil))) + ,@body)))))) (def-edebug-spec org-babel-comint-in-buffer (form body)) (defmacro org-babel-comint-with-output (meta &rest body)