diff options
| author | Aaron Ecay <aaronecay@gmail.com> | 2016-09-03 02:48:23 +0100 |
|---|---|---|
| committer | Aaron Ecay <aaronecay@gmail.com> | 2016-09-03 02:48:23 +0100 |
| commit | 1509906e293b8ecf7b9ace4c12ad049357236c7f (patch) | |
| tree | 11a268db9abaae14ee49cb29f21719afcbd70e8e | |
| parent | d350baf2dbcdd97755d20dc96a8e6c06a6b195bc (diff) | |
| download | org-mode-1509906e293b8ecf7b9ace4c12ad049357236c7f.tar.gz | |
ob-comint: Fix org-babel-comint-in-buffer
* 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.
| -rw-r--r-- | lisp/ob-comint.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el index 8f32046..dd696c2 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) |