summaryrefslogtreecommitdiff
path: root/lisp/telnet.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1992-10-15 07:18:11 +0000
committerRichard M. Stallman <rms@gnu.org>1992-10-15 07:18:11 +0000
commit1a1df782b6534260e6e1092a9ac08461a978f676 (patch)
treed5f0f850a00ff58eba70a937c72a089ffae69c19 /lisp/telnet.el
parent8ebbe5f2bf8855e288ff0606447a6c08cda386df (diff)
downloademacs-1a1df782b6534260e6e1092a9ac08461a978f676.tar.gz
(telnet): Wait for telnet output before sending `open'.
Diffstat (limited to 'lisp/telnet.el')
-rw-r--r--lisp/telnet.el2
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."
(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)))