Mercurial > emacs
comparison lisp/dired.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 | f8ba8d6fd250 |
| children | 57afd13b64b9 |
comparison
equal
deleted
inserted
replaced
| 105195:5b4bbf79ac2a | 105196:d991506f9286 |
|---|---|
| 1748 (set (make-local-variable 'page-delimiter) | 1748 (set (make-local-variable 'page-delimiter) |
| 1749 "\n\n") | 1749 "\n\n") |
| 1750 (set (make-local-variable 'dired-directory) | 1750 (set (make-local-variable 'dired-directory) |
| 1751 (or dirname default-directory)) | 1751 (or dirname default-directory)) |
| 1752 ;; list-buffers uses this to display the dir being edited in this buffer. | 1752 ;; list-buffers uses this to display the dir being edited in this buffer. |
| 1753 (set (make-local-variable 'list-buffers-directory) | 1753 (setq list-buffers-directory |
| 1754 (expand-file-name (if (listp dired-directory) | 1754 (expand-file-name (if (listp dired-directory) |
| 1755 (car dired-directory) | 1755 (car dired-directory) |
| 1756 dired-directory))) | 1756 dired-directory))) |
| 1757 (set (make-local-variable 'dired-actual-switches) | 1757 (set (make-local-variable 'dired-actual-switches) |
| 1758 (or switches dired-listing-switches)) | 1758 (or switches dired-listing-switches)) |
| 1759 (set (make-local-variable 'font-lock-defaults) | 1759 (set (make-local-variable 'font-lock-defaults) |
| 1760 '(dired-font-lock-keywords t nil nil beginning-of-line)) | 1760 '(dired-font-lock-keywords t nil nil beginning-of-line)) |
| 1761 (set (make-local-variable 'desktop-save-buffer) | 1761 (set (make-local-variable 'desktop-save-buffer) |