From: Noah Friedman <friedman@splode.com>
Date: Fri, 7 Apr 1995 22:27:24 +0000 (+0000)
Subject: (rlogin-directory-tracking-mode): Set shell-dirtrackp, not shell-dirtrack-p.
X-Git-Tag: emacs-19.34~4582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9c4665aa728a1587e193befb3cc951092e9e806;p=emacs.git

(rlogin-directory-tracking-mode): Set shell-dirtrackp, not shell-dirtrack-p.
---

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)))