# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1098054085 0
# Node ID d50f313f6fdd1eb8a86ae3ecebf4e0846e25f1da
# Parent  5bab1954e91f150e45ba609371bed17b03339b74
(vc-arch-workfile-version): Don't burp if the patch-log directory is missing.

diff -r 5bab1954e91f -r d50f313f6fdd lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 17 20:20:26 2004 +0000
+++ b/lisp/ChangeLog	Sun Oct 17 23:01:25 2004 +0000
@@ -1,3 +1,8 @@
+2004-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc-arch.el (vc-arch-workfile-version): Don't burp if the patch-log
+	directory is missing.
+
 2004-10-17  John Paul Wallington  <jpw@gnu.org>
 
 	* ibuffer.el (ibuffer-default-display-maybe-show-predicates):
@@ -26,7 +31,7 @@
 
 2004-10-17  Richard M. Stallman  <rms@gnu.org>
 
-	* paths.el (news-directory): Renamed from news-path.  Old name alias.
+	* paths.el (news-directory): Rename from news-path.  Old name alias.
 	(rmail-spool-directory): Use defvar.
 	(sendmail-program): Use defcustom.
 	(remote-shell-program): Use defcustom.
diff -r 5bab1954e91f -r d50f313f6fdd lisp/vc-arch.el
--- a/lisp/vc-arch.el	Sun Oct 17 20:20:26 2004 +0000
+++ b/lisp/vc-arch.el	Sun Oct 17 23:01:25 2004 +0000
@@ -283,8 +283,8 @@
 	(setq logdir (expand-file-name version logdir))
 	(setq logdir (expand-file-name archive logdir))
 	(setq logdir (expand-file-name "patch-log" logdir))
-	;; Revision names go: base-0, patch-N, version-0, versionfix-N.
-	(dolist (file (directory-files logdir))
+	(dolist (file (if (file-directory-p logdir) (directory-files logdir)))
+	  ;; Revision names go: base-0, patch-N, version-0, versionfix-M.
 	  (when (and (eq (aref file 0) ?v) (not sealed))
 	    (setq sealed t rev-nb 0))
 	  (if (and (string-match "-\\([0-9]+\\)\\'" file)