procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(authors-aliases): Add more aliases.

Browse source 
(authors-fixed-entries): Fix typo.
(authors-canonical-author-name): Compact multiple spaces.
Ignore trivial names (e.g. only first name).
This commit is contained in:
Kim F. Storm 2004-09-07 21:16:48 +00:00
parent 4e14f66cdf
commit d0f483e8e1
1 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/emacs-lisp/authors.el
View file

@ -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.