Mercurial > hg > xemacs-beta

diff lisp/packages/vc.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 929b76928fce
line wrap: on
line diff
--- a/lisp/packages/vc.el	Mon Aug 13 09:37:21 2007 +0200
+++ b/lisp/packages/vc.el	Mon Aug 13 09:38:25 2007 +0200
@@ -1370,7 +1370,7 @@
       (setq dirname (concat dirname "/")))
   (let (nonempty
 	(dl (if (featurep 'xemacs)
-		(+ 1 (length (directory-file-name (expand-file-name dir))))
+		(+ 1 (length (directory-file-name (expand-file-name dirname))))
 	      (length dirname)))
 	(filelist nil) (statelist nil)
 	(old-dir default-directory)