]> git.eshelyaron.com Git - emacs.git/commitdiff
Revert "comint-fl: Prevent fontification of output as input"
authorMiha Rihtaršič <miha@kamnitnik.top>
Thu, 6 Oct 2022 17:06:37 +0000 (19:06 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 7 Oct 2022 11:44:21 +0000 (13:44 +0200)
This reverts commit 90744ff0be581b69cedea1194b7e78265bdb67a4.

lisp/comint.el

index b1f3ad8259dac0b07325fb7f73db33ecbd6d3c9b..e3eee8411c7ecdd4cc93e15e5d2b015a142c3f13 100644 (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.