From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Tue, 19 Feb 2008 12:26:40 +0000 (+0000)
Subject: (vc-sccs-root): New func.
X-Git-Tag: emacs-pretest-23.0.90~7854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d587cb5d90c3545be3a5aba7d5479914a609064;p=emacs.git

(vc-sccs-root): New func.
---

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