From 6d587cb5d90c3545be3a5aba7d5479914a609064 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 19 Feb 2008 12:26:40 +0000 Subject: [PATCH] (vc-sccs-root): New func. --- lisp/ChangeLog | 1 + lisp/vc-sccs.el | 3 +++ 2 files changed, 4 insertions(+) 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 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 -- 2.11.4.GIT