aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/authors.el27
1 files changed, 22 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 5ab42c06e8e..8eb177dd9ca 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -41,7 +41,6 @@ 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")
@@ -57,7 +56,7 @@ files.")
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")
@@ -79,8 +78,10 @@ files.")
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"
@@ -89,14 +90,17 @@ files.")
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")
@@ -114,6 +118,7 @@ files.")
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")
@@ -152,6 +157,13 @@ If REALNAME is nil, ignore that author.")
152Changes to files matching one of the regexps in this list are not 157Changes to files matching one of the regexps in this list are not
153listed.") 158listed.")
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.
166Changes 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]")
@@ -184,7 +196,7 @@ listed.")
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")
@@ -260,7 +272,8 @@ listed.")
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
265found) in the repository.") 278found) in the repository.")
266 279
@@ -274,6 +287,9 @@ found) in the repository.")
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.
279Elements are (OLDNAME . NEWNAME).") 295Elements are (OLDNAME . NEWNAME).")
@@ -372,7 +388,8 @@ from `authors-obsolete-files-regexps'."
372ACTION is a keyword symbol describing what he did. Record file, 388ACTION is a keyword symbol describing what he did. Record file,
373author and what he did in hash table TABLE. See the description of 389author 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))