changeset 10452:6008e76f6ed2

(rsh): Use new global remote-shell-program.
author Karl Heuer <kwzh@gnu.org>
date Wed, 18 Jan 1995 19:47:32 +0000
parents bc83756f19ad
children 05e7543bbb96
files lisp/telnet.el
diffstat 1 files changed, 1 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/telnet.el	Wed Jan 18 19:46:22 1995 +0000
+++ b/lisp/telnet.el	Wed Jan 18 19:47:32 1995 +0000
@@ -66,11 +66,6 @@
 (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.")
-
 (defvar telnet-initial-count -50
   "Initial value of `telnet-count'.  Should be set to the negative of the
 number of terminal writes telnet will make setting up the host connection.")
@@ -227,7 +222,7 @@
   (interactive "sOpen rsh connection to host: ")
   (require 'shell)
   (let ((name (concat host "-rsh" )))
-    (switch-to-buffer (make-comint name rsh-program nil host))
+    (switch-to-buffer (make-comint name remote-shell-program nil host))
     (set-process-filter (get-process name) 'telnet-initial-filter)
     (telnet-mode)
     (setq telnet-count -16)))