diff options
| author | Miles Bader <miles@gnu.org> | 2000-10-25 05:21:54 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-10-25 05:21:54 +0000 |
| commit | c7c800d8d101691f2028ba78fc80a98adfe4500b (patch) | |
| tree | ac9d137f8c614b1cd3776664663c2196e24ec72e /lisp/comint.el | |
| parent | 7ae1c032031cde96d276c7f3b785e5ce5d0fb6fb (diff) | |
| download | emacs-c7c800d8d101691f2028ba78fc80a98adfe4500b.tar.gz | |
(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.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 15 |
1 files 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) |