# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972451314 0
# Node ID cb10361cc03910e200abd71c29655cad3f586250
# Parent  b3e358949f64ad3d07ccc2e7a44c903a0dce3671
(comint-output-filter, comint-send-input):
  Don't bother adding stickiness fields to overlays to fool the field
  code, since it should notice the overlay insertion-types now.

diff -r b3e358949f64 -r cb10361cc039 lisp/comint.el
--- a/lisp/comint.el	Wed Oct 25 05:18:10 2000 +0000
+++ b/lisp/comint.el	Wed Oct 25 05:21:54 2000 +0000
@@ -1411,8 +1411,7 @@
 		  ;; input.  The terminating newline is put into a special
 		  ;; `boundary' field to make cursor movement between input
 		  ;; and output fields smoother.
-		  (overlay-put over 'field 'input)
-		  (overlay-put over 'front-sticky t))
+		  (overlay-put over 'field 'input))
 		(when comint-highlight-input
 		  (overlay-put over 'face 'comint-highlight-input)
 		  (overlay-put over 'mouse-face 'highlight)
@@ -1421,7 +1420,6 @@
 	      ;; Make an overlay for the terminating newline
 	      (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))))
 
 	  (comint-snapshot-last-prompt)
@@ -1563,8 +1561,6 @@
 		(let ((over (make-overlay comint-last-output-start (point))))
 		  (overlay-put over 'field 'output)
 		  (overlay-put over 'inhibit-line-move-field-capture t)
-		  (overlay-put over 'front-sticky t)
-		  (overlay-put over 'rear-nonsticky t)
 		  (overlay-put over 'evaporate t)
 		  (setq comint-last-output-overlay over))))
 
@@ -1581,11 +1577,10 @@
 		      (move-overlay comint-last-prompt-overlay
 				    prompt-start (point))
 		    ;; Need to create the overlay
-		    (let ((over (make-overlay prompt-start (point))))
-		      (overlay-put over 'face 'comint-highlight-prompt)
-		      (overlay-put over 'front-sticky t)
-		      (overlay-put over 'rear-nonsticky t)
-		      (setq comint-last-prompt-overlay over))))))
+		    (setq comint-last-prompt-overlay
+			  (make-overlay prompt-start (point)))
+		    (overlay-put comint-last-prompt-overlay
+				 'face 'comint-highlight-prompt)))))
 
 	    (goto-char saved-point)