From 3d1726ad78e6471ab946e953c8beaef8f2c1a57b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 12 Oct 2007 03:01:13 +0000 Subject: [PATCH] (vc-mcvs-checkin): Use mapc rather than mapcar. --- lisp/vc-mcvs.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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: " -- 2.39.2