/[emacs]/emacs/lisp/vc-arch.el
ViewVC logotype

Diff of /emacs/lisp/vc-arch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.2.5 by miles, Wed Sep 15 08:59:56 2004 UTC revision 1.6.2.6 by miles, Fri Oct 22 10:13:28 2004 UTC
# Line 283  Return non-nil if FILE is unchanged." Line 283  Return non-nil if FILE is unchanged."
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)

Legend:
Removed from v.1.6.2.5  
changed lines
  Added in v.1.6.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26