41 |
|
|
42 |
(defconst authors-aliases |
(defconst authors-aliases |
43 |
'( |
'( |
|
("Andrew Innes" "Andrw Innes") |
|
44 |
("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." |
("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." |
45 |
"Barry A. Warsaw, ITB" "Barry Warsaw") |
"Barry A. Warsaw, ITB" "Barry Warsaw") |
46 |
("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson") |
("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson") |
56 |
("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" |
("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" |
57 |
"Reingold Edward M") |
"Reingold Edward M") |
58 |
("Eli Zaretskii" "eliz") |
("Eli Zaretskii" "eliz") |
59 |
; ("Emilio C. Lopes" "Emilio Lopes") |
("Emilio C. Lopes" "Emilio Lopes") |
60 |
("Era Eriksson" "Era@Iki.Fi") |
("Era Eriksson" "Era@Iki.Fi") |
61 |
("Eric M. Ludlam" "Eric Ludlam") |
("Eric M. Ludlam" "Eric Ludlam") |
62 |
("Eric S. Raymond" "Eric Raymond") |
("Eric S. Raymond" "Eric Raymond") |
78 |
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") |
("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") |
79 |
("J,Ai(Br,At(Bme Marant" "J,bi(Br,bt(Bme Marant" "Jerome Marant") |
("J,Ai(Br,At(Bme Marant" "J,bi(Br,bt(Bme Marant" "Jerome Marant") |
80 |
("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") |
("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") |
81 |
|
("John W. Eaton" "John Eaton") |
82 |
("Jonathan I. Kamens" "Jonathan Kamens") |
("Jonathan I. Kamens" "Jonathan Kamens") |
83 |
("Joseph Arceneaux" "Joe Arceneaux") |
("Joseph Arceneaux" "Joe Arceneaux") |
84 |
|
("Juan Le,As(Bn Lahoz Garc,Am(Ba" "Juan-Leon Lahoz Garcia") |
85 |
("K. Shane Hartman" "Shane Hartman") |
("K. Shane Hartman" "Shane Hartman") |
86 |
("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,b_(Bjohann" |
("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,b_(Bjohann" |
87 |
"Kai.Grossjohann@Cs.Uni-Dortmund.De" |
"Kai.Grossjohann@Cs.Uni-Dortmund.De" |
90 |
("Kazushi Marukawa" "Kazushi") |
("Kazushi Marukawa" "Kazushi") |
91 |
("Ken Manheimer" "Kenneth Manheimer") |
("Ken Manheimer" "Kenneth Manheimer") |
92 |
("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") |
("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") |
93 |
|
("Kevin Greiner" "Kevin J. Greiner") |
94 |
("Kim F. Storm" "Kim Storm") |
("Kim F. Storm" "Kim Storm") |
95 |
("Kyle Jones" "Kyle E. Jones") |
("Kyle Jones" "Kyle E. Jones") |
96 |
("Marcus G. Daniels" "Marcus Daniels") |
("Marcus G. Daniels" "Marcus Daniels") |
97 |
("Mark D. Baushke" "Mark D Baushke") |
("Mark D. Baushke" "Mark D Baushke") |
98 |
("Martin Lorentzon" "Martin Lorentzson") |
("Martin Lorentzon" "Martin Lorentzson") |
99 |
("Matt Swift" "Matthew Swift") |
("Matt Swift" "Matthew Swift") |
100 |
|
("Michael R. Mauger" "Michael Mauger") |
101 |
("Michael D. Ernst" "Michael Ernst") |
("Michael D. Ernst" "Michael Ernst") |
102 |
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") |
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") |
103 |
|
("Mikio Nakajima" "Nakajima Mikio") |
104 |
("Paul Eggert" "eggert") |
("Paul Eggert" "eggert") |
105 |
("Paul Reilly" "(pmr@legacy.pajato.com)") |
("Paul Reilly" "(pmr@legacy.pajato.com)") |
106 |
("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz") |
("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz") |
118 |
("Stephen A. Wood" "(saw@cebaf.gov)") |
("Stephen A. Wood" "(saw@cebaf.gov)") |
119 |
("Steven L. Baur" "SL Baur" "Steven L Baur") |
("Steven L. Baur" "SL Baur" "Steven L Baur") |
120 |
("Takaaki Ota" "Tak Ota") |
("Takaaki Ota" "Tak Ota") |
121 |
|
("Takahashi Naoto" "Naoto Takahashi") |
122 |
("Teodor Zlatanov" "Ted Zlatanov") |
("Teodor Zlatanov" "Ted Zlatanov") |
123 |
("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson") |
("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson") |
124 |
("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson") |
("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson") |
157 |
Changes to files matching one of the regexps in this list are not |
Changes to files matching one of the regexps in this list are not |
158 |
listed.") |
listed.") |
159 |
|
|
160 |
|
(defconst authors-ignored-files |
161 |
|
'("external-lisp" |
162 |
|
"lock" "share-lib" "local-lisp" |
163 |
|
"noleim-Makefile.in" |
164 |
|
"NEWS" "PROBLEMS" "FAQ") |
165 |
|
"List of files and directories to ignore. |
166 |
|
Changes to files in this list are not listed.") |
167 |
|
|
168 |
(defconst authors-fixed-entries |
(defconst authors-fixed-entries |
169 |
'(("Richard M. Stallman" :wrote "[The original GNU emacs and numerous files]") |
'(("Richard M. Stallman" :wrote "[The original GNU emacs and numerous files]") |
196 |
"mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c" |
"mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c" |
197 |
"ymakefile" "linux.h") |
"ymakefile" "linux.h") |
198 |
("Kyle E. Jones" :wrote "mldrag.el") |
("Kyle E. Jones" :wrote "mldrag.el") |
199 |
("Kenry Kautz" :wrote "bib-mode.el") |
("Henry Kautz" :wrote "bib-mode.el") |
200 |
("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h" |
("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h" |
201 |
"uaf.h") |
"uaf.h") |
202 |
("Sam Kendall" :changed "etags.c" "etags.el") |
("Sam Kendall" :changed "etags.c" "etags.el") |
272 |
|
|
273 |
(defconst authors-valid-file-names |
(defconst authors-valid-file-names |
274 |
'("aclocal.m4" |
'("aclocal.m4" |
275 |
"makedist.bat") |
"makedist.bat" |
276 |
|
"make-delta") |
277 |
"File names which are valid, but no longer exists (or cannot be |
"File names which are valid, but no longer exists (or cannot be |
278 |
found) in the repository.") |
found) in the repository.") |
279 |
|
|
287 |
("s/windowsnt.h" . "s/ms-w32.h") |
("s/windowsnt.h" . "s/ms-w32.h") |
288 |
("config.emacs" . "configure") |
("config.emacs" . "configure") |
289 |
("GETTING.GNU.SOFTWARE" . "FTP") |
("GETTING.GNU.SOFTWARE" . "FTP") |
290 |
|
("leim-Makefile" . "leim/Makefile") |
291 |
|
("leim-Makefile.in" . "leim/Makefile.in") |
292 |
|
("INSTALL-CVS" . "INSTALL.CVS") |
293 |
) |
) |
294 |
"Alist of files which have been renamed during their lifetime. |
"Alist of files which have been renamed during their lifetime. |
295 |
Elements are (OLDNAME . NEWNAME).") |
Elements are (OLDNAME . NEWNAME).") |
388 |
ACTION is a keyword symbol describing what he did. Record file, |
ACTION is a keyword symbol describing what he did. Record file, |
389 |
author and what he did in hash table TABLE. See the description of |
author and what he did in hash table TABLE. See the description of |
390 |
`authors-scan-change-log' for the structure of the hash table." |
`authors-scan-change-log' for the structure of the hash table." |
391 |
(unless (or (authors-obsolete-file-p file) |
(unless (or (member file authors-ignored-files) |
392 |
|
(authors-obsolete-file-p file) |
393 |
(equal author "")) |
(equal author "")) |
394 |
(let* ((value (gethash author table)) |
(let* ((value (gethash author table)) |
395 |
(entry (assoc file value)) |
(entry (assoc file value)) |