diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-12-29 12:59:09 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-12-29 12:59:09 +0000 |
| commit | cfef87adf1b4f4300b9f8f1548a6f2505921fd81 (patch) | |
| tree | beaeacdd87cfc1478200df28517c8dd75045234f /lisp/files.el | |
| parent | 85933f0aefcef3852e96b15c518f5ad5d46ac2ea (diff) | |
| download | emacs-cfef87adf1b4f4300b9f8f1548a6f2505921fd81.tar.gz | |
(cd-absolute): Fix omission bug:
Make `list-buffers-directory' buffer-local.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index dec47ce362e..75dfb089c51 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -635,10 +635,10 @@ Directories are separated by occurrences of `path-separator' (if (file-exists-p dir) (error "%s is not a directory" dir) (error "%s: no such directory" dir)) - (if (file-executable-p dir) - (setq default-directory dir - list-buffers-directory dir) - (error "Cannot cd to %s: Permission denied" dir)))) + (unless (file-executable-p dir) + (error "Cannot cd to %s: Permission denied" dir)) + (setq default-directory dir) + (set (make-local-variable 'list-buffers-directory) dir))) (defun cd (dir) "Make DIR become the current buffer's default directory. |