Commit b6e9189c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(cvs-vc-command-advice): Handle the new fileset case.

parent 2f12b713
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)
......
......@@ -2354,7 +2354,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'."
(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 @@ The exact behavior is determined also by `cvs-dired-use-hook'."
(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))))))))
......
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