From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 20 Jul 1997 04:13:45 +0000 (+0000)
Subject: (shell-mode): Do set list-files-directory locally.
X-Git-Tag: emacs-20.1~1068
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d9719e6eeaf5ea4d16c19f947148b0e78f81531;p=emacs.git

(shell-mode): Do set list-files-directory locally.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index a22b00289d6..0fa5462ab8a 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -390,8 +390,10 @@ buffer."
   (setq shell-dirtrackp t)
   (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
   (setq comint-input-autoexpand shell-input-autoexpand)
-  ;; We used to set list-buffers-directory here, but that was wrong.
-  ;; A shell buffer is not a way of editing a directory.
+  ;; 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)
+  (setq list-buffers-directory (expand-file-name default-directory))
   ;; shell-dependent assignments.
   (let ((shell (file-name-nondirectory (car
 		 (process-command (get-buffer-process (current-buffer)))))))