(vc-sccs-root): New func.

2 files changed, 4 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82f619341bd..cc1c4462914 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
         * vc-rcs.el (vc-rcs-root): New func.
         * vc-cvs.el (vc-cvs-root): New func.
         * vc-svn.el (vc-svn-root): New func.
+        * vc-sccs.el (vc-sccs-root): New func.
 
 2008-02-18  Kenichi Handa  <handa@ni.aist.go.jp>
 
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index e74d73f1014..717e459051d 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -362,6 +362,9 @@ locked.  REV is the revision to check out."
 ;;; Internal functions
 ;;;
 
+(defun vc-sccs-root (dir)
+  (vc-find-root dir "SCCS" t))
+
 ;; This function is wrapped with `progn' so that the autoload cookie
 ;; copies the whole function itself into loaddefs.el rather than just placing
 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not