(comint-send-input): Call `comint-update-fence' when

`comint-process-echoes' and `comint-prompt-read-only' are both
non-nil, to avoid leftover read-only newline.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 2ae5e049023..3d9da2b8ea2 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1550,7 +1550,11 @@ Similarly for Soar, Scheme, etc."
                   ;; problems when `comint-prompt-read-only' is non-nil.
                   (let ((inhibit-read-only t))
                     (delete-region comint-last-input-end
-                                   (+ comint-last-input-end echo-len))))))
+                                   (+ comint-last-input-end echo-len))
+                    (when comint-prompt-read-only
+                      (save-excursion
+                        (goto-char comint-last-input-end)
+                        (comint-update-fence)))))))
 
           ;; This used to call comint-output-filter-functions,
           ;; but that scrolled the buffer in undesirable ways.