mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-06-25 22:27:06 +00:00
parent eb16ec06bb
commit dcdc526cc3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/comint.el
View File

@ -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