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
commit2a01536358aedb09dfee9f98a2c227185848269d (patch)
tree88d7a493704328724c24068bf0bbb2cd396aa7de /lisp/telnet.el
parent5bfe95c936ee7b3ceb823aad44157034c56e9a6c (diff)
downloademacs-2a01536358aedb09dfee9f98a2c227185848269d.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)))