Mercurial > emacs
changeset 8756:1c9ee34d9094
(telnet-program): New variable.
(telnet): Use telnet-program.
(rsh-program): Renamed from telnet-rsh-program.
(rsh): Use new name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Sep 1994 04:20:07 +0000 |
| parents | a6be4973b11f |
| children | 5010c26b7a07 |
| files | lisp/telnet.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/telnet.el Thu Sep 15 04:06:55 1994 +0000 +++ b/lisp/telnet.el Thu Sep 15 04:20:07 1994 +0000 @@ -63,7 +63,10 @@ "Number of output strings from telnet process while looking for password.") (make-variable-buffer-local 'telnet-count) -(defvar telnet-rsh-program +(defvar telnet-program "telnet" + "Program to run to open a telnet connection.") + +(defvar rsh-program (if (memq system-type '(hpux usg-unix-v)) "remsh" "rsh") "Program to run for opening a remote shell.") @@ -187,7 +190,7 @@ (buffer (get-buffer (concat "*" name "*")))) (if (and buffer (get-buffer-process buffer)) (switch-to-buffer (concat "*" name "*")) - (switch-to-buffer (make-comint name "telnet")) + (switch-to-buffer (make-comint name telnet-program)) (set-process-filter (get-process name) 'telnet-initial-filter) ;; Don't send the `open' cmd till telnet is ready for it. (accept-process-output (get-process name)) @@ -222,7 +225,7 @@ (interactive "sOpen rsh connection to host: ") (require 'shell) (let ((name (concat host "-rsh" ))) - (switch-to-buffer (make-comint name telnet-rsh-program nil host)) + (switch-to-buffer (make-comint name rsh-program nil host)) (set-process-filter (get-process name) 'telnet-initial-filter) (telnet-mode) (setq telnet-count -16)))