diff options
| -rw-r--r-- | lisp/comint.el | 7 |
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. |
| 228 | Otherwise keep the original highlighting untouched." | 228 | Otherwise 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 |