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,98,99,2000,01,02,03,2004 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF (see vc.el for full credits) |
;; Author: FSF (see vc.el for full credits) |
7 |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
304 |
(or (not sealed) (eq (aref file 0) ?v)) |
(or (not sealed) (eq (aref file 0) ?v)) |
305 |
(>= tmp rev-nb)) |
(>= tmp rev-nb)) |
306 |
(setq rev-nb tmp rev file))) |
(setq rev-nb tmp rev file))) |
307 |
(concat defbranch "--" rev))))) |
;; Use "none-000" if the tree hasn't yet been committed on the |
308 |
|
;; default branch. We'll then get "Arch:000[branch]" on the mode-line. |
309 |
|
(concat defbranch "--" (or rev "none-000")))))) |
310 |
|
|
311 |
|
|
312 |
(defcustom vc-arch-mode-line-rewrite |
(defcustom vc-arch-mode-line-rewrite |
421 |
|
|
422 |
(provide 'vc-arch) |
(provide 'vc-arch) |
423 |
|
|
424 |
;;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 |
;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 |
425 |
;;; vc-arch.el ends here |
;;; vc-arch.el ends here |