# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1094532543 0
# Node ID 242cddb00aefd8de6c1c28a3129d87910d3c74ff
# Parent  2cc3f5b164388bd495b131ef8fe92bf6f3805ba0
(vc-arch-workfile-version): Handle the special case before the first commit.

diff -r 2cc3f5b16438 -r 242cddb00aef lisp/vc-arch.el
--- a/lisp/vc-arch.el	Tue Sep 07 04:48:04 2004 +0000
+++ b/lisp/vc-arch.el	Tue Sep 07 04:49:03 2004 +0000
@@ -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 @@
 		   (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 @@
 
 (provide 'vc-arch)
 
-;;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704
+;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704
 ;;; vc-arch.el ends here