1550 |
;; problems when `comint-prompt-read-only' is non-nil. |
;; problems when `comint-prompt-read-only' is non-nil. |
1551 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1552 |
(delete-region comint-last-input-end |
(delete-region comint-last-input-end |
1553 |
(+ comint-last-input-end echo-len)))))) |
(+ comint-last-input-end echo-len)) |
1554 |
|
(when comint-prompt-read-only |
1555 |
|
(save-excursion |
1556 |
|
(goto-char comint-last-input-end) |
1557 |
|
(comint-update-fence))))))) |
1558 |
|
|
1559 |
;; This used to call comint-output-filter-functions, |
;; This used to call comint-output-filter-functions, |
1560 |
;; but that scrolled the buffer in undesirable ways. |
;; but that scrolled the buffer in undesirable ways. |