# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 967548069 0
# Node ID f7d9dca2541e10356e8d8d9bd52dc675b079ad59
# Parent  2be1770112c1233ff3ae1b5e91f9e8ba0b0fba87
(comint-send-input):
  Create overlays using the proper front/read-advance arguments.

diff -r 2be1770112c1 -r f7d9dca2541e lisp/comint.el
--- a/lisp/comint.el	Tue Aug 29 11:18:16 2000 +0000
+++ b/lisp/comint.el	Tue Aug 29 11:21:09 2000 +0000
@@ -1413,7 +1413,7 @@
 		(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 @@
 		  (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))))