Mercurial > emacs
changeset 45826:ffa13f09e36d
(comint-snapshot-last-prompt): Bind `inhibit-read-only' to t to support
read-only prompts.
(comint-output-filter): Likewise.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 14 Jun 2002 09:41:20 +0000 |
| parents | 35938e94ade9 |
| children | 6afcf684fc24 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Fri Jun 14 08:28:35 2002 +0000 +++ b/lisp/comint.el Fri Jun 14 09:41:20 2002 +0000 @@ -1535,9 +1535,10 @@ ;; prompt overlay. (defun comint-snapshot-last-prompt () (when comint-last-prompt-overlay - (add-text-properties (overlay-start comint-last-prompt-overlay) - (overlay-end comint-last-prompt-overlay) - (overlay-properties comint-last-prompt-overlay)))) + (let ((inhibit-read-only t)) + (add-text-properties (overlay-start comint-last-prompt-overlay) + (overlay-end comint-last-prompt-overlay) + (overlay-properties comint-last-prompt-overlay))))) (defun comint-carriage-motion (string) "Handle carriage control characters in comint output. @@ -1661,10 +1662,11 @@ (set-marker (process-mark process) (point)) (unless comint-use-prompt-regexp-instead-of-fields - (add-text-properties comint-last-output-start (point) - '(rear-nonsticky t - field output - inhibit-line-move-field-capture t))) + (let ((inhibit-read-only t)) + (add-text-properties comint-last-output-start (point) + '(rear-nonsticky t + field output + inhibit-line-move-field-capture t)))) ;; Highlight the prompt, where we define `prompt' to mean ;; the most recent output that doesn't end with a newline.