changeset 5333:3e45a129209f

(telnet): Use comint-arguments.
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Dec 1993 04:00:16 +0000
parents c559b3d1b9e4
children 37ea8707b175
files lisp/telnet.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 "*"))