Mercurial > hg > xemacs-beta

diff lisp/packages/vc.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents b980b6286996
children 59463afc5666
line wrap: on
line diff
--- a/lisp/packages/vc.el	Mon Aug 13 09:33:20 2007 +0200
+++ b/lisp/packages/vc.el	Mon Aug 13 09:34:14 2007 +0200
@@ -1145,7 +1145,7 @@
 scan the entire tree of subdirectories of the current directory."
   (interactive "DVC status of directory: \nP")
   (let* (nonempty
-	 (dl (length dir))
+	 (dl (+ 1 (length (directory-file-name (expand-file-name dir)))))
 	 (filelist nil) (userlist nil)
 	 dired-buf
 	 (subfunction
@@ -1155,7 +1155,7 @@
 			    (and (or verbose user)
 				 (setq filelist (cons (substring f dl) filelist))
 				 (setq userlist (cons user userlist)))))))))
-    (let ((default-directory dir))
+    (let ((default-directory (expand-file-name dir)))
       (if nested
 	  (vc-file-tree-walk subfunction)
 	(vc-dir-all-files subfunction)))