(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.

diff --git a/lisp/comint.el b/lisp/comint.el
index 2ae5e049023e2272572b6ac3d5a4886db606608c..3d9da2b8ea2b787fc1eeedcfc855a1ddd96af811 100644 (file)
--- 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.