Mercurial > emacs
changeset 84894:c9d3d80460e9
(authors): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:10:48 +0000 |
| parents | 527b0ddd39b9 |
| children | 84fe291aadf6 |
| files | lisp/emacs-lisp/authors.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))))