diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:10:48 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:10:48 +0000 |
| commit | 0c8b414f058ff08d1941472cb69c9b5c2e44fa0b (patch) | |
| tree | 10a13825cc91e4e80037ad12b43e63635f1ceb56 /lisp/emacs-lisp | |
| parent | b67b0f7f58838e27627f1c4928eda9ed2567e0a9 (diff) | |
| download | emacs-0c8b414f058ff08d1941472cb69c9b5c2e44fa0b.tar.gz emacs-0c8b414f058ff08d1941472cb69c9b5c2e44fa0b.tar.bz2 emacs-0c8b414f058ff08d1941472cb69c9b5c2e44fa0b.zip | |
(authors): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 4 |
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)))) |