From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Nov 1993 21:51:54 +0000 (+0000)
Subject: (telnet-rsh-program): New variable.
X-Git-Tag: emacs-19.34~10709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f603e513068f687d40ebd5f50cf48b33e29754de;p=emacs.git

(telnet-rsh-program): New variable.
(rsh): Use it.
(telnet-count): Now buffer-local.
---

diff --git a/lisp/telnet.el b/lisp/telnet.el
index e1146a8eedf..e3f17187b35 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)))