emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/vc-arch.el [lexbind]
Date: Mon, 25 Oct 2004 00:40:53 -0400

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.3.2.8 emacs/lisp/vc-arch.el:1.3.2.9
*** emacs/lisp/vc-arch.el:1.3.2.8       Thu Sep 16 00:14:58 2004
--- emacs/lisp/vc-arch.el       Mon Oct 25 04:22:22 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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]