diff options
| author | Glenn Morris | 2015-05-12 21:19:38 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-05-12 21:19:38 -0400 |
| commit | 8a9ba4d67bfb3b9cf96cff2917fec1fa7a168724 (patch) | |
| tree | 7e30f69a2cdfd28489e10d4666d32341dca9c0d7 | |
| parent | 660c30cc8cec13cf0c2177c62f3c1acc23b04f7d (diff) | |
| download | emacs-8a9ba4d67bfb3b9cf96cff2917fec1fa7a168724.tar.gz emacs-8a9ba4d67bfb3b9cf96cff2917fec1fa7a168724.zip | |
* lisp/progmodes/tcl.el (tcl-filter):
Handle comint-prompt-read-only like gud.el does. (Bug#20549)
| -rw-r--r-- | lisp/progmodes/tcl.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 1028 | (with-current-buffer (process-buffer proc) | 1028 | (with-current-buffer (process-buffer proc) |
| 1029 | ;; Delete prompt if requested. | 1029 | ;; Delete prompt if requested. |
| 1030 | (when (marker-buffer inferior-tcl-delete-prompt-marker) | 1030 | (when (marker-buffer inferior-tcl-delete-prompt-marker) |
| 1031 | (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker) | 1031 | (let ((inhibit-read-only t)) |
| 1032 | (delete-region (process-mark proc) inferior-tcl-delete-prompt-marker)) | ||
| 1032 | (set-marker inferior-tcl-delete-prompt-marker nil)))) | 1033 | (set-marker inferior-tcl-delete-prompt-marker nil)))) |
| 1033 | (comint-output-filter proc string)) | 1034 | (comint-output-filter proc string)) |
| 1034 | 1035 | ||