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

diff --git a/lisp/comint.el b/lisp/comint.el
index 010889678ff340406aef6217ccac74e2af21067a..3a343303598433e27e8d86135b07d53d6183a70d 100644 (file)
--- 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