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

1 files changed, 3 insertions, 1 deletions

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