Commit d0f483e8 authored by Kim F. Storm's avatar Kim F. Storm

(authors-aliases): Add more aliases.

(authors-fixed-entries): Fix typo.
(authors-canonical-author-name): Compact multiple spaces.
Ignore trivial names (e.g. only first name).
parent 4e14f66c
......@@ -52,18 +52,23 @@ files.")
("David Gillespie" "Dave Gillespie")
("David K,Ae(Bgedal" "David K..edal")
("David M. Koppelman" "David M. Koppelman, Koppel@Ee.Lsu.Edu")
("David M. Smith" "David Smith")
("David M. Smith" "David Smith" "David M Smith")
("Ed L. Cashin" "Ed L Cashin")
("Edward M. Reingold" "Ed Reingold" "Edward M Reingold"
"Reingold Edward M")
("Eli Zaretskii" "eliz")
; ("Emilio C. Lopes" "Emilio Lopes")
("Era Eriksson" "Era@Iki.Fi")
("Eric M. Ludlam" "Eric Ludlam")
("Eric S. Raymond" "Eric Raymond")
("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)")
("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright")
("Fran,Ag(Bois Pinard" "Francois Pinard")
("Francesco Potort,Al(B" "Francesco Potorti" "Francesco Potorti`")
("Frederic Pierresteguy" "Fred Pierresteguy")
("Geoff Voelker" "voelker")
("Hallvard B. Furuseth" "Hallvard B Furuseth")
("Hrvoje Nik,B9(Bi,Bf(B" "Hrvoje Niksic")
(nil "(afs@hplb.hpl.hp.com)")
(nil "<Use-Author-Address-Header@\\[127.1\\]>")
(nil "Code Extracted")
......@@ -71,25 +76,33 @@ files.")
(nil "ISO-2022-JP")
("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn")
("Jan Dj,Ad(Brv" "Jan D." "Jan Djarv")
("Jay K. Adams" "jka@ece.cmu.edu")
("Jay R. Adams" "Jay Adams")
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams")
("J,Ai(Br,At(Bme Marant" "J,bi(Br,bt(Bme Marant" "Jerome Marant")
("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen")
("Jonathan I. Kamens" "Jonathan Kamens")
("Joseph Arceneaux" "Joe Arceneaux")
("K. Shane Hartman" "Shane Hartman")
("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,b_(Bjohann"
"Kai.Grossjohann@Cs.Uni-Dortmund.De")
"Kai.Grossjohann@Cs.Uni-Dortmund.De"
"Kai.Grossjohann@Gmx.Net")
("Karl Berry" "K. Berry")
("Kazushi Marukawa" "Kazushi")
("Ken Manheimer" "Kenneth Manheimer")
("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA")
("Kim F. Storm" "Kim Storm")
("Kyle Jones" "Kyle E. Jones")
("Marcus G. Daniels" "Marcus Daniels")
("Mark D. Baushke" "Mark D Baushke")
("Martin Lorentzon" "Martin Lorentzson")
("Matt Swift" "Matthew Swift")
("Michael D. Ernst" "Michael Ernst")
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg")
("Paul Eggert" "eggert")
("Paul Reilly" "(pmr@legacy.pajato.com)")
("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml.")
("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz")
("Per Abrahamsen" "Per Abhiddenware")
("Peter S. Galbraith" "Peter Galbraith")
("Peter Runestig" "Peter 'luna' Runestig")
("Peter S. Galbraith" "Peter S Galbraith")
("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
"rms" "rms@gnu.org")
......@@ -97,9 +110,11 @@ files.")
("Roland B. Roberts" "Roland B Roberts" "Roland Roberts")
("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
("Sam Steingold" "Sam Shteingold")
("Stefan Monnier" "Stefan")
("Stephen A. Wood" "(saw@cebaf.gov)")
("Steven L. Baur" "SL Baur" "Steven L Baur")
("Takaaki Ota" "Tak Ota")
("Teodor Zlatanov" "Ted Zlatanov")
("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson")
("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson")
("Toru Tomabechi" "Toru Tomabechi,")
......@@ -207,7 +222,7 @@ listed.")
("Frederic Pierresteguy" :wrote "widget.c")
("Michael D. Prange" :changed "tex-mode.el")
("Paul Reilly" :wrote "gux5-4r2.h" "dgux5-4r3.h")
("Roland B Roberts" :changed "files.el" "sort.el" "vmsproc.el"
("Roland B. Roberts" :changed "files.el" "sort.el" "vmsproc.el"
"buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h"
"vmspaths.h" "build.com" "compile.com" "kepteditor.com" "precomp.com"
:wrote "logout.com" "mailemacs.com")
......@@ -405,11 +420,13 @@ words in the author's name."
(setq regexps (cdr regexps))))))
(when author
(setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author))
(setq author (replace-regexp-in-string "^[ \t]+" "" author))
(setq author (replace-regexp-in-string "\`[ \t]+" "" author))
(setq author (replace-regexp-in-string "[ \t]+$" "" author))
(setq author (replace-regexp-in-string "[ \t]+" " " author))
(unless (string-match "[-, \t]" author)
(setq author ""))
(capitalize author)))
(defun authors-scan-change-log (log-file table)
"Scan change log LOG-FILE for author information.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment