From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 08:08:45 +0000 (+0000)
Subject: (comint-send-input): Use insert-before-markers for all the insertions.
X-Git-Tag: emacs-19.34~321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2a4935039020e7c3288c53dfc09bd63a4aea9f9;p=emacs.git

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

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))