Mercurial > emacs
comparison lisp/telnet.el @ 1414:2ba9b06d4247
(telnet): Wait for telnet output before sending `open'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Oct 1992 07:18:11 +0000 |
| parents | 2cdce064065f |
| children | d8dc740867ee |
comparison
equal
deleted
inserted
replaced
| 1413:527af9fa8676 | 1414:2ba9b06d4247 |
|---|---|
| 156 (interactive "sOpen telnet connection to host: ") | 156 (interactive "sOpen telnet connection to host: ") |
| 157 (let ((name (concat arg "-telnet" ))) | 157 (let ((name (concat arg "-telnet" ))) |
| 158 (switch-to-buffer (make-comint name "telnet")) | 158 (switch-to-buffer (make-comint name "telnet")) |
| 159 (set-process-filter (get-process name) 'telnet-initial-filter) | 159 (set-process-filter (get-process name) 'telnet-initial-filter) |
| 160 (erase-buffer) | 160 (erase-buffer) |
| 161 ;; Don't send the `open' cmd till telnet is ready for it. | |
| 162 (accept-process-output (get-process name)) | |
| 161 (send-string name (concat "open " arg "\n")) | 163 (send-string name (concat "open " arg "\n")) |
| 162 (telnet-mode) | 164 (telnet-mode) |
| 163 (setq telnet-count telnet-initial-count))) | 165 (setq telnet-count telnet-initial-count))) |
| 164 | 166 |
| 165 (defun telnet-mode () | 167 (defun telnet-mode () |