Mercurial > emacs

changeset 81976:69946487f7b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix two variable-reference bugs.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 19 Jul 2007 14:18:33 +0000
parents 4ce82926d7d0
children ef9ebdaeea06
files lisp/vc-cvs.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-cvs.el	Thu Jul 19 06:31:59 2007 +0000
+++ b/lisp/vc-cvs.el	Thu Jul 19 14:18:33 2007 +0000
@@ -330,8 +330,9 @@
       ;; as a branch, commit and switch to it.
       (apply 'vc-cvs-command nil 0 files "tag" "-b" (list rev))
       (apply 'vc-cvs-command nil 0 files "update" "-r" (list rev))
-      (vc-file-setprop file 'vc-cvs-sticky-tag rev)))
-  (let ((status (apply 'vc-cvs-command nil 1 file
+      (mapc (lambda (file) (vc-file-setprop file 'vc-cvs-sticky-tag rev))
+	    files)))
+  (let ((status (apply 'vc-cvs-command nil 1 files
 		       "ci" (if rev (concat "-r" rev))
 		       (concat "-m" comment)
 		       (vc-switches 'CVS 'checkin))))
@@ -509,7 +510,7 @@
 		       (fboundp 'start-process)))
 	   (status (apply 'vc-cvs-command (or buffer "*vc-diff*")
 			  (if async 'async 1)
-			  file "diff"
+			  files "diff"
 			  (and oldvers (concat "-r" oldvers))
 			  (and newvers (concat "-r" newvers))
 			  (vc-switches 'CVS 'diff))))