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