From: Miles Bader <miles@gnu.org>
Date: Wed, 25 Oct 2000 05:21:54 +0000 (+0000)
Subject: (comint-output-filter, comint-send-input):
X-Git-Tag: emacs-pretest-21.0.90~599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7c800d8d101691f2028ba78fc80a98adfe4500b;p=emacs.git

(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 --git a/lisp/comint.el b/lisp/comint.el
index a48dd1e7ce3..a3cc276c0aa 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1411,8 +1411,7 @@ Similarly for Soar, Scheme, etc."
 		  ;; 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 @@ Similarly for Soar, Scheme, etc."
 	      ;; 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 @@ This variable is permanent-local.")
 		(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 @@ This variable is permanent-local.")
 		      (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)