tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-babel-comint-with-output is now fully self-contained and side-effect free

Browse source
This commit is contained in:
Eric Schulte 2009-06-11 12:16:37 -07:00
parent eacce7b29d
commit 0573fc4d9c
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/org-babel-comint.el
View file

@ -51,15 +51,15 @@ body inside the protection of `save-window-excursion' and
(set-buffer buffer)
,@body)))
(defun org-babel-comint-append-output-filter (text)
(setq string-buffer (concat string-buffer text)))
(defmacro org-babel-comint-with-output (&rest body)
`(let ((string-buffer ""))
(add-hook 'comint-output-filter-functions 'org-babel-comint-append-output-filter)
(condition-case nil (progn ,@body) (t))
(remove-hook 'comint-output-filter-functions 'org-babel-comint-append-output-filter)
string-buffer))
(let ((my-filter (gensym "org-babel-comint-filter")))
`(let ((string-buffer ""))
(flet ((,my-filter (text)
(setq string-buffer (concat string-buffer text))))
(add-hook 'comint-output-filter-functions ',my-filter)
(condition-case nil (progn ,@body) (t))
(remove-hook 'comint-output-filter-functions ',my-filter))
string-buffer)))
(defun org-babel-comint-wait-for-output (buffer)
"Wait until output arrives"