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