# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1118351293 0
# Node ID 14aba7b7076a86623a7d9f599387a5c5371a5a0f
# Parent  dd314823ab7d5d93be8e9771a0541ef73f73fb4e
(comint-send-input): Bind `inhibit-read-only' around call to `delete-region'.

diff -r dd314823ab7d -r 14aba7b7076a lisp/comint.el
--- a/lisp/comint.el	Thu Jun 09 14:04:18 2005 +0000
+++ b/lisp/comint.el	Thu Jun 09 21:08:13 2005 +0000
@@ -1547,8 +1547,12 @@
 		     nil comint-last-input-start comint-last-input-end
 		     nil comint-last-input-end
 		     (+ comint-last-input-end echo-len))))
-		  (delete-region comint-last-input-end
-				 (+ comint-last-input-end echo-len)))))
+		  ;; Certain parts of the text to be deleted may have
+		  ;; been mistaken for prompts.  We have to prevent
+		  ;; 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))))))
 
 	  ;; This used to call comint-output-filter-functions,
 	  ;; but that scrolled the buffer in undesirable ways.