mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-output-filter, comint-send-input):

Browse source 
Don't bother adding stickiness fields to overlays to fool the field
  code, since it should notice the overlay insertion-types now.
This commit is contained in:
Miles Bader 2000-10-25 05:21:54 +00:00
parent 7ae1c03203
commit c7c800d8d1
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/comint.el
View file

@ -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)