diff options
| author | Richard M. Stallman | 1996-06-28 08:08:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-28 08:08:45 +0000 |
| commit | d2a4935039020e7c3288c53dfc09bd63a4aea9f9 (patch) | |
| tree | 8352a459a0da9a1a265c04449ce6329b0b287e31 | |
| parent | 517697d92b304152326b2eca4fb31b5b15f45d79 (diff) | |
| download | emacs-d2a4935039020e7c3288c53dfc09bd63a4aea9f9.tar.gz emacs-d2a4935039020e7c3288c53dfc09bd63a4aea9f9.zip | |
(comint-send-input): Use insert-before-markers for all the insertions.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 45ab7e6d4ec..019fff11572 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1166,11 +1166,11 @@ Similarly for Soar, Scheme, etc." | |||
| 1166 | (comint-replace-by-expanded-history t) | 1166 | (comint-replace-by-expanded-history t) |
| 1167 | (let ((copy (buffer-substring pmark (point)))) | 1167 | (let ((copy (buffer-substring pmark (point)))) |
| 1168 | (delete-region pmark (point)) | 1168 | (delete-region pmark (point)) |
| 1169 | (insert input) | 1169 | (insert-before-markers input) |
| 1170 | copy)))) | 1170 | copy)))) |
| 1171 | (if comint-process-echoes | 1171 | (if comint-process-echoes |
| 1172 | (delete-region pmark (point)) | 1172 | (delete-region pmark (point)) |
| 1173 | (insert ?\n)) | 1173 | (insert-before-markers ?\n)) |
| 1174 | (if (and (funcall comint-input-filter history) | 1174 | (if (and (funcall comint-input-filter history) |
| 1175 | (or (null comint-input-ignoredups) | 1175 | (or (null comint-input-ignoredups) |
| 1176 | (not (ring-p comint-input-ring)) | 1176 | (not (ring-p comint-input-ring)) |