Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2022-12-02 14:01:25 +08:00
commit 53814a8068
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

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