# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803131555 0
# Node ID 59bfaac6cee2ded7325af84c22d879daa7d91a6b
# Parent  5ab666b86a02a70b88d69704392377b258ba0be8
(shell-mode): Make shell-directory-tracker a hook function locally only.

diff -r 5ab666b86a02 -r 59bfaac6cee2 lisp/shell.el
--- a/lisp/shell.el	Wed Jun 14 12:05:23 1995 +0000
+++ b/lisp/shell.el	Wed Jun 14 12:05:55 1995 +0000
@@ -328,7 +328,7 @@
   (setq shell-last-dir nil)
   (make-local-variable 'shell-dirtrackp)
   (setq shell-dirtrackp t)
-  (add-hook 'comint-input-filter-functions 'shell-directory-tracker)
+  (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
   (setq comint-input-autoexpand shell-input-autoexpand)
   (make-local-variable 'list-buffers-directory)
   (setq list-buffers-directory (expand-file-name default-directory))