Mercurial > emacs
changeset 66560:232f770dbf0f
(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.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sun, 30 Oct 2005 16:42:48 +0000 |
| parents | a3ac2cd57daa |
| children | 742e40a6bf3c |
| files | lisp/comint.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Sun Oct 30 16:39:55 2005 +0000 +++ b/lisp/comint.el Sun Oct 30 16:42:48 2005 +0000 @@ -1550,7 +1550,11 @@ ;; 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.