From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sun, 30 Oct 2005 16:42:48 +0000 (+0000)
Subject: (comint-send-input): Call `comint-update-fence' when
X-Git-Tag: emacs-pretest-22.0.90~6182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b43fa134185c3e38964a61006b1c7e1c5e9c9fd8;p=emacs.git

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