diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-07 04:49:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-07 04:49:03 +0000 |
| commit | 86d660c6c2a0c15e936e432977d9eccd12961812 (patch) | |
| tree | e71a9639f66f11fb5947aec4d202d7be2b87160e /lisp/vc-arch.el | |
| parent | fa63cb6d0b273629f893abef60ff7eb17100faf5 (diff) | |
| download | emacs-86d660c6c2a0c15e936e432977d9eccd12961812.tar.gz | |
(vc-arch-workfile-version): Handle the special case before the first commit.
Diffstat (limited to 'lisp/vc-arch.el')
| -rw-r--r-- | lisp/vc-arch.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 5f24599241c..2cadfdc299f 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -1,6 +1,7 @@ ;;; vc-arch.el --- VC backend for the Arch version-control system -;; Copyright (C) 1995,98,99,2000,01,02,03,2004 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;; Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Stefan Monnier <monnier@gnu.org> @@ -303,7 +304,9 @@ Return non-nil if FILE is unchanged." (or (not sealed) (eq (aref file 0) ?v)) (>= tmp rev-nb)) (setq rev-nb tmp rev file))) - (concat defbranch "--" rev))))) + ;; Use "none-000" if the tree hasn't yet been committed on the + ;; default branch. We'll then get "Arch:000[branch]" on the mode-line. + (concat defbranch "--" (or rev "none-000")))))) (defcustom vc-arch-mode-line-rewrite @@ -418,5 +421,5 @@ Return non-nil if FILE is unchanged." (provide 'vc-arch) -;;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 +;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 ;;; vc-arch.el ends here |