From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 18 Jan 1995 19:46:00 +0000 (+0000)
Subject: (remote-shell-program): New var.
X-Git-Tag: emacs-19.34~5408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93a181275699210edce47fbdac0612571e711af9;p=emacs.git

(remote-shell-program): New var.
---

diff --git a/lisp/paths.el b/lisp/paths.el
index 843800042a8..37d86f967ff 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -112,6 +112,21 @@ Its name should end with a slash.")
     (t "fakemail"))			;In ../etc, to interface to /bin/mail.
   "Program used to send messages.")
 
+(defconst remote-shell-program
+  (cond
+   ;; Some systems use rsh for the remote shell; others use that name for the
+   ;; restricted shell and use remsh for the remote shell.  Let's try to guess
+   ;; based on what we actually find out there.  The restricted shell is
+   ;; almost certainly in /bin or /usr/bin, so it's probably safe to assume
+   ;; that an rsh found elsewhere is the remote shell program.
+   ((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh")
+   ((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh")
+   ((file-exists-p "/bin/remsh") "/bin/remsh")
+   ((file-exists-p "/usr/bin/remsh") "/bin/remsh")
+   ((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh")
+   ((memq system-type '(hpux usg-unix-v)) "remsh")
+   (t "rsh")))
+
 (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/")
   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
 You may set this variable to nil in your `.emacs' file if you do not wish