diff options
| author | Richard M. Stallman | 1993-12-24 04:00:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-24 04:00:16 +0000 |
| commit | 6cc0778f31ed602d77f889c67cb0ed421cdcde19 (patch) | |
| tree | 5b35546fdaa3d44d92763d18e8962a587d451258 | |
| parent | 457a9beedefeab952ad28f9705ffb21ce5b77479 (diff) | |
| download | emacs-6cc0778f31ed602d77f889c67cb0ed421cdcde19.tar.gz emacs-6cc0778f31ed602d77f889c67cb0ed421cdcde19.zip | |
(telnet): Use comint-arguments.
| -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 "*")) |