From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 26 Aug 2007 00:32:23 +0000 (+0000)
Subject: * vc-hooks.el (vc-registered): Use mapc instead of mapcar.
X-Git-Tag: emacs-pretest-23.0.90~11307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a549ce70542360af098cc94d191cc01879bf3a8e;p=emacs.git

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