diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-22 16:23:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-22 16:23:52 +0000 |
| commit | 0b086efb1fb0084d1c47ababbbec509942a80bff (patch) | |
| tree | eb2ebfc5225188ac1dd0cac31782470be0a3f587 /lisp/vc-hooks.el | |
| parent | 9a62cb631928b99c7c263e2d24669999b0de8453 (diff) | |
| download | emacs-0b086efb1fb0084d1c47ababbbec509942a80bff.tar.gz | |
(vc-fetch-master-properties): Pass an absolute
pathname to the cvs status command. This is required to make
recursive vc-directory listings work.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 9 |
1 files changed, 7 insertions, 2 deletions
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)) |