[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 46c2f152c2 1/2: Revert "comint-fl: Prevent fontification of outpu
From: |
Lars Ingebrigtsen |
Subject: |
master 46c2f152c2 1/2: Revert "comint-fl: Prevent fontification of output as input" |
Date: |
Fri, 7 Oct 2022 07:44:28 -0400 (EDT) |
branch: master
commit 46c2f152c255198d91fa7404e5518feeecd215b2
Author: Miha Rihtaršič <miha@kamnitnik.top>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Revert "comint-fl: Prevent fontification of output as input"
This reverts commit 90744ff0be581b69cedea1194b7e78265bdb67a4.
---
lisp/comint.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/lisp/comint.el b/lisp/comint.el
index b1f3ad8259..e3eee8411c 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -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.