# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1188088343 0
# Node ID ea5864b698fd975953832131241b2d251dedc927
# Parent  2e4d7d4e0f8861af332e807e3dcae18ed3dc1397
* vc-hooks.el (vc-registered): Use mapc instead of mapcar.
(vc-delete-automatic-version-backups): Likewise.

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

diff -r 2e4d7d4e0f88 -r ea5864b698fd lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 25 23:50:16 2007 +0000
+++ b/lisp/ChangeLog	Sun Aug 26 00:32:23 2007 +0000
@@ -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 -r 2e4d7d4e0f88 -r ea5864b698fd lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Sat Aug 25 23:50:16 2007 +0000
+++ b/lisp/vc-hooks.el	Sun Aug 26 00:32:23 2007 +0000
@@ -371,7 +371,7 @@
       ;; 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 @@
 (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 -r 2e4d7d4e0f88 -r ea5864b698fd lisp/vc.el
--- a/lisp/vc.el	Sat Aug 25 23:50:16 2007 +0000
+++ b/lisp/vc.el	Sun Aug 26 00:32:23 2007 +0000
@@ -2382,7 +2382,7 @@
   (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))))))