# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772583226 0
# Node ID 5b9bbe66631c46e4c01b7a1200f1c72eb20d0b6b
# Parent  59baddaf62a0d1765817fada56c4be9295cab369
(comint-send-input): Update markers before actually sending the input.

diff -r 59baddaf62a0 -r 5b9bbe66631c lisp/comint.el
--- a/lisp/comint.el	Sat Jun 25 19:08:29 1994 +0000
+++ b/lisp/comint.el	Sat Jun 25 22:27:06 1994 +0000
@@ -1137,11 +1137,13 @@
 	    (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