(vc-sccs-root): New func.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82f619341bd2cca461b7bfcd7f8e4e1aa2640f7f..cc1c4462914ea7f12c96513d661a741983ca25cd 100644 (file)
--- 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 e74d73f10148a55da12b60e9912b8fcf48d46d3b..717e459051dd021b9acd9bc5181754a148239844 100644 (file)
--- 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