changeset 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 527af9fa8676
children 1b82f79c4eb4
files lisp/telnet.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/telnet.el	Thu Oct 15 05:07:42 1992 +0000
+++ b/lisp/telnet.el	Thu Oct 15 07:18:11 1992 +0000
@@ -158,6 +158,8 @@
     (switch-to-buffer (make-comint name "telnet"))
     (set-process-filter (get-process name) 'telnet-initial-filter)
     (erase-buffer)
+    ;; Don't send the `open' cmd till telnet is ready for it.
+    (accept-process-output (get-process name))
     (send-string  name (concat "open " arg "\n"))
     (telnet-mode)
     (setq telnet-count telnet-initial-count)))