Mercurial > emacs

changeset 11276:7b78e66e6e3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rlogin-directory-tracking-mode): Set shell-dirtrackp, not shell-dirtrack-p.
author Noah Friedman <friedman@splode.com>
date Fri, 07 Apr 1995 22:27:24 +0000
parents 53f0ebe096f5
children d4547e4b0aab
files lisp/rlogin.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/rlogin.el	Fri Apr 07 22:17:54 1995 +0000
+++ b/lisp/rlogin.el	Fri Apr 07 22:27:24 1995 +0000
@@ -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 @@
    ((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)))