1029 |
t t string))) |
t t string))) |
1030 |
(comint-send-string proc string) |
(comint-send-string proc string) |
1031 |
(if comint-input-sender-no-newline |
(if comint-input-sender-no-newline |
1032 |
(if (not (string-equal input "")) |
(if (not (string-equal string "")) |
1033 |
(process-send-eof)) |
(process-send-eof)) |
1034 |
(comint-send-string proc "\n"))) |
(comint-send-string proc "\n"))) |
1035 |
|
|
1050 |
(setq result (concat result (substring string start))) |
(setq result (concat result (substring string start))) |
1051 |
(comint-send-string proc result) |
(comint-send-string proc result) |
1052 |
(if comint-input-sender-no-newline |
(if comint-input-sender-no-newline |
1053 |
(if (not (string-equal input "")) |
(if (not (string-equal string "")) |
1054 |
(process-send-eof)) |
(process-send-eof)) |
1055 |
(comint-send-string proc "\n")))) |
(comint-send-string proc "\n")))) |
1056 |
|
|