mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

(comint-send-input):

Browse source 
Create overlays using the proper front/read-advance arguments.
This commit is contained in:
Miles Bader 2000-08-29 11:21:09 +00:00
parent 613fa7f2bd
commit 22bcff4e75
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/comint.el
View file

@ -1413,7 +1413,7 @@ Similarly for Soar, Scheme, etc."
(end (1- (point))))
(when (not (> beg end)) ; handle a special case
;; Make an overlay for the input field
(let ((over (make-overlay beg end)))
(let ((over (make-overlay beg end nil nil t)))
(unless comint-use-prompt-regexp-instead-of-fields
;; Give old user input a field property of `input', to
;; distinguish it from both process output and unsent
@ -1428,7 +1428,7 @@ Similarly for Soar, Scheme, etc."
(overlay-put over 'evaporate t))))
(unless comint-use-prompt-regexp-instead-of-fields
;; Make an overlay for the terminating newline
(let ((over (make-overlay end (1+ end))))
(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))))