diff options
| -rw-r--r-- | lisp/telnet.el | 3 |
1 files changed, 2 insertions, 1 deletions
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*. | |||
| 184 | Normally input is edited in Emacs and sent a line at a time." | 184 | Normally input is edited in Emacs and sent a line at a time." |
| 185 | (interactive "sOpen telnet connection to host: ") | 185 | (interactive "sOpen telnet connection to host: ") |
| 186 | (setq host (comint-canonicalize-args host)) | 186 | (setq host (comint-canonicalize-args host)) |
| 187 | (let* ((name (concat host "-telnet" )) | 187 | (let* ((comint-delimiter-argument-list '(" " "\t")) |
| 188 | (name (concat (comint-arguments host 0 nil) "-telnet" )) | ||
| 188 | (buffer (get-buffer (concat "*" name "*")))) | 189 | (buffer (get-buffer (concat "*" name "*")))) |
| 189 | (if (and buffer (get-buffer-process buffer)) | 190 | (if (and buffer (get-buffer-process buffer)) |
| 190 | (switch-to-buffer (concat "*" name "*")) | 191 | (switch-to-buffer (concat "*" name "*")) |