aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBasil L. Contovounesios2020-08-19 12:37:03 +0100
committerBasil L. Contovounesios2020-08-19 12:47:51 +0100
commitbd3e2e848712bf4197000e02d832947b1f7928b6 (patch)
tree98d32cf9215d688ccfd1d01997b80d50808a4a86
parented96a2121de61390d7acce6f2f03521b47b7d978 (diff)
downloademacs-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.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