From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 7 Dec 1994 13:17:48 +0000 (+0000)
Subject: (telnet): Don't make assumptions about process name.
X-Git-Tag: emacs-19.34~5726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0ed29b2f0b009ba0b0f26572810056aa9f8a09f;p=emacs.git

(telnet): Don't make assumptions about process name.
(telnet-send-process-next-char): Renamed from send-...
---

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