[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [emacs-unicode-2] |
Date: |
Fri, 22 Oct 2004 06:22:44 -0400 |
Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.6.2.5 emacs/lisp/vc-arch.el:1.6.2.6
*** emacs/lisp/vc-arch.el:1.6.2.5 Wed Sep 15 08:59:56 2004
--- emacs/lisp/vc-arch.el Fri Oct 22 10:13:28 2004
***************
*** 283,290 ****
(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))
(when (and (eq (aref file 0) ?v) (not sealed))
(setq sealed t rev-nb 0))
(if (and (string-match "-\\([0-9]+\\)\\'" file)
--- 283,290 ----
(setq logdir (expand-file-name version logdir))
(setq logdir (expand-file-name archive logdir))
(setq logdir (expand-file-name "patch-log" 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/vc-arch.el [emacs-unicode-2],
Miles Bader <=