diff lisp/vc-hooks.el @ 82849:ea5864b698fd

* vc-hooks.el (vc-registered): Use mapc instead of mapcar. (vc-delete-automatic-version-backups): Likewise. * vc.el (vc-dired-buffers-for-dir): Likewise.

--- 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)))