Commit 967bf297 authored by Glenn Morris's avatar Glenn Morris
Browse files

(vc-cvs-register): Fix registering of directories in multiple file case.

parent 59e9dbbc
2008-02-24 Glenn Morris <rgm@gnu.org>
 
* vc-cvs.el (vc-cvs-register): Fix registering of directories in
multiple file case.
* vc-mcvs.el (vc-mcvs-register): Fix let-binding (for use of `file').
 
2008-02-24 Dan Nicolaescu <dann@ics.uci.edu>
......
......@@ -298,15 +298,18 @@ COMMENT can be used to provide an initial description of FILES.
`vc-register-switches' and `vc-cvs-register-switches' are passed to
the CVS command (in that order)."
(when (and (not (vc-cvs-responsible-p file))
(vc-cvs-could-register file))
;; Register the directory if needed.
(vc-cvs-register (directory-file-name (file-name-directory file))))
(apply 'vc-cvs-command nil 0 files
"add"
(and comment (string-match "[^\t\n ]" comment)
(concat "-m" comment))
(vc-switches 'CVS 'register)))
;; Register the directories if needed.
(let (dirs)
(dolist (file files)
(and (not (vc-cvs-responsible-p file))
(vc-cvs-could-register file)
(push (directory-file-name (file-name-directory file)) dirs)))
(if dirs (vc-cvs-register dirs)))
(apply 'vc-cvs-command nil 0 files
"add"
(and comment (string-match "[^\t\n ]" comment)
(concat "-m" comment))
(vc-switches 'CVS 'register)))
(defun vc-cvs-responsible-p (file)
"Return non-nil if CVS thinks it is responsible for FILE."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment