Mercurial > emacs

comparison lisp/paths.el @ 10484:08e1b7f85e5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(remote-shell-program): Reorder search path.
author Karl Heuer <kwzh@gnu.org>
date Thu, 19 Jan 1995 22:24:43 +0000
parents 830e201e9603
children 76541e773672
comparison
equal deleted inserted replaced
10483:727cd2061e2a 10484:08e1b7f85e5e
116 (cond 116 (cond
117 ;; Some systems use rsh for the remote shell; others use that name for the 117 ;; Some systems use rsh for the remote shell; others use that name for the
118 ;; restricted shell and use remsh for the remote shell. Let's try to guess 118 ;; restricted shell and use remsh for the remote shell. Let's try to guess
119 ;; based on what we actually find out there. The restricted shell is 119 ;; based on what we actually find out there. The restricted shell is
120 ;; almost certainly in /bin or /usr/bin, so it's probably safe to assume 120 ;; almost certainly in /bin or /usr/bin, so it's probably safe to assume
121 ;; that an rsh found elsewhere is the remote shell program. 121 ;; that an rsh found elsewhere is the remote shell program. The converse
122 ;; is not true: /usr/bin/rsh could be either one, so check that last.
122 ((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh") 123 ((file-exists-p "/usr/ucb/remsh") "/usr/ucb/remsh")
123 ((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh") 124 ((file-exists-p "/usr/bsd/remsh") "/usr/bsd/remsh")
124 ((file-exists-p "/bin/remsh") "/bin/remsh") 125 ((file-exists-p "/bin/remsh") "/bin/remsh")
125 ((file-exists-p "/usr/bin/remsh") "/bin/remsh") 126 ((file-exists-p "/usr/bin/remsh") "/bin/remsh")
127 ((file-exists-p "/usr/local/bin/remsh") "/usr/local/bin/remsh")
128 ((file-exists-p "/usr/ucb/rsh") "/usr/ucb/rsh")
129 ((file-exists-p "/usr/bsd/rsh") "/usr/bsd/rsh")
126 ((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh") 130 ((file-exists-p "/usr/local/bin/rsh") "/usr/local/bin/rsh")
127 ((memq system-type '(hpux usg-unix-v)) "remsh") 131 ((file-exists-p "/bin/rsh") "/bin/rsh")
132 ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh")
128 (t "rsh"))) 133 (t "rsh")))
129 134
130 (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") 135 (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/")
131 "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) 136 "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
132 You may set this variable to nil in your `.emacs' file if you do not wish 137 You may set this variable to nil in your `.emacs' file if you do not wish