Mercurial > emacs
comparison lisp/comint.el @ 8060:5b9bbe66631c
(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 | 936532a595dd |
children | c22d7c5168f5 |
comparison
equal
deleted
inserted
replaced
8059:59baddaf62a0 | 8060:5b9bbe66631c |
---|---|
1135 (ring-insert comint-input-ring history)) | 1135 (ring-insert comint-input-ring history)) |
1136 (let ((functions comint-input-filter-functions)) | 1136 (let ((functions comint-input-filter-functions)) |
1137 (while functions | 1137 (while functions |
1138 (funcall (car functions) (concat input "\n")) | 1138 (funcall (car functions) (concat input "\n")) |
1139 (setq functions (cdr functions)))) | 1139 (setq functions (cdr functions)))) |
1140 (funcall comint-input-sender proc input) | |
1141 (setq comint-input-ring-index nil) | 1140 (setq comint-input-ring-index nil) |
1141 ;; Update the markers before we send the input | |
1142 ;; in case we get output amidst sending the input. | |
1142 (set-marker comint-last-input-start pmark) | 1143 (set-marker comint-last-input-start pmark) |
1143 (set-marker comint-last-input-end (point)) | 1144 (set-marker comint-last-input-end (point)) |
1144 (set-marker (process-mark proc) (point)) | 1145 (set-marker (process-mark proc) (point)) |
1146 (funcall comint-input-sender proc input) | |
1145 (comint-output-filter proc ""))))) | 1147 (comint-output-filter proc ""))))) |
1146 | 1148 |
1147 ;; The purpose of using this filter for comint processes | 1149 ;; The purpose of using this filter for comint processes |
1148 ;; is to keep comint-last-input-end from moving forward | 1150 ;; is to keep comint-last-input-end from moving forward |
1149 ;; when output is inserted. | 1151 ;; when output is inserted. |