summaryrefslogtreecommitdiff
path: root/lisp/shell.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-07-20 04:13:45 +0000
committerRichard M. Stallman <rms@gnu.org>1997-07-20 04:13:45 +0000
commit94841d79c9c8cb34b26a56825f0c3f7ceaac6d9f (patch)
treee45d3c29b2c4c5cdfbbf42394368f3f21ef56b86 /lisp/shell.el
parent21ad53876c06652cd8c963019d4a9c5a1333c7dc (diff)
downloademacs-94841d79c9c8cb34b26a56825f0c3f7ceaac6d9f.tar.gz
(shell-mode): Do set list-files-directory locally.
Diffstat (limited to 'lisp/shell.el')
-rw-r--r--lisp/shell.el6
1 files changed, 4 insertions, 2 deletions
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)))))))