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

diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 0c08e74d70b437a95854b97e41093fb97ed21d8f..1afcd01d290d3fa4835edc4921b86804b6031e50 100644 (file)
--- 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))))