Преглед изворни кода

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.
Aaron Ecay пре 8 година
родитељ
комит
1509906e29
1 измењених фајлова са 3 додато и 2 уклоњено
  1. 3 2
      lisp/ob-comint.el

+ 3 - 2
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)