Mercurial > emacs
comparison lisp/telnet.el @ 5326:65b2fa217aa0
(telnet): Use comint-canonicalize-args.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Dec 1993 03:07:30 +0000 |
| parents | 59fee4967e01 |
| children | 3e45a129209f |
comparison
equal
deleted
inserted
replaced
| 5325:2c747b081be1 | 5326:65b2fa217aa0 |
|---|---|
| 181 (defun telnet (host) | 181 (defun telnet (host) |
| 182 "Open a network login connection to host named HOST (a string). | 182 "Open a network login connection to host named HOST (a string). |
| 183 Communication with HOST is recorded in a buffer *HOST-telnet*. | 183 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 (let* ((name (concat host "-telnet" )) | 187 (let* ((name (concat host "-telnet" )) |
| 187 (buffer (get-buffer (concat "*" name "*")))) | 188 (buffer (get-buffer (concat "*" name "*")))) |
| 188 (if (and buffer (get-buffer-process buffer)) | 189 (if (and buffer (get-buffer-process buffer)) |
| 189 (switch-to-buffer (concat "*" name "*")) | 190 (switch-to-buffer (concat "*" name "*")) |
| 190 (switch-to-buffer (make-comint name "telnet")) | 191 (switch-to-buffer (make-comint name "telnet")) |