(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 a48dd1e7ce327059c4133ef93cbcaa0719d0d61e..a3cc276c0aa301ba17f3205c605f9495fb550e97 100644 (file)
--- 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)