diff options
| author | Noah Friedman <friedman@splode.com> | 1995-04-07 22:27:24 +0000 |
|---|---|---|
| committer | Noah Friedman <friedman@splode.com> | 1995-04-07 22:27:24 +0000 |
| commit | fb9c0daf3e37cc11e3a27719a097f688da7b269d (patch) | |
| tree | de5f9bd709cd03ece3745678c42ca57da83297d2 /lisp/rlogin.el | |
| parent | 7e4bd3cbb9e4a16924680476cd523473e3110dcf (diff) | |
| download | emacs-fb9c0daf3e37cc11e3a27719a097f688da7b269d.tar.gz | |
(rlogin-directory-tracking-mode): Set shell-dirtrackp, not shell-dirtrack-p.
Diffstat (limited to 'lisp/rlogin.el')
| -rw-r--r-- | lisp/rlogin.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/rlogin.el b/lisp/rlogin.el index c53a1abd4c0..243714bd1cd 100644 --- a/lisp/rlogin.el +++ b/lisp/rlogin.el @@ -20,7 +20,7 @@ ;; along with this program; if not, write to: The Free Software Foundation, ;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA. -;; $Id: rlogin.el,v 1.25 1995/03/12 18:18:29 rms Exp friedman $ +;; $Id: rlogin.el,v 1.26 1995/04/07 22:17:06 friedman Exp friedman $ ;;; Commentary: @@ -222,18 +222,18 @@ local one share the same directories (through NFS)." ((or (null prefix) (consp prefix)) (setq rlogin-directory-tracking-mode t) - (setq shell-dirtrack-p t) + (setq shell-dirtrackp t) (setq comint-file-name-prefix (concat "/" rlogin-remote-user "@" rlogin-host ":"))) ((< prefix 0) (setq rlogin-directory-tracking-mode nil) - (setq shell-dirtrack-p nil)) + (setq shell-dirtrackp nil)) (t (setq rlogin-directory-tracking-mode 'local) (setq comint-file-name-prefix "") - (setq shell-dirtrack-p t))) + (setq shell-dirtrackp t))) (cond - (shell-dirtrack-p + (shell-dirtrackp (let* ((proc (get-buffer-process (current-buffer))) (proc-mark (process-mark proc)) (current-input (buffer-substring proc-mark (point-max))) |