* 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 b5ff85c47aeae6fa66069f04ac9e0a575d71b7f8..b79852362b95bd730a08b931892a7932ecd076b3 100644 (file)
--- 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 7e830d7d16835ae99ad3180186484ece11ff5ee4..5b134831d08efdabcd28a7eee0c09f40513ef031 100644 (file)
--- 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 2b0d2fa1a80a7d42bd093edd58ee0a23d8380054..e65cd5b85a81283329e1b00ff72e3766ee2f705d 100644 (file)
--- 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))))))