Mercurial > emacs
changeset 2692:fc1de7b24bc4
(vc-directory-18): cd to the directory in question before the file tree walk.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 08 May 1993 16:17:01 +0000 |
| parents | be85636d8b6e |
| children | 1deaf4364cd3 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Sat May 08 16:14:11 1993 +0000 +++ b/lisp/vc.el Sat May 08 16:17:01 1993 +0000 @@ -897,10 +897,11 @@ (defun vc-directory-18 (verbose) "Show version-control status of all files under the current directory." (interactive "P") - (let (nonempty) + (let (nonempty (dir default-directory)) (save-excursion (set-buffer (get-buffer-create "*vc-status*")) (erase-buffer) + (cd dir) (vc-file-tree-walk (function (lambda (f) (if (vc-registered f)