Commit 5dee02a3 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(comint-snapshot-last-prompt): Bind `inhibit-read-only' to t to support

read-only prompts.
(comint-output-filter): Likewise.
parent cc1b792b
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> 2002-06-14 Miles Bader <miles@gnu.org>
* subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'. * subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.
......
...@@ -1535,9 +1535,10 @@ either globally or locally.") ...@@ -1535,9 +1535,10 @@ either globally or locally.")
;; prompt overlay. ;; prompt overlay.
(defun comint-snapshot-last-prompt () (defun comint-snapshot-last-prompt ()
(when comint-last-prompt-overlay (when comint-last-prompt-overlay
(add-text-properties (overlay-start comint-last-prompt-overlay) (let ((inhibit-read-only t))
(overlay-end comint-last-prompt-overlay) (add-text-properties (overlay-start comint-last-prompt-overlay)
(overlay-properties comint-last-prompt-overlay)))) (overlay-end comint-last-prompt-overlay)
(overlay-properties comint-last-prompt-overlay)))))
(defun comint-carriage-motion (string) (defun comint-carriage-motion (string)
"Handle carriage control characters in comint output. "Handle carriage control characters in comint output.
...@@ -1661,10 +1662,11 @@ This function should be in the list `comint-output-filter-functions'." ...@@ -1661,10 +1662,11 @@ This function should be in the list `comint-output-filter-functions'."
(set-marker (process-mark process) (point)) (set-marker (process-mark process) (point))
(unless comint-use-prompt-regexp-instead-of-fields (unless comint-use-prompt-regexp-instead-of-fields
(add-text-properties comint-last-output-start (point) (let ((inhibit-read-only t))
'(rear-nonsticky t (add-text-properties comint-last-output-start (point)
field output '(rear-nonsticky t
inhibit-line-move-field-capture t))) field output
inhibit-line-move-field-capture t))))
;; Highlight the prompt, where we define `prompt' to mean ;; Highlight the prompt, where we define `prompt' to mean
;; the most recent output that doesn't end with a newline. ;; the most recent output that doesn't end with a newline.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment