procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-directory-18): cd to the directory in question before the file tree walk.

Browse source
This commit is contained in:
Richard M. Stallman 1993-05-08 16:17:01 +00:00
parent 6ed5075cab
commit 0ee7d6239a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/vc.el
View file

@ -897,10 +897,11 @@ on a buffer attached to the file named in the current Dired buffer line."
(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)