1 files changed, 2 insertions, 2 deletions

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