/[emacs]/emacs/lisp/vc-arch.el
ViewVC logotype

Diff of /emacs/lisp/vc-arch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by kfstorm, Tue Jun 29 13:00:49 2004 UTC revision 1.10 by monnier, Tue Sep 7 04:49:03 2004 UTC
# Line 1  Line 1 
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>
# Line 303  Return non-nil if FILE is unchanged." Line 304  Return non-nil if FILE is unchanged."
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
# Line 418  Return non-nil if FILE is unchanged." Line 421  Return non-nil if FILE is unchanged."
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26