diff options
| author | Basil L. Contovounesios | 2020-08-19 12:37:03 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios | 2020-08-19 12:47:51 +0100 |
| commit | bd3e2e848712bf4197000e02d832947b1f7928b6 (patch) | |
| tree | 98d32cf9215d688ccfd1d01997b80d50808a4a86 | |
| parent | ed96a2121de61390d7acce6f2f03521b47b7d978 (diff) | |
| download | emacs-bd3e2e848712bf4197000e02d832947b1f7928b6.tar.gz emacs-bd3e2e848712bf4197000e02d832947b1f7928b6.zip | |
; Fix last change to comint.el
* lisp/comint.el (comint-highlight-input): Add :version tag.
(comint-send-input): Fix indentation.
| -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 |