diff options
| author | Stefan Monnier | 2005-01-02 22:07:52 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-01-02 22:07:52 +0000 |
| commit | c771f3d67a0e0ee67f1c65960cab3b374971fb66 (patch) | |
| tree | f43accc973e5dff3cc64c8be3a74ddc7feac46ce | |
| parent | 5e39b98a2965ba20a68fd98aecb780f4d6246219 (diff) | |
| download | emacs-c771f3d67a0e0ee67f1c65960cab3b374971fb66.tar.gz emacs-c771f3d67a0e0ee67f1c65960cab3b374971fb66.zip | |
(vc-arch-workfile-version): Fix last change.
| -rw-r--r-- | lisp/vc-arch.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 3ea023b41cb..40ec2fb3884 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el | |||
| @@ -270,7 +270,7 @@ Return non-nil if FILE is unchanged." | |||
| 270 | (defun vc-arch-workfile-version (file) | 270 | (defun vc-arch-workfile-version (file) |
| 271 | (let* ((root (expand-file-name "{arch}" (vc-arch-root file))) | 271 | (let* ((root (expand-file-name "{arch}" (vc-arch-root file))) |
| 272 | (defbranch (vc-arch-default-version file))) | 272 | (defbranch (vc-arch-default-version file))) |
| 273 | (when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*\\)\\(--.*\\)?\\)--.*\\)\\'" defbranch)) | 273 | (when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*?\\)\\(?:--.*\\)?\\)--.*\\)\\'" defbranch)) |
| 274 | (let* ((archive (match-string 1 defbranch)) | 274 | (let* ((archive (match-string 1 defbranch)) |
| 275 | (category (match-string 4 defbranch)) | 275 | (category (match-string 4 defbranch)) |
| 276 | (branch (match-string 3 defbranch)) | 276 | (branch (match-string 3 defbranch)) |