# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803838232 0
# Node ID 6da25b126f030077864b2b2dfc578adecf13d74d
# Parent  fe8779b08103581afd15104646303c48220f1b39
(vc-fetch-master-properties): Pass an absolute
pathname to the cvs status command. This is required to make
recursive vc-directory listings work.

diff -r fe8779b08103 -r 6da25b126f03 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Thu Jun 22 05:11:36 1995 +0000
+++ b/lisp/vc-hooks.el	Thu Jun 22 16:23:52 1995 +0000
@@ -38,6 +38,10 @@
   "*Back-end actually used by this interface; may be SCCS or RCS.
 The value is only computed when needed to avoid an expensive search.")
 
+(defvar vc-handle-cvs t
+  "*If non-nil, use VC for files managed with CVS.
+If it is nil, don't use VC for those files.")
+
 (defvar vc-path
   (if (file-directory-p "/usr/sccs")
       '("/usr/sccs")
@@ -285,7 +289,7 @@
 			   (mapconcat 'identity vc-path path-separator))
 		   process-environment)))
 	(apply 'call-process "cvs" nil "*vc-info*" nil 
-	       (list "status" (file-name-nondirectory file))))
+	       (list "status" file)))
       (set-buffer (get-buffer "*vc-info*"))
       (set-buffer-modified-p nil)
       (auto-save-mode nil)
@@ -650,7 +654,8 @@
   ;; the MASTER will not actually exist yet.  The other parts of VC
   ;; checks for this condition.  This function returns nil if 
   ;; DIRNAME/BASENAME is not handled by CVS.
-  (if (and (file-directory-p (concat dirname "CVS/"))
+  (if (and vc-handle-cvs
+	   (file-directory-p (concat dirname "CVS/"))
 	   (file-readable-p (concat dirname "CVS/Entries"))
 	   (file-readable-p (concat dirname "CVS/Repository")))
       (let ((bufs nil) (fold case-fold-search))