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

babel: more robust newline regexp in `org-babel-comint-with-output' 

* contrib/babel/lisp/org-babel-comint.el (org-babel-comint-with-output):
  Placing a more general regexp substitution for matching newlines
  returned by comint.  This new option should definitely cover all
  cases.
This commit is contained in:
Eric Schulte 2010-06-07 12:58:38 -07:00
parent 8318845f6d
commit 9c02bf4946
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/babel/lisp/org-babel-comint.el
View File

@ -97,7 +97,8 @@ during execution of body."
(if (and ,remove-echo
(string-match
(replace-regexp-in-string
"\n" "\r\n" (regexp-quote ,full-body)) string-buffer))
"\n" "[\r\n]+" (regexp-quote ,full-body))
string-buffer))
(setq raw (substring string-buffer (match-end 0))))
(split-string string-buffer comint-prompt-regexp))))