1 |
;;; vc-arch.el --- VC backend for the Arch version-control system |
;;; vc-arch.el --- VC backend for the Arch version-control system |
2 |
|
|
3 |
;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF (see vc.el for full credits) |
;; Author: FSF (see vc.el for full credits) |
270 |
(defun vc-arch-workfile-version (file) |
(defun vc-arch-workfile-version (file) |
271 |
(let* ((root (expand-file-name "{arch}" (vc-arch-root file))) |
(let* ((root (expand-file-name "{arch}" (vc-arch-root file))) |
272 |
(defbranch (vc-arch-default-version file))) |
(defbranch (vc-arch-default-version file))) |
273 |
(when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*\\)--.*\\)--.*\\)\\'" defbranch)) |
(when (and defbranch (string-match "\\`\\(.+@[^/\n]+\\)/\\(\\(\\(.*\\)\\(--.*\\)?\\)--.*\\)\\'" defbranch)) |
274 |
(let* ((archive (match-string 1 defbranch)) |
(let* ((archive (match-string 1 defbranch)) |
275 |
(category (match-string 4 defbranch)) |
(category (match-string 4 defbranch)) |
276 |
(branch (match-string 3 defbranch)) |
(branch (match-string 3 defbranch)) |