/[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.13 by monnier, Sun Oct 17 23:01:25 2004 UTC revision 1.14 by monnier, Sun Jan 2 22:00:06 2005 UTC
# Line 1  Line 1 
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)
# Line 270  Return non-nil if FILE is unchanged." Line 270  Return non-nil if FILE is unchanged."
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))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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