* vc-hooks.el (vc-registered): Use mapc instead of mapcar.

(vc-delete-automatic-version-backups): Likewise.

* vc.el (vc-dired-buffers-for-dir): Likewise.

3 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5ff85c47ae..b79852362b9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2007-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * vc-hooks.el (vc-registered): Use mapc instead of mapcar.
+        (vc-delete-automatic-version-backups): Likewise.
+
+        * vc.el (vc-dired-buffers-for-dir): Likewise.
+
 2007-08-25  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 7e830d7d168..5b134831d08 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -371,7 +371,7 @@ backend is tried first."
       ;; Try vc-BACKEND-registered for each handled BACKEND.
       (catch 'found
         (let ((backend (vc-file-getprop file 'vc-backend)))
-          (mapcar
+          (mapc
            (lambda (b)
              (and (vc-call-backend b 'registered file)
                   (vc-file-setprop file 'vc-backend b)
@@ -661,7 +661,7 @@ a regexp for matching all such backup files, regardless of the version."
 (defun vc-delete-automatic-version-backups (file)
   "Delete all existing automatic version backups for FILE."
   (condition-case nil
-      (mapcar
+      (mapc
        'delete-file
        (directory-files (or (file-name-directory file) default-directory) t
                         (vc-version-backup-file-name file nil nil t)))
diff --git a/lisp/vc.el b/lisp/vc.el
index 2b0d2fa1a80..e65cd5b85a8 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2382,7 +2382,7 @@ Called by dired after any portion of a vc-dired buffer has been read in."
   (let (result)
     ;; Check whether dired is loaded.
     (when (fboundp 'dired-buffers-for-dir)
-      (mapcar (lambda (buffer)
+      (mapc (lambda (buffer)
                 (with-current-buffer buffer
                   (if vc-dired-mode
                       (setq result (append result (list buffer))))))