[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/07/31 15:23:29

Index: pcvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- pcvs.el     26 Jul 2007 05:18:03 -0000      1.102
+++ pcvs.el     31 Jul 2007 15:23:27 -0000      1.103
@@ -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\\'"))
+                (dolist (file (if (listp files) files (list file)))
                (insert "cvs add: scheduling file `"
                        (file-name-nondirectory file)
-                       "' for addition\n"))
+                          "' for addition\n")))
              ;; VC never (?) does `cvs -n update' so dcd=nil
              ;; should probably always be the right choice.
              (cvs-parse-process nil subdir))))))))