From b43fa134185c3e38964a61006b1c7e1c5e9c9fd8 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Sun, 30 Oct 2005 16:42:48 +0000 Subject: [PATCH] (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. --- lisp/comint.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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. -- 2.39.5