diff options
author | Richard M. Stallman <[email protected]> | 1993-11-23 21:51:54 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-11-23 21:51:54 +0000 |
commit | f603e513068f687d40ebd5f50cf48b33e29754de (patch) | |
tree | b2129d85b2b0e6d123748e5a955f793f84982f25 | |
parent | be2c35e4f0824c53356e2198740eff50ea61300b (diff) |
(telnet-rsh-program): New variable.
(rsh): Use it.
(telnet-count): Now buffer-local.
-rw-r--r-- | lisp/telnet.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index e1146a8eed..e3f17187b3 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -60,8 +60,13 @@ (defvar telnet-interrupt-string "\C-c" "String sent by C-c.")) (defvar telnet-count 0 - "Number of output strings read from the telnet process -while looking for the initial password.") + "Number of output strings from telnet process while looking for password.") +(make-variable-buffer-local 'telnet-count) + +(defvar telnet-rsh-program + (if (memq system-type '(hpux usg-unix-v)) + "remsh" "rsh") + "Program to run for opening a remote shell.") (defvar telnet-initial-count -50 "Initial value of `telnet-count'. Should be set to the negative of the @@ -215,7 +220,7 @@ Normally input is edited in Emacs and sent a line at a time." (interactive "sOpen rsh connection to host: ") (require 'shell) (let ((name (concat host "-rsh" ))) - (switch-to-buffer (make-comint name "rsh" nil host)) + (switch-to-buffer (make-comint name telnet-rsh-program nil host)) (set-process-filter (get-process name) 'telnet-initial-filter) (telnet-mode) (setq telnet-count -16))) |