diff options
| author | Glenn Morris | 2017-06-02 20:29:34 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-06-02 20:29:34 -0400 |
| commit | 606bfcf00ed39f4f05045dbbdb3a6f12ec4baf03 (patch) | |
| tree | f705586691ebd2e13bdc8d30022d397c16457f52 /admin | |
| parent | 182912c7a927c8c659662750017148e129571fc6 (diff) | |
| download | emacs-606bfcf00ed39f4f05045dbbdb3a6f12ec4baf03.tar.gz emacs-606bfcf00ed39f4f05045dbbdb3a6f12ec4baf03.zip | |
* admin/authors.el (authors-aliases): Addition.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/authors.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/admin/authors.el b/admin/authors.el index a361bf9ee2f..4285e65548e 100644 --- a/admin/authors.el +++ b/admin/authors.el | |||
| @@ -154,6 +154,7 @@ files.") | |||
| 154 | ("Roland B. Roberts" "Roland B Roberts" "Roland Roberts") | 154 | ("Roland B. Roberts" "Roland B Roberts" "Roland Roberts") |
| 155 | ("Ron Schnell" "Ronnie Schnell") | 155 | ("Ron Schnell" "Ronnie Schnell") |
| 156 | ("Rui-Tao Dong" "Rui-Tao Dong ~{6-HpLN~}") | 156 | ("Rui-Tao Dong" "Rui-Tao Dong ~{6-HpLN~}") |
| 157 | ("Ryan Thompson" "Ryan .*rct@thompsonclan") | ||
| 157 | ("Sacha Chua" "Sandra Jean Chua") | 158 | ("Sacha Chua" "Sandra Jean Chua") |
| 158 | ("Sam Steingold" "Sam Shteingold") | 159 | ("Sam Steingold" "Sam Shteingold") |
| 159 | ("Satyaki Das" "Indexed search by Satyaki Das") | 160 | ("Satyaki Das" "Indexed search by Satyaki Das") |
| @@ -1240,6 +1241,7 @@ it is found in `authors-fixed-case'." | |||
| 1240 | (setq author (replace-regexp-in-string "\\`[ \t]+" "" author)) | 1241 | (setq author (replace-regexp-in-string "\\`[ \t]+" "" author)) |
| 1241 | (setq author (replace-regexp-in-string "[ \t]+$" "" author)) | 1242 | (setq author (replace-regexp-in-string "[ \t]+$" "" author)) |
| 1242 | (setq author (replace-regexp-in-string "[ \t]+" " " author)) | 1243 | (setq author (replace-regexp-in-string "[ \t]+" " " author)) |
| 1244 | ;; NB this ignores the first name only case. | ||
| 1243 | (unless (string-match "[-, \t]" author) | 1245 | (unless (string-match "[-, \t]" author) |
| 1244 | (setq author "")) | 1246 | (setq author "")) |
| 1245 | (or (car (member author authors-fixed-case)) | 1247 | (or (car (member author authors-fixed-case)) |