forked from mirrors/org-mode
ob-comint: Silence byte compiler
* lisp/ob-comint.el (org-babel-comint-with-output): Fix code typo.
This commit is contained in:
parent
fe44d55aa0
commit
fb06221534
|
@ -75,11 +75,11 @@ or user `keyboard-quit' during execution of body."
|
||||||
(remove-echo (nth 2 meta))
|
(remove-echo (nth 2 meta))
|
||||||
(full-body (nth 3 meta)))
|
(full-body (nth 3 meta)))
|
||||||
`(org-babel-comint-in-buffer ,buffer
|
`(org-babel-comint-in-buffer ,buffer
|
||||||
(let ((string-buffer "")
|
(let* ((string-buffer "")
|
||||||
(comint-output-filter-functions
|
(comint-output-filter-functions
|
||||||
(cons (lambda (text) (setq string-buffer (concat string-buffer text)))
|
(cons (lambda (text) (setq string-buffer (concat string-buffer text)))
|
||||||
comint-output-filter-functions))
|
comint-output-filter-functions))
|
||||||
dangling-text raw)
|
dangling-text raw)
|
||||||
;; got located, and save dangling text
|
;; got located, and save dangling text
|
||||||
(goto-char (process-mark (get-buffer-process (current-buffer))))
|
(goto-char (process-mark (get-buffer-process (current-buffer))))
|
||||||
(let ((start (point))
|
(let ((start (point))
|
||||||
|
|
Loading…
Reference in New Issue