[Emacs-diffs] Changes to emacs/lisp/vc-arch.el

[Stefan Monnier]

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.9 emacs/lisp/vc-arch.el:1.10
*** emacs/lisp/vc-arch.el:1.9   Tue Jun 29 13:00:49 2004
--- emacs/lisp/vc-arch.el       Tue Sep  7 04:49:03 2004
***************
*** 1,6 ****
  ;;; 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.
  
  ;; Author:      FSF (see vc.el for full credits)
  ;; Maintainer:  Stefan Monnier <address@hidden>
--- 1,7 ----
  ;;; vc-arch.el --- VC backend for the Arch version-control system
  
! ;; 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 <address@hidden>
***************
*** 303,309 ****
                   (or (not sealed) (eq (aref file 0) ?v))
                   (>= tmp rev-nb))
              (setq rev-nb tmp rev file)))
!       (concat defbranch "--" rev)))))
  
  
  (defcustom vc-arch-mode-line-rewrite
--- 304,312 ----
                   (or (not sealed) (eq (aref file 0) ?v))
                   (>= tmp rev-nb))
              (setq rev-nb tmp rev file)))
!       ;; 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,422 ****
  
  (provide 'vc-arch)
  
! ;;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704
  ;;; vc-arch.el ends here
--- 421,425 ----
  
  (provide 'vc-arch)
  
! ;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704
  ;;; vc-arch.el ends here