Mercurial > emacs
changeset 31260:f7d9dca2541e
(comint-send-input):
Create overlays using the proper front/read-advance arguments.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 29 Aug 2000 11:21:09 +0000 |
| parents | 2be1770112c1 |
| children | 68e92dba3e27 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Tue Aug 29 11:18:16 2000 +0000 +++ b/lisp/comint.el Tue Aug 29 11:21:09 2000 +0000 @@ -1413,7 +1413,7 @@ (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 @@ (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))))