From: Glenn Morris <rgm@gnu.org>
Date: Wed, 13 May 2015 01:19:38 +0000 (-0400)
Subject: * lisp/progmodes/tcl.el (tcl-filter):
X-Git-Tag: emacs-25.0.90~2107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a9ba4d67bfb3b9cf96cff2917fec1fa7a168724;p=emacs.git

* lisp/progmodes/tcl.el (tcl-filter):

Handle comint-prompt-read-only like gud.el does.  (Bug#20549)
---

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 8f7705ba17d..e4e96554c95 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1028,7 +1028,8 @@ Returns nil if line starts inside a string, t if in a comment."
     (with-current-buffer (process-buffer proc)
       ;; Delete prompt if requested.
       (when (marker-buffer inferior-tcl-delete-prompt-marker)
-        (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker)
+	(let ((inhibit-read-only t))
+	  (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker))
         (set-marker inferior-tcl-delete-prompt-marker nil))))
   (comint-output-filter proc string))