ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This seems to be causing problems...

This reverts commit 0573fc4d9c.
This commit is contained in:
Eric Schulte 2009-06-11 12:55:39 -07:00
parent dc551fab04
commit 2081b95410
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-babel-comint.el
View File

@ -51,15 +51,15 @@ body inside the protection of `save-window-excursion' and
(set-buffer buffer) (set-buffer buffer)
,@body))) ,@body)))
(defun org-babel-comint-append-output-filter (text)
(setq string-buffer (concat string-buffer text)))
(defmacro org-babel-comint-with-output (&rest body) (defmacro org-babel-comint-with-output (&rest body)
(let ((my-filter (gensym "org-babel-comint-filter")))
`(let ((string-buffer "")) `(let ((string-buffer ""))
(flet ((,my-filter (text) (add-hook 'comint-output-filter-functions 'org-babel-comint-append-output-filter)
(setq string-buffer (concat string-buffer text))))
(add-hook 'comint-output-filter-functions ',my-filter)
(condition-case nil (progn ,@body) (t)) (condition-case nil (progn ,@body) (t))
(remove-hook 'comint-output-filter-functions ',my-filter)) (remove-hook 'comint-output-filter-functions 'org-babel-comint-append-output-filter)
string-buffer))) string-buffer))
(defun org-babel-comint-command-to-output (buffer cmd) (defun org-babel-comint-command-to-output (buffer cmd)
"Pass CMD to BUFFER using `org-babel-comint-input-command', and "Pass CMD to BUFFER using `org-babel-comint-input-command', and