(shell-mode): Call shell-dirtrack-mode after list-buffers-directory is

made a local variable, to avoid setting the default value.

diff --git a/lisp/shell.el b/lisp/shell.el
index bfa9565e8d401a7a411271bc442305a58b2e6309..6e87ba41d3787b3365e8a3959906f8c4c9057ee8 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -433,11 +433,11 @@ buffer."
   (setq shell-dirstack nil)
   (make-local-variable 'shell-last-dir)
   (setq shell-last-dir nil)
-  (shell-dirtrack-mode 1)
   (setq comint-input-autoexpand shell-input-autoexpand)
   ;; This is not really correct, since the shell buffer does not really
   ;; edit this directory.  But it is useful in the buffer list and menus.
   (make-local-variable 'list-buffers-directory)
+  (shell-dirtrack-mode 1)
   (setq list-buffers-directory (expand-file-name default-directory))
   ;; shell-dependent assignments.
   (when (ring-empty-p comint-input-ring)