From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Dec 1993 04:00:16 +0000 (+0000)
Subject: (telnet): Use comint-arguments.
X-Git-Tag: emacs-19.34~10518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6cc0778f31ed602d77f889c67cb0ed421cdcde19;p=emacs.git

(telnet): Use comint-arguments.
---

diff --git a/lisp/telnet.el b/lisp/telnet.el
index 752883533e3..9ed833b1938 100644
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -184,7 +184,8 @@ Communication with HOST is recorded in a buffer *HOST-telnet*.
 Normally input is edited in Emacs and sent a line at a time."
   (interactive "sOpen telnet connection to host: ")
   (setq host (comint-canonicalize-args host))
-  (let* ((name (concat host "-telnet" ))
+  (let* ((comint-delimiter-argument-list '(" " "\t"))
+         (name (concat (comint-arguments host 0 nil) "-telnet" ))
 	 (buffer (get-buffer (concat "*" name "*"))))
     (if (and buffer (get-buffer-process buffer))
 	(switch-to-buffer (concat "*" name "*"))