Mercurial > emacs
changeset 12359:6da25b126f03
(vc-fetch-master-properties): Pass an absolute
pathname to the cvs status command. This is required to make
recursive vc-directory listings work.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Jun 1995 16:23:52 +0000 |
| parents | fe8779b08103 |
| children | 8c5226231593 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))