diff options
| author | Richard M. Stallman | 1992-10-16 01:35:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-16 01:35:47 +0000 |
| commit | 628ed3661925f0fb6425a61e43961b24c678abc7 (patch) | |
| tree | 3dd42d15b050e164668fe8113bc123c8ccf6d29c | |
| parent | 134994aee89c05f07b40c94d95a00571a3fe3f43 (diff) | |
| download | emacs-628ed3661925f0fb6425a61e43961b24c678abc7.tar.gz emacs-628ed3661925f0fb6425a61e43961b24c678abc7.zip | |
(telnet): Do erase-buffer after the initial output.
| -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))) |