فهرست منبع

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.
Eric Schulte 15 سال پیش
والد
کامیت
9c02bf4946
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      contrib/babel/lisp/org-babel-comint.el

+ 2 - 1
contrib/babel/lisp/org-babel-comint.el

@@ -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))))