Mercurial > emacs
diff lisp/pcvs.el @ 90999:35e3789db058
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 839-842)
- Update from CVS
- Change capitalization of VC backend names for new backends
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-240
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 03 Aug 2007 05:27:05 +0000 |
| parents | f55f9811f5d7 c17afaa92484 |
| children | 424b655804ca |
line wrap: on
line diff
--- a/lisp/pcvs.el Fri Aug 03 05:20:51 2007 +0000 +++ b/lisp/pcvs.el Fri Aug 03 05:27:05 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))))))))