(telnet): Wait for telnet output before sending `open'.

This commit is contained in:
Richard M. Stallman 1992-10-15 07:18:11 +00:00
parent 5bfe95c936
commit 2a01536358

View file

@ -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)))