[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 53814a8068: Merge branch 'bugfix'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 53814a8068: Merge branch 'bugfix' |
Date: |
Fri, 2 Dec 2022 06:57:48 -0500 (EST) |
branch: externals/org
commit 53814a8068489eb7baa8ff408b4da15ae6699beb
Merge: 9e9412919e 4564627415
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
Merge branch 'bugfix'
---
lisp/ob-comint.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el
index e8d8367076..064ba94464 100644
--- a/lisp/ob-comint.el
+++ b/lisp/ob-comint.el
@@ -117,6 +117,14 @@ or user `keyboard-quit' during execution of body."
(goto-char (process-mark (get-buffer-process (current-buffer))))
(insert dangling-text)
+ ;; Replace partially supplied input lines.
+ ;; This is needed when output filter spits partial lines that
+ ;; do not include a full prompt at a time.
+ (setq string-buffer
+ (replace-regexp-in-string
+ comint-prompt-regexp
+ ,org-babel-comint-prompt-separator
+ string-buffer))
;; remove echo'd FULL-BODY from input
(when (and ,remove-echo ,full-body
(string-match