From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 03:01:13 +0000 (+0000)
Subject: (vc-mcvs-checkin): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d1726ad78e6471ab946e953c8beaef8f2c1a57b;p=emacs.git

(vc-mcvs-checkin): Use mapc rather than mapcar.
---

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index 6df12202c03..aa99e3f4273 100644
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -277,8 +277,8 @@ This is only possible if Meta-CVS is responsible for FILE's directory.")
       ;; be applied just to this one file.
       (apply 'vc-mcvs-command nil 0 files "tag" "-b" (list rev))
       (apply 'vc-mcvs-command nil 0 files "update" "-r" (list rev))
-      (mapcar (lambda (file) (vc-file-setprop file 'vc-mcvs-sticky-tag rev))
-	      files)
+      (mapc (lambda (file) (vc-file-setprop file 'vc-mcvs-sticky-tag rev))
+	    files)
       (setq rev nil)))
   ;; This commit might cvs-commit several files (e.g. MAP and TYPES)
   ;; so using numbered revs here is dangerous and somewhat meaningless.
@@ -292,7 +292,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.")
       ;; Check checkin problem.
       (cond
        ((re-search-forward "Up-to-date check failed" nil t)
-	(mapcar (lambda (file) (vc-file-setprop file 'vc-state 'needs-merge))
+	(mapc (lambda (file) (vc-file-setprop file 'vc-state 'needs-merge))
 	      files)
         (error (substitute-command-keys
                 (concat "Up-to-date check failed: "