diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-30 09:40:40 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-30 09:40:40 +0100 |
commit | fb06221534554d2f968ed101cdfa1d8eccf040c6 (patch) | |
tree | 8b0937c40e7783cd3a51a02fedba9b26b2eda9a0 | |
parent | fe44d55aa0d981b56b246e071a788ab9320355eb (diff) | |
download | org-mode-fb06221534554d2f968ed101cdfa1d8eccf040c6.tar.gz |
ob-comint: Silence byte compiler
* lisp/ob-comint.el (org-babel-comint-with-output): Fix code typo.
-rw-r--r-- | lisp/ob-comint.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el index 1f28a2c..496c380 100644 --- a/lisp/ob-comint.el +++ b/lisp/ob-comint.el @@ -75,11 +75,11 @@ or user `keyboard-quit' during execution of body." (remove-echo (nth 2 meta)) (full-body (nth 3 meta))) `(org-babel-comint-in-buffer ,buffer - (let ((string-buffer "") - (comint-output-filter-functions - (cons (lambda (text) (setq string-buffer (concat string-buffer text))) - comint-output-filter-functions)) - dangling-text raw) + (let* ((string-buffer "") + (comint-output-filter-functions + (cons (lambda (text) (setq string-buffer (concat string-buffer text))) + comint-output-filter-functions)) + dangling-text raw) ;; got located, and save dangling text (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) |