diff options
| author | Richard M. Stallman | 1992-10-15 07:18:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-15 07:18:11 +0000 |
| commit | 2a01536358aedb09dfee9f98a2c227185848269d (patch) | |
| tree | 88d7a493704328724c24068bf0bbb2cd396aa7de | |
| parent | 5bfe95c936ee7b3ceb823aad44157034c56e9a6c (diff) | |
| download | emacs-2a01536358aedb09dfee9f98a2c227185848269d.tar.gz emacs-2a01536358aedb09dfee9f98a2c227185848269d.zip | |
(telnet): Wait for telnet output before sending `open'.
| -rw-r--r-- | lisp/telnet.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index 8a90b74f43e..26160ac4df4 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el | |||
| @@ -158,6 +158,8 @@ Normally input is edited in Emacs and sent a line at a time." | |||
| 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))) |