(cd-absolute): Fix omission bug:

Make `list-buffers-directory' buffer-local.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a879da74a68ff48dd50a43c1af2ff6f32adefc01..dec21f2d630f3be5283963bfebe9f7ec201f9cf2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-29  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * files.el (cd-absolute): Fix omission bug:
+       Make `list-buffers-directory' buffer-local.
+
 2007-12-29  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-hg.el (vc-hg-dir-state): Deal with the up-to-date state.

diff --git a/lisp/files.el b/lisp/files.el
index dec47ce362eec0b4357141ed8568facc86b1ee62..75dfb089c51cb612af450657aea0087fd934adda 100644 (file)
--- 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.