changeset 32852:cb10361cc039

(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.
author Miles Bader <miles@gnu.org>
date Wed, 25 Oct 2000 05:21:54 +0000
parents b3e358949f64
children 3410d8818561
files lisp/comint.el
diffstat 1 files changed, 5 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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)