(shell-mode): Make shell-directory-tracker a hook function locally only.

diff --git a/lisp/shell.el b/lisp/shell.el
index 33e10847616682a325bfd34fab75b40942168fd3..2f297cb588d4a509106fbdd931028f3698a8d35d 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -328,7 +328,7 @@ buffer."
   (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))