diff options
| author | Juanma Barranquero | 2007-09-26 00:10:48 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:10:48 +0000 |
| commit | 0c8b414f058ff08d1941472cb69c9b5c2e44fa0b (patch) | |
| tree | 10a13825cc91e4e80037ad12b43e63635f1ceb56 | |
| parent | b67b0f7f58838e27627f1c4928eda9ed2567e0a9 (diff) | |
| download | emacs-0c8b414f058ff08d1941472cb69c9b5c2e44fa0b.tar.gz emacs-0c8b414f058ff08d1941472cb69c9b5c2e44fa0b.zip | |
(authors): Use `mapc' rather than `mapcar'.
| -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") | |||
| 666 | (erase-buffer) | 666 | (erase-buffer) |
| 667 | (set-buffer-file-coding-system authors-coding-system) | 667 | (set-buffer-file-coding-system authors-coding-system) |
| 668 | (insert "Unrecognized file entries found:\n\n") | 668 | (insert "Unrecognized file entries found:\n\n") |
| 669 | (mapcar (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n"))) | 669 | (mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n"))) |
| 670 | (sort authors-invalid-file-names 'string-lessp)) | 670 | (sort authors-invalid-file-names 'string-lessp)) |
| 671 | (goto-char (point-min)) | 671 | (goto-char (point-min)) |
| 672 | (compilation-mode) | 672 | (compilation-mode) |
| 673 | (message "Errors were found. See buffer %s" (buffer-name)))) | 673 | (message "Errors were found. See buffer %s" (buffer-name)))) |