; Fix last change to comint.el

* lisp/comint.el (comint-highlight-input): Add :version tag.
(comint-send-input): Fix indentation.
This commit is contained in:
Basil L. Contovounesios 2020-08-19 12:37:03 +01:00
parent ed96a2121d
commit bd3e2e8487

View file

@ -226,6 +226,7 @@ This variable is buffer-local."
(defcustom comint-highlight-input t
"If non-nil, highlight input with `comint-highlight-input' face.
Otherwise keep the original highlighting untouched."
:version "28.1"
:type 'boolean
:group 'comint)
@ -1904,9 +1905,9 @@ Similarly for Soar, Scheme, etc."
(with-silent-modifications
(when (> end beg)
(when comint-highlight-input
(add-text-properties beg end
'(front-sticky t
font-lock-face comint-highlight-input)))
(add-text-properties beg end
'( font-lock-face comint-highlight-input
front-sticky t )))
(unless comint-use-prompt-regexp
;; Give old user input a field property of `input', to
;; distinguish it from both process output and unsent