martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(telnet): Don't make assumptions about process name.

Browse Source 
(telnet-send-process-next-char): Renamed from send-...
This commit is contained in:
Richard M. Stallman
1994-12-07 13:17:48 +00:00
parent 75ebf74b48
commit f0ed29b2f0
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/telnet.el
View File

@@ -187,15 +187,17 @@ Normally input is edited in Emacs and sent a line at a time."
(interactive "sOpen telnet connection to host: ")
(let* ((comint-delimiter-argument-list '(?\ ?\t))
(name (concat "telnet-" (comint-arguments host 0 nil) ))
(buffer (get-buffer (concat "*" name "*"))))
(buffer (get-buffer (concat "*" name "*")))
process)
(if (and buffer (get-buffer-process buffer))
(switch-to-buffer (concat "*" name "*"))
(switch-to-buffer (make-comint name telnet-program))
(set-process-filter (get-process name) 'telnet-initial-filter)
(setq process (get-buffer-process (current-buffer)))
(set-process-filter process 'telnet-initial-filter)
;; Don't send the `open' cmd till telnet is ready for it.
(accept-process-output (get-process name))
(accept-process-output process)
(erase-buffer)
(send-string name (concat "open " host "\n"))
(send-string process (concat "open " host "\n"))
(telnet-mode)
(setq comint-input-sender 'telnet-simple-send)
(setq telnet-count telnet-initial-count))))