aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/comint.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index 4094969ae8e..092902d865e 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -226,6 +226,7 @@ This variable is buffer-local."
226(defcustom comint-highlight-input t 226(defcustom comint-highlight-input t
227 "If non-nil, highlight input with `comint-highlight-input' face. 227 "If non-nil, highlight input with `comint-highlight-input' face.
228Otherwise keep the original highlighting untouched." 228Otherwise keep the original highlighting untouched."
229 :version "28.1"
229 :type 'boolean 230 :type 'boolean
230 :group 'comint) 231 :group 'comint)
231 232
@@ -1904,9 +1905,9 @@ Similarly for Soar, Scheme, etc."
1904 (with-silent-modifications 1905 (with-silent-modifications
1905 (when (> end beg) 1906 (when (> end beg)
1906 (when comint-highlight-input 1907 (when comint-highlight-input
1907 (add-text-properties beg end 1908 (add-text-properties beg end
1908 '(front-sticky t 1909 '( font-lock-face comint-highlight-input
1909 font-lock-face comint-highlight-input))) 1910 front-sticky t )))
1910 (unless comint-use-prompt-regexp 1911 (unless comint-use-prompt-regexp
1911 ;; Give old user input a field property of `input', to 1912 ;; Give old user input a field property of `input', to
1912 ;; distinguish it from both process output and unsent 1913 ;; distinguish it from both process output and unsent