Commit bcabe045 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-arch-workfile-version): Don't burp if the patch-log directory is missing.

parent 1040d041
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.
......
......@@ -283,8 +283,8 @@ Return non-nil if FILE is unchanged."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment