* lisp/progmodes/tcl.el (tcl-filter):
Handle comint-prompt-read-only like gud.el does. (Bug#20549)
This commit is contained in:
parent
660c30cc8c
commit
8a9ba4d67b
1 changed files with 2 additions and 1 deletions
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue