# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756705616 0
# Node ID 3e45a129209fd64510194b483fdd11594dabcb8c
# Parent  c559b3d1b9e49bf7940ce81be721661df55a53fa
(telnet): Use comint-arguments.

diff -r c559b3d1b9e4 -r 3e45a129209f lisp/telnet.el
--- a/lisp/telnet.el	Fri Dec 24 03:49:30 1993 +0000
+++ b/lisp/telnet.el	Fri Dec 24 04:00:16 1993 +0000
@@ -184,7 +184,8 @@
 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 "*"))