Mercurial > emacs
comparison lisp/emacs-lisp/authors.el @ 84894:c9d3d80460e9
(authors): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:10:48 +0000 |
| parents | 935157c0b596 |
| children | b9d2d3d3b819 |
comparison
equal
deleted
inserted
replaced
| 84893:527b0ddd39b9 | 84894:c9d3d80460e9 |
|---|---|
| 664 (when authors-invalid-file-names | 664 (when authors-invalid-file-names |
| 665 (with-current-buffer (get-buffer-create "*Authors Errors*") | 665 (with-current-buffer (get-buffer-create "*Authors Errors*") |
| 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)))) |
| 674 (pop-to-buffer buffer-name)))) | 674 (pop-to-buffer buffer-name)))) |
| 675 | 675 |