# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 853567810 0
# Node ID f9d43993ed5a422ef5cff88b3509b2580f29ff89
# Parent  34fa99fb91d12a90fc241074b6663aa937802736
(shell-mode): Don't set list-buffers-directory.

diff -r 34fa99fb91d1 -r f9d43993ed5a lisp/shell.el
--- a/lisp/shell.el	Sat Jan 18 06:08:37 1997 +0000
+++ b/lisp/shell.el	Sat Jan 18 06:10:10 1997 +0000
@@ -346,8 +346,8 @@
   (setq shell-dirtrackp t)
   (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))
+  ;; We used to set list-buffers-directory here, but that was wrong.
+  ;; A shell buffer is not a way of editing a directory.
   ;; shell-dependent assignments.
   (let ((shell (file-name-nondirectory (car
 		 (process-command (get-buffer-process (current-buffer)))))))