diff options
| author | Juanma Barranquero | 2009-09-25 04:35:14 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2009-09-25 04:35:14 +0000 |
| commit | 11ee8d90b26358e6a0850e712705c5b4e8db1b8f (patch) | |
| tree | 1f9bc5c77ae10e3fa481d0bdda56d8a0c63eca4a /lisp/shell.el | |
| parent | 21289c5dad0989097dde494c84d7a6177393344b (diff) | |
| download | emacs-11ee8d90b26358e6a0850e712705c5b4e8db1b8f.tar.gz emacs-11ee8d90b26358e6a0850e712705c5b4e8db1b8f.zip | |
* menu-bar.el (list-buffers-directory): Add docstring.
Make automatically buffer-local.
* dired.el (dired-mode):
* files.el (cd-absolute):
* pcvs.el (cvs-temp-buffer):
* pcvs-util.el (cvs-get-buffer-create):
* shell.el (shell-mode):
* vc-dir.el (vc-dir-mode):
Don't make `list-buffers-directory' buffer local.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 48488cec682..dde06ef075f 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -440,10 +440,9 @@ buffer." | |||
| 440 | (make-local-variable 'shell-last-dir) | 440 | (make-local-variable 'shell-last-dir) |
| 441 | (setq shell-last-dir nil) | 441 | (setq shell-last-dir nil) |
| 442 | (setq comint-input-autoexpand shell-input-autoexpand) | 442 | (setq comint-input-autoexpand shell-input-autoexpand) |
| 443 | (shell-dirtrack-mode 1) | ||
| 443 | ;; This is not really correct, since the shell buffer does not really | 444 | ;; This is not really correct, since the shell buffer does not really |
| 444 | ;; edit this directory. But it is useful in the buffer list and menus. | 445 | ;; edit this directory. But it is useful in the buffer list and menus. |
| 445 | (make-local-variable 'list-buffers-directory) | ||
| 446 | (shell-dirtrack-mode 1) | ||
| 447 | (setq list-buffers-directory (expand-file-name default-directory)) | 446 | (setq list-buffers-directory (expand-file-name default-directory)) |
| 448 | ;; shell-dependent assignments. | 447 | ;; shell-dependent assignments. |
| 449 | (when (ring-empty-p comint-input-ring) | 448 | (when (ring-empty-p comint-input-ring) |