1388 |
cmd)))) |
cmd)))) |
1389 |
(ring-insert comint-input-ring cmd))) |
(ring-insert comint-input-ring cmd))) |
1390 |
|
|
1391 |
(defun comint-send-input (&optional no-newline) |
(defun comint-send-input (&optional no-newline artificial) |
1392 |
"Send input to process. |
"Send input to process. |
1393 |
After the process output mark, sends all text from the process mark to |
After the process output mark, sends all text from the process mark to |
1394 |
point as input to the process. Before the process output mark, calls |
point as input to the process. Before the process output mark, calls |
1395 |
value of variable `comint-get-old-input' to retrieve old input, copies |
value of variable `comint-get-old-input' to retrieve old input, copies |
1396 |
it to the process mark, and sends it. A terminal newline is also |
it to the process mark, and sends it. |
1397 |
inserted into the buffer and sent to the process unless NO-NEWLINE is |
|
1398 |
non-nil. |
This command also sends and inserts a final newline, unless |
1399 |
|
NO-NEWLINE is non-nil. |
1400 |
|
|
1401 |
Any history reference may be expanded depending on the value of the variable |
Any history reference may be expanded depending on the value of the variable |
1402 |
`comint-input-autoexpand'. The list of function names contained in the value |
`comint-input-autoexpand'. The list of function names contained in the value |
1410 |
After the input has been sent, if `comint-process-echoes' is non-nil, |
After the input has been sent, if `comint-process-echoes' is non-nil, |
1411 |
then `comint-send-input' waits to see if the process outputs a string |
then `comint-send-input' waits to see if the process outputs a string |
1412 |
matching the input, and if so, deletes that part of the output. |
matching the input, and if so, deletes that part of the output. |
1413 |
|
If ARTIFICIAL is non-nil, it inhibits such deletion. |
1414 |
|
Callers sending input not from the user should use ARTIFICIAL = t. |
1415 |
|
|
1416 |
The values of `comint-get-old-input', `comint-input-filter-functions', and |
The values of `comint-get-old-input', `comint-input-filter-functions', and |
1417 |
`comint-input-filter' are chosen according to the command interpreter running |
`comint-input-filter' are chosen according to the command interpreter running |
1516 |
(funcall comint-input-sender proc input)) |
(funcall comint-input-sender proc input)) |
1517 |
|
|
1518 |
;; Optionally delete echoed input (after checking it). |
;; Optionally delete echoed input (after checking it). |
1519 |
(when comint-process-echoes |
(when (and comint-process-echoes (not artificial)) |
1520 |
(let ((echo-len (- comint-last-input-end |
(let ((echo-len (- comint-last-input-end |
1521 |
comint-last-input-start))) |
comint-last-input-start))) |
1522 |
;; Wait for all input to be echoed: |
;; Wait for all input to be echoed: |
2091 |
This means mark it as if it had been sent as input, without sending it." |
This means mark it as if it had been sent as input, without sending it." |
2092 |
(let ((comint-input-sender 'ignore) |
(let ((comint-input-sender 'ignore) |
2093 |
(comint-input-filter-functions nil)) |
(comint-input-filter-functions nil)) |
2094 |
(comint-send-input t)) |
(comint-send-input t t)) |
2095 |
(end-of-line) |
(end-of-line) |
2096 |
(let ((pos (point)) |
(let ((pos (point)) |
2097 |
(marker (process-mark (get-buffer-process (current-buffer))))) |
(marker (process-mark (get-buffer-process (current-buffer))))) |
2118 |
(defun comint-send-eof () |
(defun comint-send-eof () |
2119 |
"Send an EOF to the current buffer's process." |
"Send an EOF to the current buffer's process." |
2120 |
(interactive) |
(interactive) |
2121 |
(comint-send-input t) |
(comint-send-input t t) |
2122 |
(process-send-eof)) |
(process-send-eof)) |
2123 |
|
|
2124 |
|
|