(comint-send-input):

  Create overlays using the proper front/read-advance arguments.

diff --git a/lisp/comint.el b/lisp/comint.el
index 292177191660020dca9715e1b33b6bf7b8c6ff60..e86c019a9d566d4bd957cf943382f5da6a1afe3b 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1413,7 +1413,7 @@ Similarly for Soar, Scheme, etc."
                (end (1- (point))))
            (when (not (> beg end))     ; handle a special case
              ;; Make an overlay for the input field
-             (let ((over (make-overlay beg end)))
+             (let ((over (make-overlay beg end nil nil t)))
                (unless comint-use-prompt-regexp-instead-of-fields
                  ;; Give old user input a field property of `input', to
                  ;; distinguish it from both process output and unsent
@@ -1428,7 +1428,7 @@ Similarly for Soar, Scheme, etc."
                  (overlay-put over 'evaporate t))))
            (unless comint-use-prompt-regexp-instead-of-fields
              ;; Make an overlay for the terminating newline
-             (let ((over (make-overlay end (1+ end))))
+             (let ((over (make-overlay end (1+ end) nil t nil)))
                (overlay-put over 'field 'boundary)
                (overlay-put over 'rear-nonsticky t)
                (overlay-put over 'evaporate t))))