diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-10-30 16:42:48 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-10-30 16:42:48 +0000 |
| commit | b43fa134185c3e38964a61006b1c7e1c5e9c9fd8 (patch) | |
| tree | e9447c554e5020bb4981943497dce97bb9bcae1e /lisp/comint.el | |
| parent | 8c633bb4ae8c637b745455ad7b604cf57b042c6d (diff) | |
| download | emacs-b43fa134185c3e38964a61006b1c7e1c5e9c9fd8.tar.gz | |
(comint-send-input): Call `comint-update-fence' when
`comint-process-echoes' and `comint-prompt-read-only' are both
non-nil, to avoid leftover read-only newline.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 2ae5e049023..3d9da2b8ea2 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1550,7 +1550,11 @@ Similarly for Soar, Scheme, etc." ;; 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)))))) + (+ comint-last-input-end echo-len)) + (when comint-prompt-read-only + (save-excursion + (goto-char comint-last-input-end) + (comint-update-fence))))))) ;; This used to call comint-output-filter-functions, ;; but that scrolled the buffer in undesirable ways. |