# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1185895407 0
# Node ID c17afaa924849e05c54eae393b8283cf14df0099
# Parent  e126e09e6ac7d2eda88427db3de61fa18555861b
(cvs-vc-command-advice): Handle the new fileset case.

diff -r e126e09e6ac7 -r c17afaa92484 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 31 05:02:54 2007 +0000
+++ b/lisp/ChangeLog	Tue Jul 31 15:23:27 2007 +0000
@@ -1,3 +1,7 @@
+2007-07-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* pcvs.el (cvs-vc-command-advice): Handle the new fileset case.
+
 2007-07-29  Kimit Yada  <kimitto@gmail.com>  (tiny change)
 
 	* emacs-lisp/copyright.el (copyright-update-year, copyright-update)
diff -r e126e09e6ac7 -r c17afaa92484 lisp/pcvs.el
--- a/lisp/pcvs.el	Tue Jul 31 05:02:54 2007 +0000
+++ b/lisp/pcvs.el	Tue Jul 31 15:23:27 2007 +0000
@@ -2354,7 +2354,7 @@
 
 (add-hook 'vc-post-command-functions 'cvs-vc-command-advice)
 
-(defun cvs-vc-command-advice (command file flags)
+(defun cvs-vc-command-advice (command files flags)
   (when (and (equal command "cvs")
 	     (progn
 	       (while (and (stringp (car flags))
@@ -2383,9 +2383,10 @@
 	      (when (and (equal (car flags) "add")
 			 (goto-char (point-min))
 			 (looking-at ".*to add this file permanently\n\\'"))
-		(insert "cvs add: scheduling file `"
-			(file-name-nondirectory file)
-			"' for addition\n"))
+                (dolist (file (if (listp files) files (list file)))
+                  (insert "cvs add: scheduling file `"
+                          (file-name-nondirectory file)
+                          "' for addition\n")))
 	      ;; VC never (?) does `cvs -n update' so dcd=nil
 	      ;; should probably always be the right choice.
 	      (cvs-parse-process nil subdir))))))))