Mercurial > emacs
comparison lisp/telnet.el @ 1418:d8dc740867ee
(telnet): Do erase-buffer after the initial output.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 16 Oct 1992 01:35:47 +0000 |
parents | 2ba9b06d4247 |
children | a52da8d63ff3 |
comparison
equal
deleted
inserted
replaced
1417:3a1576d52874 | 1418:d8dc740867ee |
---|---|
155 Normally input is edited in Emacs and sent a line at a time." | 155 Normally input is edited in Emacs and sent a line at a time." |
156 (interactive "sOpen telnet connection to host: ") | 156 (interactive "sOpen telnet connection to host: ") |
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))) |
166 | 166 |
167 (defun telnet-mode () | 167 (defun telnet-mode () |