(comint-send-input): Use insert-before-markers for all the insertions.

[gnu-emacs] / lisp / comint.el

diff --git a/lisp/comint.el b/lisp/comint.el
index 45ab7e6d4ec220c6432a6243036f9fcf597d5249..019fff11572dcb5d47a67ea1371f61d486259696 100644 (file)
--- 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))