diff options
author | Simon Marshall <simon@gnu.org> | 1997-05-26 09:53:59 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1997-05-26 09:53:59 +0000 |
commit | 463ba407875c86b72967a46d1ad6976cbb8f4bc6 (patch) | |
tree | c6937c934df1013b23e9c8ab8dc25733e467ca0e /lisp/comint.el | |
parent | 8ff6a83f75eb51c7a614452e8b5298af1ca29188 (diff) | |
download | emacs-463ba407875c86b72967a46d1ad6976cbb8f4bc6.tar.gz |
Use insert to preserve marker positions (pmark) and delete last.
Diffstat (limited to 'lisp/comint.el')
-rw-r--r-- | lisp/comint.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 8ae8787d2e3..6e6691dea87 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1218,9 +1218,10 @@ Similarly for Soar, Scheme, etc." ;; functions used do insertion, rather than return ;; strings. We have to expand, then insert back. (comint-replace-by-expanded-history t) - (let ((copy (buffer-substring pmark (point)))) - (delete-region pmark (point)) - (insert-before-markers input) + (let ((copy (buffer-substring pmark (point))) + (start (point))) + (insert input) + (delete-region pmark start) copy)))) (if comint-process-echoes (delete-region pmark (point)) |