* 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 b5ff85c47a..b79852362b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2007-08-26  Dan Nicolaescu  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* progmodes/cperl-mode.el (cperl-indent-level): Autoload the
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 7e830d7d16..5b134831d0 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 2b0d2fa1a8..e65cd5b85a 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))))))