From 8a9ba4d67bfb3b9cf96cff2917fec1fa7a168724 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 12 May 2015 21:19:38 -0400 Subject: [PATCH] * lisp/progmodes/tcl.el (tcl-filter): Handle comint-prompt-read-only like gud.el does. (Bug#20549) --- lisp/progmodes/tcl.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5