Mercurial > emacs
changeset 82222:c17afaa92484
(cvs-vc-command-advice): Handle the new fileset case.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 31 Jul 2007 15:23:27 +0000 |
| parents | e126e09e6ac7 |
| children | c6692abac164 |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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))))))))