# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1130690568 0
# Node ID 232f770dbf0fd038bfdda80db7e0a21eac994099
# Parent  a3ac2cd57daae046846c43185819954baf001e37
(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 -r a3ac2cd57daa -r 232f770dbf0f lisp/comint.el
--- a/lisp/comint.el	Sun Oct 30 16:39:55 2005 +0000
+++ b/lisp/comint.el	Sun Oct 30 16:42:48 2005 +0000
@@ -1550,7 +1550,11 @@
 		  ;; 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.