283 |
(setq logdir (expand-file-name version logdir)) |
(setq logdir (expand-file-name version logdir)) |
284 |
(setq logdir (expand-file-name archive logdir)) |
(setq logdir (expand-file-name archive logdir)) |
285 |
(setq logdir (expand-file-name "patch-log" logdir)) |
(setq logdir (expand-file-name "patch-log" logdir)) |
286 |
;; Revision names go: base-0, patch-N, version-0, versionfix-N. |
(dolist (file (if (file-directory-p logdir) (directory-files logdir))) |
287 |
(dolist (file (directory-files logdir)) |
;; Revision names go: base-0, patch-N, version-0, versionfix-M. |
288 |
(when (and (eq (aref file 0) ?v) (not sealed)) |
(when (and (eq (aref file 0) ?v) (not sealed)) |
289 |
(setq sealed t rev-nb 0)) |
(setq sealed t rev-nb 0)) |
290 |
(if (and (string-match "-\\([0-9]+\\)\\'" file) |
(if (and (string-match "-\\([0-9]+\\)\\'" file) |