diff options
| -rw-r--r-- | lisp/telnet.el | 2 |
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))) |