Mercurial > emacs
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)