(telnet): Use comint-arguments.

diff --git a/lisp/telnet.el b/lisp/telnet.el
index 752883533e321d49665ea782bf4a18f7d05494e1..9ed833b1938aa81c97664a5f9eb6832b10e0e5c4 100644 (file)
--- 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 "*"))