Mercurial > emacs
comparison lisp/comint.el @ 63170:14aba7b7076a
(comint-send-input): Bind `inhibit-read-only' around call to `delete-region'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 09 Jun 2005 21:08:13 +0000 |
| parents | 073c3cc1d1d5 |
| children | 14e29b4d395f |
comparison
equal
deleted
inserted
replaced
| 63169:dd314823ab7d | 63170:14aba7b7076a |
|---|---|
| 1545 (zerop | 1545 (zerop |
| 1546 (compare-buffer-substrings | 1546 (compare-buffer-substrings |
| 1547 nil comint-last-input-start comint-last-input-end | 1547 nil comint-last-input-start comint-last-input-end |
| 1548 nil comint-last-input-end | 1548 nil comint-last-input-end |
| 1549 (+ comint-last-input-end echo-len)))) | 1549 (+ comint-last-input-end echo-len)))) |
| 1550 (delete-region comint-last-input-end | 1550 ;; Certain parts of the text to be deleted may have |
| 1551 (+ comint-last-input-end echo-len))))) | 1551 ;; been mistaken for prompts. We have to prevent |
| 1552 ;; problems when `comint-prompt-read-only' is non-nil. | |
| 1553 (let ((inhibit-read-only t)) | |
| 1554 (delete-region comint-last-input-end | |
| 1555 (+ comint-last-input-end echo-len)))))) | |
| 1552 | 1556 |
| 1553 ;; This used to call comint-output-filter-functions, | 1557 ;; This used to call comint-output-filter-functions, |
| 1554 ;; but that scrolled the buffer in undesirable ways. | 1558 ;; but that scrolled the buffer in undesirable ways. |
| 1555 (run-hook-with-args 'comint-output-filter-functions ""))))) | 1559 (run-hook-with-args 'comint-output-filter-functions ""))))) |
| 1556 | 1560 |