diff options
| author | Glenn Morris | 2007-10-12 03:01:13 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-10-12 03:01:13 +0000 |
| commit | 3d1726ad78e6471ab946e953c8beaef8f2c1a57b (patch) | |
| tree | 5ec6dab5b61166c32683c9b9ba1adceaa4c2aa5d | |
| parent | 988e29061a37fe41044f2ccbf2ed740148d64366 (diff) | |
| download | emacs-3d1726ad78e6471ab946e953c8beaef8f2c1a57b.tar.gz emacs-3d1726ad78e6471ab946e953c8beaef8f2c1a57b.zip | |
(vc-mcvs-checkin): Use mapc rather than mapcar.
| -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.") | |||
| 277 | ;; be applied just to this one file. | 277 | ;; be applied just to this one file. |
| 278 | (apply 'vc-mcvs-command nil 0 files "tag" "-b" (list rev)) | 278 | (apply 'vc-mcvs-command nil 0 files "tag" "-b" (list rev)) |
| 279 | (apply 'vc-mcvs-command nil 0 files "update" "-r" (list rev)) | 279 | (apply 'vc-mcvs-command nil 0 files "update" "-r" (list rev)) |
| 280 | (mapcar (lambda (file) (vc-file-setprop file 'vc-mcvs-sticky-tag rev)) | 280 | (mapc (lambda (file) (vc-file-setprop file 'vc-mcvs-sticky-tag rev)) |
| 281 | files) | 281 | files) |
| 282 | (setq rev nil))) | 282 | (setq rev nil))) |
| 283 | ;; This commit might cvs-commit several files (e.g. MAP and TYPES) | 283 | ;; This commit might cvs-commit several files (e.g. MAP and TYPES) |
| 284 | ;; so using numbered revs here is dangerous and somewhat meaningless. | 284 | ;; 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.") | |||
| 292 | ;; Check checkin problem. | 292 | ;; Check checkin problem. |
| 293 | (cond | 293 | (cond |
| 294 | ((re-search-forward "Up-to-date check failed" nil t) | 294 | ((re-search-forward "Up-to-date check failed" nil t) |
| 295 | (mapcar (lambda (file) (vc-file-setprop file 'vc-state 'needs-merge)) | 295 | (mapc (lambda (file) (vc-file-setprop file 'vc-state 'needs-merge)) |
| 296 | files) | 296 | files) |
| 297 | (error (substitute-command-keys | 297 | (error (substitute-command-keys |
| 298 | (concat "Up-to-date check failed: " | 298 | (concat "Up-to-date check failed: " |