Mercurial > emacs
changeset 18878:f39ae9c61a45
(shell-mode): Do set list-files-directory locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Jul 1997 04:13:45 +0000 |
| parents | d3e5a5f5fe02 |
| children | 8b226efb9a8b |
| files | lisp/shell.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Sun Jul 20 04:03:49 1997 +0000 +++ b/lisp/shell.el Sun Jul 20 04:13:45 1997 +0000 @@ -390,8 +390,10 @@ (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)))))))