diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:08:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:08:45 +0000 |
| commit | 17801c21007844bdc8156860f5e3b545b43814f6 (patch) | |
| tree | a087b51beb9501b7182715d6c1bc4a83bc34776c | |
| parent | 46d79d95cd32473f7085daaf82a9a9367258086c (diff) | |
| download | emacs-17801c21007844bdc8156860f5e3b545b43814f6.tar.gz | |
(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." (comint-replace-by-expanded-history t) (let ((copy (buffer-substring pmark (point)))) (delete-region pmark (point)) - (insert input) + (insert-before-markers input) copy)))) (if comint-process-echoes (delete-region pmark (point)) - (insert ?\n)) + (insert-before-markers ?\n)) (if (and (funcall comint-input-filter history) (or (null comint-input-ignoredups) (not (ring-p comint-input-ring)) |