From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Jun 1995 16:23:52 +0000 (+0000)
Subject: (vc-fetch-master-properties): Pass an absolute
X-Git-Tag: emacs-19.34~3500
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b086efb1fb0084d1c47ababbbec509942a80bff;p=emacs.git

(vc-fetch-master-properties): Pass an absolute
pathname to the cvs status command. This is required to make
recursive vc-directory listings work.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 39f94df20a8..144fd7f9147 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -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 @@ value of this flag.")
 			   (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 @@ value of this flag.")
   ;; 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))