Mercurial > emacs

comparison lisp/vc-arch.el @ 107617:c5f9e4613394

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 16 Jan 2010 06:57:09 -0500
parents 5df8e547a422
children 1918e70c8b37 8027e412df98
comparison
equal deleted inserted replaced
107616:fa5ad3eee9f5 107617:c5f9e4613394
1 ;;; vc-arch.el --- VC backend for the Arch version-control system 1 ;;; vc-arch.el --- VC backend for the Arch version-control system
2 2
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: FSF (see vc.el for full credits) 6 ;; Author: FSF (see vc.el for full credits)
7 ;; Maintainer: Stefan Monnier <monnier@gnu.org> 7 ;; Maintainer: Stefan Monnier <monnier@gnu.org>
8 8
211 "^[ \t]*\\(tagline\\|implicit\\|names\\|explicit\\)" nil t) 211 "^[ \t]*\\(tagline\\|implicit\\|names\\|explicit\\)" nil t)
212 (intern (match-string 1)) 212 (intern (match-string 1))
213 'names)))) 213 'names))))
214 214
215 (defun vc-arch-root (file) 215 (defun vc-arch-root (file)
216 "Return the root directory of a Arch project, if any." 216 "Return the root directory of an Arch project, if any."
217 (or (vc-file-getprop file 'arch-root) 217 (or (vc-file-getprop file 'arch-root)
218 ;; Check the =tagging-method, in case someone naively manually 218 ;; Check the =tagging-method, in case someone naively manually
219 ;; creates a {arch} directory somewhere. 219 ;; creates a {arch} directory somewhere.
220 (let ((root (vc-find-root file "{arch}/=tagging-method"))) 220 (let ((root (vc-find-root file "{arch}/=tagging-method")))
221 (when root 221 (when root