Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5dee02a3
Commit
5dee02a3
authored
Jun 14, 2002
by
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
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
7 deletions
+15
-7
lisp/ChangeLog
lisp/ChangeLog
+6
-0
lisp/comint.el
lisp/comint.el
+9
-7
No files found.
lisp/ChangeLog
View file @
5dee02a3
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'.
...
...
lisp/comint.el
View file @
5dee02a3
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment