diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-07 13:17:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-07 13:17:48 +0000 |
| commit | f0ed29b2f0b009ba0b0f26572810056aa9f8a09f (patch) | |
| tree | 104f69815d10d74b33bff6294c461e8f64ce62f5 /lisp/telnet.el | |
| parent | 75ebf74b48275db79b7d1fdb040b13bf0f6f1253 (diff) | |
| download | emacs-f0ed29b2f0b009ba0b0f26572810056aa9f8a09f.tar.gz | |
(telnet): Don't make assumptions about process name.
(telnet-send-process-next-char): Renamed from send-...
Diffstat (limited to 'lisp/telnet.el')
| -rw-r--r-- | lisp/telnet.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index 13a5e391a4a..27de4ffbb24 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -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)))) |