diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/comint.el | 16 |
2 files changed, 15 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47b0bbe8d1a..6f8eb87a388 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-06-14 Juanma Barranquero <lektu@terra.es> + + * comint.el (comint-snapshot-last-prompt): Bind + `inhibit-read-only' to t to support read-only prompts. + (comint-output-filter): Likewise. + 2002-06-14 Miles Bader <miles@gnu.org> * subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'. diff --git a/lisp/comint.el b/lisp/comint.el index ea06ab4ac5f..6840e4d6c5a 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1535,9 +1535,10 @@ either globally or locally.") ;; 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 @@ This function should be in the list `comint-output-filter-functions'." (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. |