From c7c800d8d101691f2028ba78fc80a98adfe4500b Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 25 Oct 2000 05:21:54 +0000 Subject: [PATCH] (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. --- lisp/comint.el | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) 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) -- 2.39.2