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

small additions to org-babel-comint.el

This commit is contained in:
Eric Schulte 2009-05-29 17:45:40 -07:00
parent 2fe76cd094
commit d49084b73d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,17 +33,18 @@
(require 'org-babel)
(defun org-babel-comint-initiate-buffer (buffer ignite)
"If BUFFER does not currently have a process use IGNITE to
create one."
(unless (and (buffer-live-p buffer) (get-buffer buffer))
"If BUFFER does not exist and currently have a process call
IGNITE from within BUFFER."
(unless (and (buffer-live-p buffer) (get-buffer buffer) (get-buffer-process buffer))
(save-excursion
(eval ignite)
(get-buffer-create buffer)
(funcall ignite)
(setf buffer (current-buffer))
(org-babel-comint-wait-for-output)
(org-babel-comint-input-command ""))))
(defun org-babel-comint-command-to-string (buffer command)
"Send COMMEND to BUFFER's process, and return the results as a string."
"Send COMMAND to BUFFER's process, and return the results as a string."
(org-babel-comint-input-command buffer command)
(org-babel-comint-last-output buffer))