From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:10:48 +0000 (+0000)
Subject: (authors): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c8b414f058ff08d1941472cb69c9b5c2e44fa0b;p=emacs.git

(authors): Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 0c08e74d70b..1afcd01d290 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -666,8 +666,8 @@ list of their contributions.\n")
 	  (erase-buffer)
 	  (set-buffer-file-coding-system authors-coding-system)
 	  (insert "Unrecognized file entries found:\n\n")
-	  (mapcar (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n")))
-		  (sort authors-invalid-file-names 'string-lessp))
+	  (mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n")))
+		(sort authors-invalid-file-names 'string-lessp))
 	  (goto-char (point-min))
 	  (compilation-mode)
 	  (message "Errors were found.  See buffer %s" (buffer-name))))