aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/telnet.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el
index 26160ac4df4..ad13c05915b 100644
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -157,9 +157,9 @@ Normally input is edited in Emacs and sent a line at a time."
157 (let ((name (concat arg "-telnet" ))) 157 (let ((name (concat arg "-telnet" )))
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)
161 ;; Don't send the `open' cmd till telnet is ready for it. 160 ;; Don't send the `open' cmd till telnet is ready for it.
162 (accept-process-output (get-process name)) 161 (accept-process-output (get-process name))
162 (erase-buffer)
163 (send-string name (concat "open " arg "\n")) 163 (send-string name (concat "open " arg "\n"))
164 (telnet-mode) 164 (telnet-mode)
165 (setq telnet-count telnet-initial-count))) 165 (setq telnet-count telnet-initial-count)))