diff options
author | Thien-Thi Nguyen <[email protected]> | 2008-02-19 11:45:54 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <[email protected]> | 2008-02-19 11:45:54 +0000 |
commit | b038f9fb955989de99795504c8facfac21e5fbd9 (patch) | |
tree | 1d880d8100877acee98b18d5087794edb2176065 /lisp/vc-rcs.el | |
parent | 72c70417d339899b322f59c924e65fccb769d27d (diff) |
Make sure all backends support vc-BACKEND-root.
* vc-hooks.el (vc-find-root): Take optional arg INVERT.
If non-nil, reverse the sense of the check.
* vc-rcs.el (vc-rcs-root): New func.
* vc-cvs.el (vc-cvs-root): New func.
* vc-svn.el (vc-svn-root): New func.
Diffstat (limited to 'lisp/vc-rcs.el')
-rw-r--r-- | lisp/vc-rcs.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index 9ba1226301..0f2551d49a 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -792,6 +792,9 @@ systime, or nil if there is none. Also, reposition point." ;;; Internal functions ;;; +(defun vc-rcs-root (dir) + (vc-find-root dir "RCS" t)) + (defun vc-rcs-workfile-is-newer (file) "Return non-nil if FILE is newer than its RCS master. This likely means that FILE has been changed with respect |