mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2004-10-17 23:01:25 +00:00
parent 1040d0412c
commit bcabe045db
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

4
lisp/vc-arch.el
View File

@ -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)