Mercurial > emacs
comparison lisp/files.el @ 105196:d991506f9286
* 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.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 25 Sep 2009 04:35:14 +0000 |
parents | 064e6af6adba |
children | 6163789008fd |
comparison
equal
deleted
inserted
replaced
105195:5b4bbf79ac2a | 105196:d991506f9286 |
---|---|
654 (error "%s is not a directory" dir) | 654 (error "%s is not a directory" dir) |
655 (error "%s: no such directory" dir)) | 655 (error "%s: no such directory" dir)) |
656 (unless (file-executable-p dir) | 656 (unless (file-executable-p dir) |
657 (error "Cannot cd to %s: Permission denied" dir)) | 657 (error "Cannot cd to %s: Permission denied" dir)) |
658 (setq default-directory dir) | 658 (setq default-directory dir) |
659 (set (make-local-variable 'list-buffers-directory) dir))) | 659 (setq list-buffers-directory dir))) |
660 | 660 |
661 (defun cd (dir) | 661 (defun cd (dir) |
662 "Make DIR become the current buffer's default directory. | 662 "Make DIR become the current buffer's default directory. |
663 If your environment includes a `CDPATH' variable, try each one of | 663 If your environment includes a `CDPATH' variable, try each one of |
664 that list of directories (separated by occurrences of | 664 that list of directories (separated by occurrences of |