procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "comint-fl: Prevent fontification of output as input"

Browse source 
This reverts commit 90744ff0be.
This commit is contained in:
Miha Rihtaršič 2022-10-06 19:06:37 +02:00 • committed by Lars Ingebrigtsen
parent 17d0f61c80
commit 46c2f152c2
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/comint.el
View file

@ -2150,26 +2150,24 @@ Make backspaces delete the previous character."
;; insert-before-markers is a bad thing. XXX
;; Luckily we don't have to use it any more, we use
;; window-point-insertion-type instead.
(make-local-variable 'jit-lock-mode)
(let ((jit-lock-mode nil))
(insert string)
(insert string)
;; Advance process-mark
(set-marker (process-mark process) (point))
;; Advance process-mark
(set-marker (process-mark process) (point))
(unless comint-inhibit-carriage-motion
(unless comint-inhibit-carriage-motion
;; Interpret any carriage motion characters (newline, backspace)
(comint-carriage-motion comint-last-output-start (point)))
;; Run these hooks with point where the user had it.
(goto-char saved-point)
(run-hook-with-args 'comint-output-filter-functions string)
(set-marker saved-point (point))
;; Run these hooks with point where the user had it.
(goto-char saved-point)
(run-hook-with-args 'comint-output-filter-functions string)
(set-marker saved-point (point))
(goto-char (process-mark process)) ; In case a filter moved it.
(goto-char (process-mark process)) ; In case a filter moved it.
(unless comint-use-prompt-regexp
(comint--mark-as-output comint-last-output-start (point))))
(unless comint-use-prompt-regexp
(comint--mark-as-output comint-last-output-start (point)))
;; Highlight the prompt, where we define `prompt' to mean
;; the most recent output that doesn't end with a newline.