diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/authors.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/admin/authors.el b/admin/authors.el index 16e62610bad..045527644a3 100644 --- a/admin/authors.el +++ b/admin/authors.el | |||
| @@ -1353,9 +1353,10 @@ it is found in `authors-fixed-case'." | |||
| 1353 | (setq author (replace-regexp-in-string "[ \t]+" " " author)) | 1353 | (setq author (replace-regexp-in-string "[ \t]+" " " author)) |
| 1354 | ;; NB this ignores the first name only case. | 1354 | ;; NB this ignores the first name only case. |
| 1355 | (unless (string-match "[-, \t]" author) | 1355 | (unless (string-match "[-, \t]" author) |
| 1356 | (push (format-message "%s:%d: ignored `%s'" | 1356 | (or (authors-lax-changelog-p file) |
| 1357 | file (1+ (count-lines (point-min) pos)) author) | 1357 | (push (format-message "%s:%d: ignored `%s'" |
| 1358 | authors-ignored-names) | 1358 | file (1+ (count-lines (point-min) pos)) author) |
| 1359 | authors-ignored-names)) | ||
| 1359 | (setq author "")) | 1360 | (setq author "")) |
| 1360 | (or (car (member author authors-fixed-case)) | 1361 | (or (car (member author authors-fixed-case)) |
| 1361 | (capitalize author)))) | 1362 | (capitalize author)))) |