comparison lisp/vc-hooks.el @ 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.

12358:fe8779b08103

;; Customization Variables (the rest is in vc.el)

(defvar vc-default-back-end nil
  "*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-path
  (if (file-directory-p "/usr/sccs")
      '("/usr/sccs")
    nil)

	     (cons (concat "PATH=" (getenv "PATH")
			   path-separator 
			   (mapconcat 'identity vc-path path-separator))
		   process-environment)))
	(apply 'call-process "cvs" nil "*vc-info*" nil 
	       (list "status" (file-name-nondirectory file))))
      (set-buffer (get-buffer "*vc-info*"))
      (set-buffer-modified-p nil)
      (auto-save-mode nil)
      (vc-parse-buffer     
       ;; CVS 1.3 says "RCS Version:", other releases "RCS Revision:",

  ;; If it is, do a (throw 'found (cons MASTER 'CVS)).
  ;; Note: If the file is ``cvs add''ed but not yet ``cvs commit''ed 
  ;; 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/"))
	   (file-readable-p (concat dirname "CVS/Entries"))
	   (file-readable-p (concat dirname "CVS/Repository")))
      (let ((bufs nil) (fold case-fold-search))
	(unwind-protect
	    (save-excursion

12359:6da25b126f03

;; Customization Variables (the rest is in vc.el)

(defvar vc-default-back-end nil
  "*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")
    nil)

	     (cons (concat "PATH=" (getenv "PATH")
			   path-separator 
			   (mapconcat 'identity vc-path path-separator))
		   process-environment)))
	(apply 'call-process "cvs" nil "*vc-info*" nil 
	       (list "status" file)))
      (set-buffer (get-buffer "*vc-info*"))
      (set-buffer-modified-p nil)
      (auto-save-mode nil)
      (vc-parse-buffer     
       ;; CVS 1.3 says "RCS Version:", other releases "RCS Revision:",

  ;; If it is, do a (throw 'found (cons MASTER 'CVS)).
  ;; Note: If the file is ``cvs add''ed but not yet ``cvs commit''ed 
  ;; 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 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))
	(unwind-protect
	    (save-excursion