# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765448 0
# Node ID c9d3d80460e98af4f390567c16d63e70d449b0c3
# Parent  527b0ddd39b90019e2ec87e60eb5e1426bc9823f
(authors): Use `mapc' rather than `mapcar'.

diff -r 527b0ddd39b9 -r c9d3d80460e9 lisp/emacs-lisp/authors.el
--- a/lisp/emacs-lisp/authors.el	Wed Sep 26 00:10:17 2007 +0000
+++ b/lisp/emacs-lisp/authors.el	Wed Sep 26 00:10:48 2007 +0000
@@ -666,8 +666,8 @@
 	  (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))))