(vc-arch-workfile-version): Handle the empty-branch case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5411336e86f1445679b3361d516de80213ed826c..4eebddf0dc0e3c3bee924fd3747ce78095d82dce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-01-02  Stefan  <monnier@iro.umontreal.ca>
 
+       * vc-arch.el (vc-arch-workfile-version): Handle the empty-branch case.
+
        * files.el (hack-local-variables): Fix last change.
 
 2005-01-02  Jay Belanger  <belanger@truman.edu>
@@ -25,8 +27,7 @@
 2005-01-01  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-yank.el (calc-edit-mode): Change default header.
-       (calc-edit-finish, calc-show-edit-buffer): Adjust to handle new
-       header. 
+       (calc-edit-finish, calc-show-edit-buffer): Adjust to handle new header.
        * calc/calc-store.el (calc-edit-variable): Change title to match new
        header.
        * calc/calc-prog.el (calc-edit-user-syntax): Change title in edit

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index 70dbdcc85f268881a96632085df82ae4c2704c1c..3ea023b41cb8d9902a0fe90441c59ae0a4780605 100644 (file)
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -1,6 +1,6 @@
 ;;; vc-arch.el --- VC backend for the Arch version-control system
 
-;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;           Free Software Foundation, Inc.
 
 ;; Author:      FSF (see vc.el for full credits)
@@ -270,7 +270,7 @@ Return non-nil if FILE is unchanged."
 (defun vc-arch-workfile-version (file)
   (let* ((root (expand-file-name "{arch}" (vc-arch-root file)))
         (defbranch (vc-arch-default-version file)))
-    (when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*\\)--.*\\)--.*\\)\\'" defbranch))
+    (when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*\\)\\(--.*\\)?\\)--.*\\)\\'" defbranch))
       (let* ((archive (match-string 1 defbranch))
             (category (match-string 4 defbranch))
             (branch (match-string 3 defbranch))