# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1198933086 0
# Node ID d5c5e7e3d55794e000d222fe597b4a19406e762c
# Parent  dc4354c7a6c722dbc814fbbb7bc18ceba640b7fb
(cd-absolute): Fix omission bug:
Make `list-buffers-directory' buffer-local.

diff -r dc4354c7a6c7 -r d5c5e7e3d557 lisp/files.el
--- a/lisp/files.el	Sat Dec 29 05:54:23 2007 +0000
+++ b/lisp/files.el	Sat Dec 29 12:58:06 2007 +0000
@@ -635,10 +635,10 @@
       (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.