mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki 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
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