comparison lisp/emacs-lisp/authors.el @ 90140:02f1dbc4a199

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-35 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 228-240) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 53-58) - Merge from emacs--cvs-trunk--0 - Update from CVS - Collapse feature addition/removal within single ChangeLog entry
author Miles Bader <miles@gnu.org>
date Sat, 09 Apr 2005 02:16:29 +0000
parents cce1c0ee76ee 48fd09671b41
children f042e7c0fe20
comparison
equal deleted inserted replaced
90139:e0d294b9b23e 90140:02f1dbc4a199
39 frequently modified files are printed and a count of the additional 39 frequently modified files are printed and a count of the additional
40 files.") 40 files.")
41 41
42 (defconst authors-aliases 42 (defconst authors-aliases
43 '( 43 '(
44 ("Andrew Innes" "Andrw Innes")
45 ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." 44 ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc."
46 "Barry A. Warsaw, ITB" "Barry Warsaw") 45 "Barry A. Warsaw, ITB" "Barry Warsaw")
47 ("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson") 46 ("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson")
48 ("Brian Fox" "Brian J. Fox") 47 ("Brian Fox" "Brian J. Fox")
49 ("Christoph Wedler" "Christoph.Wedler@sap.com") 48 ("Christoph Wedler" "Christoph.Wedler@sap.com")
55 ("David M. Smith" "David Smith" "David M Smith") 54 ("David M. Smith" "David Smith" "David M Smith")
56 ("Ed L. Cashin" "Ed L Cashin") 55 ("Ed L. Cashin" "Ed L Cashin")
57 ("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" 56 ("Edward M. Reingold" "Ed Reingold" "Edward M Reingold"
58 "Reingold Edward M") 57 "Reingold Edward M")
59 ("Eli Zaretskii" "eliz") 58 ("Eli Zaretskii" "eliz")
60 ; ("Emilio C. Lopes" "Emilio Lopes") 59 ("Emilio C. Lopes" "Emilio Lopes")
61 ("Era Eriksson" "Era@Iki.Fi") 60 ("Era Eriksson" "Era@Iki.Fi")
62 ("Eric M. Ludlam" "Eric Ludlam") 61 ("Eric M. Ludlam" "Eric Ludlam")
63 ("Eric S. Raymond" "Eric Raymond") 62 ("Eric S. Raymond" "Eric Raymond")
64 ("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)") 63 ("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)")
65 ("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright") 64 ("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright")
77 ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn") 76 ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn")
78 ("Jan Dj,Ad(Brv" "Jan D." "Jan Djarv") 77 ("Jan Dj,Ad(Brv" "Jan D." "Jan Djarv")
79 ("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") 78 ("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams")
80 ("J,Ai(Br,At(Bme Marant" "J,bi(Br,bt(Bme Marant" "Jerome Marant") 79 ("J,Ai(Br,At(Bme Marant" "J,bi(Br,bt(Bme Marant" "Jerome Marant")
81 ("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") 80 ("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen")
81 ("John W. Eaton" "John Eaton")
82 ("Jonathan I. Kamens" "Jonathan Kamens") 82 ("Jonathan I. Kamens" "Jonathan Kamens")
83 ("Joseph Arceneaux" "Joe Arceneaux") 83 ("Joseph Arceneaux" "Joe Arceneaux")
84 ("Juan Le,As(Bn Lahoz Garc,Am(Ba" "Juan-Leon Lahoz Garcia")
84 ("K. Shane Hartman" "Shane Hartman") 85 ("K. Shane Hartman" "Shane Hartman")
85 ("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,b_(Bjohann" 86 ("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,b_(Bjohann"
86 "Kai.Grossjohann@Cs.Uni-Dortmund.De" 87 "Kai.Grossjohann@Cs.Uni-Dortmund.De"
87 "Kai.Grossjohann@Gmx.Net") 88 "Kai.Grossjohann@Gmx.Net")
88 ("Karl Berry" "K. Berry") 89 ("Karl Berry" "K. Berry")
89 ("Kazushi Marukawa" "Kazushi") 90 ("Kazushi Marukawa" "Kazushi")
90 ("Ken Manheimer" "Kenneth Manheimer") 91 ("Ken Manheimer" "Kenneth Manheimer")
91 ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") 92 ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA")
93 ("Kevin Greiner" "Kevin J. Greiner")
92 ("Kim F. Storm" "Kim Storm") 94 ("Kim F. Storm" "Kim Storm")
93 ("Kyle Jones" "Kyle E. Jones") 95 ("Kyle Jones" "Kyle E. Jones")
94 ("Marcus G. Daniels" "Marcus Daniels") 96 ("Marcus G. Daniels" "Marcus Daniels")
95 ("Mark D. Baushke" "Mark D Baushke") 97 ("Mark D. Baushke" "Mark D Baushke")
96 ("Martin Lorentzon" "Martin Lorentzson") 98 ("Martin Lorentzon" "Martin Lorentzson")
97 ("Matt Swift" "Matthew Swift") 99 ("Matt Swift" "Matthew Swift")
100 ("Michael R. Mauger" "Michael Mauger")
98 ("Michael D. Ernst" "Michael Ernst") 101 ("Michael D. Ernst" "Michael Ernst")
99 ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") 102 ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg")
103 ("Mikio Nakajima" "Nakajima Mikio")
100 ("Paul Eggert" "eggert") 104 ("Paul Eggert" "eggert")
101 ("Paul Reilly" "(pmr@legacy.pajato.com)") 105 ("Paul Reilly" "(pmr@legacy.pajato.com)")
102 ("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz") 106 ("Pavel Jan,Bm(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz")
103 ("Per Abrahamsen" "Per Abhiddenware") 107 ("Per Abrahamsen" "Per Abhiddenware")
104 ("Peter S. Galbraith" "Peter Galbraith") 108 ("Peter S. Galbraith" "Peter Galbraith")
112 ("Sam Steingold" "Sam Shteingold") 116 ("Sam Steingold" "Sam Shteingold")
113 ("Stefan Monnier" "Stefan") 117 ("Stefan Monnier" "Stefan")
114 ("Stephen A. Wood" "(saw@cebaf.gov)") 118 ("Stephen A. Wood" "(saw@cebaf.gov)")
115 ("Steven L. Baur" "SL Baur" "Steven L Baur") 119 ("Steven L. Baur" "SL Baur" "Steven L Baur")
116 ("Takaaki Ota" "Tak Ota") 120 ("Takaaki Ota" "Tak Ota")
121 ("Takahashi Naoto" "Naoto Takahashi")
117 ("Teodor Zlatanov" "Ted Zlatanov") 122 ("Teodor Zlatanov" "Ted Zlatanov")
118 ("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson") 123 ("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson")
119 ("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson") 124 ("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson")
120 ("Toru Tomabechi" "Toru Tomabechi,") 125 ("Toru Tomabechi" "Toru Tomabechi,")
121 ("Vincent Del Vecchio" "Vince Del Vecchio") 126 ("Vincent Del Vecchio" "Vince Del Vecchio")
150 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") 155 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
151 "List of regexps matching obsolete files. 156 "List of regexps matching obsolete files.
152 Changes to files matching one of the regexps in this list are not 157 Changes to files matching one of the regexps in this list are not
153 listed.") 158 listed.")
154 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.")
155 167
156 (defconst authors-fixed-entries 168 (defconst authors-fixed-entries
157 '(("Richard M. Stallman" :wrote "[The original GNU emacs and numerous files]") 169 '(("Richard M. Stallman" :wrote "[The original GNU emacs and numerous files]")
158 ("Joseph Arceneaux" :wrote "xrdb.c") 170 ("Joseph Arceneaux" :wrote "xrdb.c")
159 ("Blitz Product Development Corporation" :wrote "ispell.el") 171 ("Blitz Product Development Corporation" :wrote "ispell.el")
182 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h") 194 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h")
183 ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h" 195 ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h"
184 "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c" 196 "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c"
185 "ymakefile" "linux.h") 197 "ymakefile" "linux.h")
186 ("Kyle E. Jones" :wrote "mldrag.el") 198 ("Kyle E. Jones" :wrote "mldrag.el")
187 ("Kenry Kautz" :wrote "bib-mode.el") 199 ("Henry Kautz" :wrote "bib-mode.el")
188 ("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h" 200 ("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h"
189 "uaf.h") 201 "uaf.h")
190 ("Sam Kendall" :changed "etags.c" "etags.el") 202 ("Sam Kendall" :changed "etags.c" "etags.el")
191 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c") 203 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c")
192 ("Larry Kolodney" :wrote "cvtmail.c") 204 ("Larry Kolodney" :wrote "cvtmail.c")
258 "Actions taken from the original, manually (un)maintained AUTHORS file.") 270 "Actions taken from the original, manually (un)maintained AUTHORS file.")
259 271
260 272
261 (defconst authors-valid-file-names 273 (defconst authors-valid-file-names
262 '("aclocal.m4" 274 '("aclocal.m4"
263 "makedist.bat") 275 "makedist.bat"
276 "make-delta")
264 "File names which are valid, but no longer exists (or cannot be 277 "File names which are valid, but no longer exists (or cannot be
265 found) in the repository.") 278 found) in the repository.")
266 279
267 (defconst authors-renamed-files-alist 280 (defconst authors-renamed-files-alist
268 '(("nt.c" . "w32.c") ("nt.h" . "w32.h") 281 '(("nt.c" . "w32.c") ("nt.h" . "w32.h")
272 ("w32console.c" . "w32term.c") 285 ("w32console.c" . "w32term.c")
273 ("unexnt.c" . "unexw32.c") 286 ("unexnt.c" . "unexw32.c")
274 ("s/windowsnt.h" . "s/ms-w32.h") 287 ("s/windowsnt.h" . "s/ms-w32.h")
275 ("config.emacs" . "configure") 288 ("config.emacs" . "configure")
276 ("GETTING.GNU.SOFTWARE" . "FTP") 289 ("GETTING.GNU.SOFTWARE" . "FTP")
290 ("leim-Makefile" . "leim/Makefile")
291 ("leim-Makefile.in" . "leim/Makefile.in")
292 ("INSTALL-CVS" . "INSTALL.CVS")
277 ) 293 )
278 "Alist of files which have been renamed during their lifetime. 294 "Alist of files which have been renamed during their lifetime.
279 Elements are (OLDNAME . NEWNAME).") 295 Elements are (OLDNAME . NEWNAME).")
280 296
281 (defconst authors-renamed-files-regexps 297 (defconst authors-renamed-files-regexps
370 (defun authors-add (author file action table) 386 (defun authors-add (author file action table)
371 "Record that AUTHOR worked on FILE. 387 "Record that AUTHOR worked on FILE.
372 ACTION is a keyword symbol describing what he did. Record file, 388 ACTION is a keyword symbol describing what he did. Record file,
373 author and what he did in hash table TABLE. See the description of 389 author and what he did in hash table TABLE. See the description of
374 `authors-scan-change-log' for the structure of the hash table." 390 `authors-scan-change-log' for the structure of the hash table."
375 (unless (or (authors-obsolete-file-p file) 391 (unless (or (member file authors-ignored-files)
392 (authors-obsolete-file-p file)
376 (equal author "")) 393 (equal author ""))
377 (let* ((value (gethash author table)) 394 (let* ((value (gethash author table))
378 (entry (assoc file value)) 395 (entry (assoc file value))
379 slot) 396 slot)
380 (if (null entry) 397 (if (null entry)