From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jun 1994 22:27:06 +0000 (+0000)
Subject: (comint-send-input): Update markers before actually sending the input.
X-Git-Tag: emacs-19.34~7793
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcdc526cc3fb50399ee82bc9f1f6cd78fb06b7c5;p=emacs.git

(comint-send-input): Update markers before actually sending the input.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 010889678ff..3a343303598 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1137,11 +1137,13 @@ Similarly for Soar, Scheme, etc."
 	    (while functions
 	      (funcall (car functions) (concat input "\n"))
 	      (setq functions (cdr functions))))
-	  (funcall comint-input-sender proc input)
 	  (setq comint-input-ring-index nil)
+	  ;; Update the markers before we send the input
+	  ;; in case we get output amidst sending the input.
 	  (set-marker comint-last-input-start pmark)
 	  (set-marker comint-last-input-end (point))
 	  (set-marker (process-mark proc) (point))
+	  (funcall comint-input-sender proc input)
 	  (comint-output-filter proc "")))))
 
 ;; The purpose of using this filter for comint processes