mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(telnet): Do erase-buffer after the initial output.

Browse Source
This commit is contained in:
Richard M. Stallman 1992-10-16 01:35:47 +00:00
parent 134994aee8
commit 628ed36619
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/telnet.el
View File

@ -157,9 +157,9 @@ Normally input is edited in Emacs and sent a line at a time."
(let ((name (concat arg "-telnet" )))
(switch-to-buffer (make-comint name "telnet"))
(set-process-filter (get-process name) 'telnet-initial-filter)
(erase-buffer)
;; Don't send the `open' cmd till telnet is ready for it.
(accept-process-output (get-process name))
(erase-buffer)
(send-string name (concat "open " arg "\n"))
(telnet-mode)
(setq telnet-count telnet-initial-count)))