Mercurial > emacs

changeset 8060:5b9bbe66631c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-send-input): Update markers before actually sending the input.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 1994 22:27:06 +0000
parents 59baddaf62a0
children ce94573db44d
files lisp/comint.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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