diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-12 03:01:13 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-12 03:01:13 +0000 |
| commit | 3d1726ad78e6471ab946e953c8beaef8f2c1a57b (patch) | |
| tree | 5ec6dab5b61166c32683c9b9ba1adceaa4c2aa5d /lisp/vc-mcvs.el | |
| parent | 988e29061a37fe41044f2ccbf2ed740148d64366 (diff) | |
| download | emacs-3d1726ad78e6471ab946e953c8beaef8f2c1a57b.tar.gz emacs-3d1726ad78e6471ab946e953c8beaef8f2c1a57b.tar.bz2 emacs-3d1726ad78e6471ab946e953c8beaef8f2c1a57b.zip | |
(vc-mcvs-checkin): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/vc-mcvs.el')
| -rw-r--r-- | lisp/vc-mcvs.el | 6 |
1 files 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: " |