Commit 6de79542 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/comint.el: Add `font-lock-face` to `rear-nonsticky`

(comint--prompt-rear-nonsticky): New const.
(comint-send-input, comint-output-filter): Use it.
parent 214dfbfe
Pipeline #10295 failed with stages
in 172 minutes and 11 seconds
......@@ -1797,6 +1797,10 @@ Ignore duplicates if `comint-input-ignoredups' is non-nil."
(min size (- comint-input-ring-size size)))))
(ring-insert comint-input-ring cmd)))
(defconst comint--prompt-rear-nonsticky
'(field inhibit-line-move-field-capture read-only font-lock-face)
"Text properties we set on the prompt and don't want to leak past it.")
(defun comint-send-input (&optional no-newline artificial)
"Send input to process.
After the process output mark, sends all text from the process mark to
......@@ -1916,8 +1920,8 @@ Similarly for Soar, Scheme, etc."
(unless (or no-newline comint-use-prompt-regexp)
;; Cover the terminating newline
(add-text-properties end (1+ end)
(field inhibit-line-move-field-capture read-only)
field boundary
inhibit-line-move-field-capture t)))))
......@@ -2124,10 +2128,10 @@ Make backspaces delete the previous character."
(unless comint-use-prompt-regexp
(add-text-properties comint-last-output-start (point)
(field inhibit-line-move-field-capture)
(field inhibit-line-move-field-capture read-only)
field output
inhibit-line-move-field-capture t))))
......@@ -2157,8 +2161,8 @@ Make backspaces delete the previous character."
(add-text-properties prompt-start (point)
(field inhibit-line-move-field-capture read-only))))
(goto-char saved-point)))))))
(defun comint-preinput-scroll-to-bottom ()
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