Mercurial > emacs
annotate lisp/emacs-lisp/authors.el @ 97774:cf6404e22e31
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Wed, 27 Aug 2008 20:21:31 +0000 |
parents | 90a2847062be |
children | a11d17643bb1 |
rev | line source |
---|---|
49469 | 1 ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*- |
30790 | 2 |
74466 | 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, |
79704 | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
30790 | 5 |
33752
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
6 ;; Author: Gerd Moellmann <gerd@gnu.org> |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
7 ;; Maintainer: Kim F. Storm <storm@cua.dk> |
33752
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
8 ;; Keywords: maint |
9ebf8de0e42c
Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents:
33151
diff
changeset
|
9 |
30790 | 10 ;; This file is part of GNU Emacs. |
11 | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
30790 | 13 ;; it under the terms of the GNU General Public License as published by |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
30790 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
30790 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; Use M-x authors RET to create an *Authors* buffer that can used as | |
28 ;; or merged with Emacs' AUTHORS file. | |
29 | |
30 ;;; Code: | |
31 | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
32 (defvar authors-coding-system 'iso-2022-7bit |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
33 "Coding system used in the AUTHORS file.") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
34 |
30790 | 35 (defconst authors-many-files 20 |
36 "Maximum number of files for which to print individual information. | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
37 If an author has modified more files, only the names of the most |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
38 frequently modified files are printed and a count of the additional |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
39 files.") |
30790 | 40 |
41 (defconst authors-aliases | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
42 '( |
71215
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
43 ("Andrew Csillag" "Drew Csillag") |
74290
dfdd8a9755b0
(authors-aliases): Add new alias.
Glenn Morris <rgm@gnu.org>
parents:
73748
diff
changeset
|
44 ("Anna M. Bigatti" "Anna Bigatti") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
45 ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
46 "Barry A. Warsaw, ITB" "Barry Warsaw") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
47 ("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
48 ("Brian Fox" "Brian J. Fox") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
49 ("Christoph Wedler" "Christoph.Wedler@sap.com") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
50 ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
51 "<Daniel.Pfeiffer@Informatik.START.dbp.de>") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
52 ("David Gillespie" "Dave Gillespie") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
53 ("David K,Ae(Bgedal" "David K..edal") |
69709
29132bd8c886
Add a few aliases. Ignore changes to AUTHORS file.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
54 ("David M. Koppelman" "David M. Koppelman, Koppel@Ee.Lsu.Edu" |
29132bd8c886
Add a few aliases. Ignore changes to AUTHORS file.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
55 "David Koppelman") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
56 ("David M. Smith" "David Smith" "David M Smith") |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
57 ("Ed L. Cashin" "Ed L Cashin") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
58 ("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
59 "Reingold Edward M") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
60 ("Eli Zaretskii" "eliz") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
61 ("Emilio C. Lopes" "Emilio Lopes") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
62 ("Era Eriksson" "Era@Iki.Fi") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
63 ("Eric M. Ludlam" "Eric Ludlam") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
64 ("Eric S. Raymond" "Eric Raymond") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
65 ("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
66 ("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
67 ("Fran,Ag(Bois Pinard" "Francois Pinard") |
52921
cbde46624620
Alias for Francesco Potort?
Francesco Potortì <pot@gnu.org>
parents:
52401
diff
changeset
|
68 ("Francesco Potort,Al(B" "Francesco Potorti" "Francesco Potorti`") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
69 ("Frederic Pierresteguy" "Fred Pierresteguy") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
70 ("Geoff Voelker" "voelker") |
76316
bf760ee33776
(authors-aliases): Add alias.
Kim F. Storm <storm@cua.dk>
parents:
75346
diff
changeset
|
71 ("Gerd M,Av(Bllmann" "Gerd Moellmann") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
72 ("Hallvard B. Furuseth" "Hallvard B Furuseth") |
84991
3cfb77f996c5
lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents:
84990
diff
changeset
|
73 ("Hrvoje Nik$,1!!(Bi$,1 '(B" "Hrvoje Niksic") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
74 (nil "(afs@hplb.hpl.hp.com)") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
75 (nil "<Use-Author-Address-Header@\\[127.1\\]>") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
76 (nil "Code Extracted") |
74944
a4a07479f11c
(authors-aliases): Anchor FSF alias regexp,
Kim F. Storm <storm@cua.dk>
parents:
74466
diff
changeset
|
77 (nil "\\`FSF") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
78 (nil "ISO-2022-JP") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
79 ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
80 ("Jan Dj,Ad(Brv" "Jan D." "Jan Djarv") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
81 ("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") |
84991
3cfb77f996c5
lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents:
84990
diff
changeset
|
82 ("J,Ai(Br,At(Bme Marant" "J,Ai(Br,At(Bme Marant" "Jerome Marant") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
83 ("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") |
69709
29132bd8c886
Add a few aliases. Ignore changes to AUTHORS file.
Kim F. Storm <storm@cua.dk>
parents:
68648
diff
changeset
|
84 ("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard") |
65441
b0b5aabc3c15
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
64751
diff
changeset
|
85 ("Johan Bockg,Ae(Brd" "Johan Bockgard") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
86 ("John W. Eaton" "John Eaton") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
87 ("Jonathan I. Kamens" "Jonathan Kamens") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
88 ("Joseph Arceneaux" "Joe Arceneaux") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
89 ("Juan Le,As(Bn Lahoz Garc,Am(Ba" "Juan-Leon Lahoz Garcia") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
90 ("K. Shane Hartman" "Shane Hartman") |
84991
3cfb77f996c5
lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents:
84990
diff
changeset
|
91 ("Kai Gro,A_(Bjohann" "Kai Grossjohann" "Kai Gro,A_(Bjohann" |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
92 "Kai.Grossjohann@Cs.Uni-Dortmund.De" |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
93 "Kai.Grossjohann@Gmx.Net") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
94 ("Karl Berry" "K. Berry") |
84991
3cfb77f996c5
lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents:
84990
diff
changeset
|
95 ("K,Aa(Broly L$,1 q(Brentey" "K,Aa(Broly L$,1 q(Brentey" "L$,1 q(Brentey K,Aa(Broly") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
96 ("Kazushi Marukawa" "Kazushi") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
97 ("Ken Manheimer" "Kenneth Manheimer") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
98 ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
99 ("Kevin Greiner" "Kevin J. Greiner") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
100 ("Kim F. Storm" "Kim Storm") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
101 ("Kyle Jones" "Kyle E. Jones") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
102 ("Marcus G. Daniels" "Marcus Daniels") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
103 ("Mark D. Baushke" "Mark D Baushke") |
76318
65a88aa6b320
(authors-aliases): Add alias.
Kim F. Storm <storm@cua.dk>
parents:
76316
diff
changeset
|
104 ("Agust,Am(Bn Mart,Am(Bn" "Agustin Martin") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
105 ("Martin Lorentzon" "Martin Lorentzson") |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
106 ("Matt Swift" "Matthew Swift") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
107 ("Michael R. Mauger" "Michael Mauger") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
108 ("Michael D. Ernst" "Michael Ernst") |
73514
e32c400bfbfc
* emacs-lisp/authors.el (authors-aliases): Update.
Chong Yidong <cyd@stupidchicken.com>
parents:
71887
diff
changeset
|
109 ("Micha,Ak(Bl Cadilhac" "Michael Cadilhac") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
110 ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
111 ("Mikio Nakajima" "Nakajima Mikio") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
112 ("Paul Eggert" "eggert") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
113 ("Paul Reilly" "(pmr@legacy.pajato.com)") |
84991
3cfb77f996c5
lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents:
84990
diff
changeset
|
114 ("Pavel Jan,Am(Bk" "Pavel Jan,Am(Bk Ml." "Pavel Jan,Am(Bk" "Pavel@Janik.Cz") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
115 ("Per Abrahamsen" "Per Abhiddenware") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
116 ("Peter S. Galbraith" "Peter Galbraith") |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
117 ("Peter Runestig" "Peter 'luna' Runestig") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
118 ("Peter S. Galbraith" "Peter S Galbraith") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
119 ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman" |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
120 "rms" "rms@gnu.org") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
121 ("Robert J. Chassell" "Bob Chassell") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
122 ("Roland B. Roberts" "Roland B Roberts" "Roland Roberts") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
123 ("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}") |
71756
d47d35f3df43
(authors-aliases): Update.
Romain Francoise <romain@orebokech.com>
parents:
71215
diff
changeset
|
124 ("Sacha Chua" "Sandra Jean Chua") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
125 ("Sam Steingold" "Sam Shteingold") |
71215
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
126 ("Satyaki Das" "Indexed search by Satyaki Das") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
127 ("Stefan Monnier" "Stefan") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
128 ("Stephen A. Wood" "(saw@cebaf.gov)") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
129 ("Steven L. Baur" "SL Baur" "Steven L Baur") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
130 ("Takaaki Ota" "Tak Ota") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
131 ("Takahashi Naoto" "Naoto Takahashi") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
132 ("Teodor Zlatanov" "Ted Zlatanov") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
133 ("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
134 ("Torbj,Av(Brn Einarsson" "Torbj.*rn Einarsson") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
135 ("Toru Tomabechi" "Toru Tomabechi,") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
136 ("Vincent Del Vecchio" "Vince Del Vecchio") |
71215
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
137 ("William M. Perry" "Bill Perry") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
138 ("Wlodzimierz Bzyl" "W.*dek Bzyl") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
139 ("Yutaka NIIBE" "NIIBE Yutaka") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
140 ) |
30790 | 141 "Alist of author aliases. |
142 | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
143 Each entry is of the form (REALNAME REGEXP...). If an author's name |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
144 matches one of the REGEXPs, use REALNAME instead. |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
145 If REALNAME is nil, ignore that author.") |
30790 | 146 |
147 | |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
148 (defvar authors-public-domain-files |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
149 '("auto-show\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
150 "form-d2\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
151 "emerge\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
152 "unused\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
153 "vi\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
154 "feedmail\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
155 "mailpost\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
156 "hanoi\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
157 "meese\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
158 "studly\\.el" |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
159 "modula2\\.el") |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
160 "List of regexps matching files for which the FSF doesn't need papers.") |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
161 |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
162 |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
163 (defvar authors-obsolete-files-regexps |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
164 '("vc-\\*\\.el$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
165 "spec.txt$" |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
166 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
167 "List of regexps matching obsolete files. |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
168 Changes to files matching one of the regexps in this list are not |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
169 listed.") |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
170 |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
171 (defconst authors-ignored-files |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
172 '("external-lisp" |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
173 "lock" "share-lib" "local-lisp" |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
174 "noleim-Makefile.in" |
71758
dff042545179
(authors-ignored-files): Ignore changes
Kim F. Storm <storm@cua.dk>
parents:
71756
diff
changeset
|
175 "NEWS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
176 "List of files and directories to ignore. |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
177 Changes to files in this list are not listed.") |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
178 |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
179 (defconst authors-fixed-entries |
73748
a74dceb4b5f8
(authors-fixed-entries): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
73514
diff
changeset
|
180 '(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
181 ("Joseph Arceneaux" :wrote "xrdb.c") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
182 ("Blitz Product Development Corporation" :wrote "ispell.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
183 ("Frank Bresz" :wrote "diff.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
184 ("David M. Brown" :wrote "array.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
185 ("Gary Byers" :changed "xenix.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
186 ("Shawn M. Carey" :wrote "freebsd.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
187 ("Eric Decker" :changed "hp9000s800.h" "hpux.h" "sysdep.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
188 ("Lawrence R. Dodd" :wrote "dired-x.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
189 ("Viktor Dukhovni" :wrote "unexsunos4.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
190 ("Paul Eggert" :wrote "rcs2log" "vcdiff") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
191 ("Fred Fish" :changed "unexec.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
192 ("Tim Fleehart" :wrote "makefile.nt") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
193 ("Keith Gabryelski" :wrote "hexl.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
194 ("Kevin Gallagher" :wrote "flow-ctrl.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
195 ("Howard Gayle" :wrote "disp-table.el" "iso-syntax.el" "casetab.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
196 ("Stephen Gildea" :wrote "refcard.tex" "mh-funcs.el" "mh-pick.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
197 ("David Gillespie" :wrote "cl.texinfo") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
198 ("Hewlett-Packard" :changed "emacsclient.c" "emacsserver.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
199 "server.el" "keyboard.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
200 ("Thomas Horsley" :wrote "cxux.h" "cxux7.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
201 ("Indiana University Foundation" :changed "buffer.c" "buffer.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
202 "indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
203 ("International Business Machines" :changed "emacs.c" "fileio.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
204 "ibmrt.h" "process.c" "sysdep.c" "unexec.c" "ibmrt-aix.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
205 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
206 ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
207 "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexec.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
208 "ymakefile" "linux.h") |
65441
b0b5aabc3c15
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
64751
diff
changeset
|
209 ("Kyle Jones" :wrote "mldrag.el") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
210 ("Henry Kautz" :wrote "bib-mode.el") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
211 ("Joseph M. Kelsey" :changed "fileio.c" "vms-pwd.h" "vmsfns.c" "dir.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
212 "uaf.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
213 ("Sam Kendall" :changed "etags.c" "etags.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
214 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
215 ("Larry Kolodney" :wrote "cvtmail.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
216 ("Sebastian Kremer" :changed "add-log.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
217 ("Mark Lambert" :changed "process.c" "process.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
218 ("Aaron Larson" :changed "bibtex.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
219 ("James R. Larus" :wrote "mh-e.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
220 ("Lars Lindberg" :changed "dabbrev.el" :wrote "imenu.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
221 ("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
222 "bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
223 "lmenu.el" "lselect.el" "mailabbrev.el" "select.el" "xfaces.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
224 "xselect.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
225 ("MCC" :changed "etags.c" "emacsclient.c" "emacsserver.c" "movemail.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
226 "rmail.el" "rmailedit.el" "rmailkwd.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
227 "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
228 "server.el" "lisp.h" "sysdep.c" "unexec.c" :wrote "xmenu.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
229 ("Niall Mansfield" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
230 ("Brian Marick" :wrote "hideif.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
231 ("Marko Kohtala" :changed "info.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
232 ("Sidney Markowitz" :changed "doctor.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
233 ("Richard Mlynarik" :wrote "env.c" "ehelp.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
234 ("Mosur Mohan" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
235 ("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
236 "vt220.el" "vt240.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
237 ("Motorola" :changed "buff-menu.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
238 ("Hiroshi Nakano" :changed "ralloc.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
239 ("Sundar Narasimhan" :changed "rnewspost.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
240 ("NeXT, Inc." :wrote "unexnext.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
241 ("Mark Neale" :changed "fortran.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
242 ("Martin Neitzel" :changed "sc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
243 ("Andrew Oram" :changed "miscellaneous changes to files in man/" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
244 "man/calendar.texi") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
245 ("Frederic Pierresteguy" :wrote "widget.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
246 ("Michael D. Prange" :changed "tex-mode.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
247 ("Paul Reilly" :wrote "gux5-4r2.h" "dgux5-4r3.h") |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
248 ("Roland B. Roberts" :changed "files.el" "sort.el" "vmsproc.el" |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
249 "buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
250 "vmspaths.h" "build.com" "compile.com" "kepteditor.com" "precomp.com" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
251 :wrote "logout.com" "mailemacs.com") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
252 ("Guillermo J. Rozas" :wrote "fakemail.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
253 ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
254 "sort.el" "alloc.c" "callint.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
255 "config.h.in" "crt0.c" "data.c" "fns.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
256 "lisp.h" "lread.c" "sun3.h" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
257 "print.c" "ymakefile" :wrote "float-sup.el" "floatfns.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
258 ("Schlumberger Technology Corporation" :changed "gud.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
259 ("Gregor Schmid" :wrote "tcl-mode.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
260 ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
261 ("William Sommerfeld" :wrote "emacsclient.c" "emacsserver.c" "scribe.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
262 ("Leigh Stoller" :changed "emacsclient.c" "emacsserver.c" "server.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
263 ("Steve Strassman" :wrote "spook.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
264 ("Shinichirou Sugou" :changed "etags.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
265 ("Sun Microsystems, Inc" :changed "emacsclient.c" "emacsserver.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
266 "server.el" :wrote "emacs.icon" "emacstool.1" "emacstool.c" "sun-curs.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
267 "sun-fns.el" "sun-mouse.el" "sun.el" "sunfns.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
268 ("Kayvan Sylvan" :changed "sc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
269 ("Spencer Thomas" :changed "emacsclient.c" "emacsserver.c" "server.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
270 "dabbrev.el" "unexec.c" "tcp.c" "gnus.texi") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
271 ("Jonathan Vail" :changed "vc.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
272 ("James Van Artsdalen" :changed "usg5-4.h" "unexec.c") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
273 ("Geoff Voelker" :wrote "src/makefile.nt" "lisp/makefile.nt" "winnt.el" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
274 "nt.c" "nt.h" "ntheap.c" "ntheap.h" "ntinevt.c" |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
275 "ntproc.c" "ntterm.c" "windowsnt.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
276 ("Morten Welinder" :wrote "dosfns.c" "[many MSDOS files]" "msdos.h") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
277 ("Pace Willisson" :wrote "ispell.el") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
278 ("Garrett Wollman" :changed "sendmail.el") |
71215
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
279 ("Dale R. Worley" :changed "mail-extr.el") |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
280 ("Jamie Zawinski" :changed "bytecode.c" :wrote "disass.el" "tar-mode.el")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
281 "Actions taken from the original, manually (un)maintained AUTHORS file.") |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
282 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
283 |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
284 (defconst authors-valid-file-names |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
285 '("aclocal.m4" |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
286 "makedist.bat" |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
287 "make-delta") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
288 "File names which are valid, but no longer exists (or cannot be |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
289 found) in the repository.") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
290 |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
291 (defconst authors-renamed-files-alist |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
292 '(("nt.c" . "w32.c") ("nt.h" . "w32.h") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
293 ("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
294 ("ntinevt.c" . "w32inevt.c") ("ntinevt.h" . "w32inevt.h") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
295 ("ntproc.c" . "w32proc.c") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
296 ("w32console.c" . "w32term.c") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
297 ("unexnt.c" . "unexw32.c") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
298 ("s/windowsnt.h" . "s/ms-w32.h") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
299 ("config.emacs" . "configure") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
300 ("GETTING.GNU.SOFTWARE" . "FTP") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
301 ("leim-Makefile" . "leim/Makefile") |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
302 ("leim-Makefile.in" . "leim/Makefile.in") |
74944
a4a07479f11c
(authors-aliases): Anchor FSF alias regexp,
Kim F. Storm <storm@cua.dk>
parents:
74466
diff
changeset
|
303 ("emacs-lisp/testcover-ses.el" . "tcover-ses.el") |
a4a07479f11c
(authors-aliases): Anchor FSF alias regexp,
Kim F. Storm <storm@cua.dk>
parents:
74466
diff
changeset
|
304 ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el") |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
305 ("INSTALL-CVS" . "INSTALL.CVS") |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
306 ) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
307 "Alist of files which have been renamed during their lifetime. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
308 Elements are (OLDNAME . NEWNAME).") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
309 |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
310 (defconst authors-renamed-files-regexps |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
311 '(("^m/m-\\(.*\\.h\\)$" . "m/\\1") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
312 ("^m-\\(.*\\.h\\)$" . "\\1") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
313 ("^s/s-\\(.*\\.h\\)$" . "s/\\1") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
314 ("^s-\\(.*\\.h\\)$" . "\\1") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
315 ("^s/[-.a-zA-Z0-9_]+\\.h$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
316 ("\\(.*\\)\\.cmd$" . "\\1.bat") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
317 ("\\.bat$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
318 ("\\.[ch]$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
319 ("\\.el$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
320 ("\\.ps$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
321 ("\\.texi?$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
322 ("\\.texinfo$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
323 ("\\.xml?$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
324 ("\\.x[pb]m$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
325 ("\\.[xp]bm$" . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
326 ("^paths\\." . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
327 ("^install\\." . t) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
328 ) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
329 "List regexps and rewriting rules for renamed files. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
330 Elements are (REGEXP . REPLACE). If REPLACE is a string, the file |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
331 name matching REGEXP is replaced by REPLACE using `replace-string'. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
332 Otherwise, the file name is accepted as is.") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
333 |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
334 (defvar authors-checked-files-alist) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
335 (defvar authors-invalid-file-names) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
336 |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
337 (defun authors-canonical-file-name (file log-file pos author) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
338 "Return canonical file name for FILE found in LOG-FILE at POS for AUTHOR. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
339 Checks whether FILE is a valid (existing) file name, has been renamed, |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
340 or is on the list of removed files. Returns the non-diretory part of |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
341 the file name." |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
342 (let ((entry (assoc file authors-checked-files-alist)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
343 relname |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
344 valid) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
345 (if entry |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
346 (cdr entry) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
347 (setq relname (file-name-nondirectory file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
348 (if (or (member relname authors-valid-file-names) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
349 (file-exists-p file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
350 (file-exists-p relname) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
351 (file-exists-p (concat "etc/" relname))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
352 (setq valid relname) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
353 (setq valid (assoc file authors-renamed-files-alist)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
354 (if valid |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
355 (setq valid (cdr valid)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
356 (let ((rules authors-renamed-files-regexps)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
357 (while rules |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
358 (if (string-match (car (car rules)) file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
359 (setq valid (if (stringp (cdr (car rules))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
360 (file-name-nondirectory |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
361 (replace-match (cdr (car rules)) t nil file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
362 relname) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
363 rules nil)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
364 (setq rules (cdr rules)))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
365 (setq authors-checked-files-alist |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
366 (cons (cons file valid) authors-checked-files-alist)) |
71215
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
367 (unless (or valid |
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
368 (string-match "[*]" file) |
6a147eb20dc7
(authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents:
69709
diff
changeset
|
369 (string-match "^[0-9.]+$" file)) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
370 (setq authors-invalid-file-names |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
371 (cons (format "%s:%d: unrecognized `%s' for %s" |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
372 log-file |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
373 (1+ (count-lines (point-min) pos)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
374 file author) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
375 authors-invalid-file-names))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
376 valid))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
377 |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
378 (defun authors-add-fixed-entries (table) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
379 "Add actions from `authors-fixed-entries' to TABLE." |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
380 (dolist (entry authors-fixed-entries) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
381 (let ((author (car entry)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
382 action) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
383 (dolist (item (cdr entry)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
384 (if (symbolp item) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
385 (setq action item) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
386 (authors-add author item action table)))))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
387 |
46290
0cd79941b83a
(authors-obsolete-file-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
41967
diff
changeset
|
388 |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
389 (defun authors-obsolete-file-p (file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
390 "Return non-nil if FILE is obsolete. |
46290
0cd79941b83a
(authors-obsolete-file-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
41967
diff
changeset
|
391 FILE is considered obsolete if it matches one of the regular expressions |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
392 from `authors-obsolete-files-regexps'." |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
393 (let (obsolete-p |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
394 (regexps authors-obsolete-files-regexps)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
395 (while (and regexps (not obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
396 (setq obsolete-p (string-match (car regexps) file) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
397 regexps (cdr regexps))) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
398 obsolete-p)) |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
399 |
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
400 |
30790 | 401 (defun authors-add (author file action table) |
402 "Record that AUTHOR worked on FILE. | |
403 ACTION is a keyword symbol describing what he did. Record file, | |
404 author and what he did in hash table TABLE. See the description of | |
405 `authors-scan-change-log' for the structure of the hash table." | |
61387
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
406 (unless (or (member file authors-ignored-files) |
48fd09671b41
(authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents:
56970
diff
changeset
|
407 (authors-obsolete-file-p file) |
32529
efaa4e4c5fef
(authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents:
32028
diff
changeset
|
408 (equal author "")) |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
409 (let* ((value (gethash author table)) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
410 (entry (assoc file value)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
411 slot) |
32028
1bb0e9c9c64d
(authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32005
diff
changeset
|
412 (if (null entry) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
413 (puthash author (cons (list file (cons action 1)) value) table) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
414 (if (setq slot (assoc action (cdr entry))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
415 (setcdr slot (1+ (cdr slot))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
416 (nconc entry (list (cons action 1)))))))) |
30790 | 417 |
418 | |
419 (defun authors-canonical-author-name (author) | |
420 "Return a canonicalized form of AUTHOR, an author name. | |
421 If AUTHOR has an alias, use that. Remove email addresses. Capitalize | |
422 words in the author's name." | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
423 (let* ((aliases authors-aliases) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
424 regexps realname) |
30790 | 425 (while aliases |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
426 (setq realname (car (car aliases)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
427 regexps (cdr (car aliases)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
428 aliases (cdr aliases)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
429 (while regexps |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
430 (if (string-match (car regexps) author) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
431 (setq author realname |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
432 regexps nil |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
433 aliases nil) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
434 (setq regexps (cdr regexps)))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
435 (when author |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
436 (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author)) |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
437 (setq author (replace-regexp-in-string "\`[ \t]+" "" author)) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
438 (setq author (replace-regexp-in-string "[ \t]+$" "" author)) |
56970
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
439 (setq author (replace-regexp-in-string "[ \t]+" " " author)) |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
440 (unless (string-match "[-, \t]" author) |
b71fc0f47c9a
(authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents:
52921
diff
changeset
|
441 (setq author "")) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
442 (capitalize author))) |
30790 | 443 |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
444 (defun authors-scan-change-log (log-file table) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
445 "Scan change log LOG-FILE for author information. |
30790 | 446 |
447 For each change mentioned in the log, add an entry to hash table TABLE | |
448 under the author's canonical name. | |
449 | |
450 Keys of TABLE are author names. Values are alists of entries (FILE | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
451 \(ACTION . COUNT) ...). FILE is one file the author worked on. The |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
452 rest of the entry is a list of keyword symbols describing what he did |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
453 with the file and the number of each action. |
30790 | 454 |
455 :wrote means the author wrote the file | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
456 :changed means he changed the file COUNT times." |
46290
0cd79941b83a
(authors-obsolete-file-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
41967
diff
changeset
|
457 |
85864 | 458 (let* ((enable-local-variables :safe) |
459 (enable-local-eval nil) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
460 (existing-buffer (get-file-buffer log-file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
461 (buffer (find-file-noselect log-file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
462 author file pos) |
30790 | 463 (save-excursion |
464 (set-buffer buffer) | |
465 (save-restriction | |
466 (widen) | |
467 (goto-char (point-min)) | |
468 (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t) | |
469 (beginning-of-line) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
470 (setq pos (point)) |
30790 | 471 (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+") |
472 (skip-chars-forward " \t+:0-9-") | |
473 (setq author (buffer-substring-no-properties | |
474 (point) (line-end-position))) | |
475 (setq author (authors-canonical-author-name author)) | |
476 (forward-line 1)) | |
477 ((looking-at "^[ \t]+\\*") | |
478 (let ((line (buffer-substring-no-properties | |
479 (match-end 0) (line-end-position)))) | |
480 (while (and (not (string-match ":" line)) | |
481 (forward-line 1) | |
482 (not (looking-at ":\\|^[ \t]*$"))) | |
483 (setq line (concat line | |
484 (buffer-substring-no-properties | |
485 (line-beginning-position) | |
486 (line-end-position))))) | |
487 (when (string-match ":" line) | |
488 (setq line (substring line 0 (match-beginning 0))) | |
489 (setq line (replace-regexp-in-string "[[(<{].*$" "" line)) | |
490 (setq line (replace-regexp-in-string "," "" line)) | |
491 (dolist (file (split-string line)) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
492 (when (setq file (authors-canonical-file-name file log-file pos author)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
493 ;;(message "%s changed %s" author file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
494 (authors-add author file :changed table)))) |
30790 | 495 (forward-line 1))))))) |
496 (unless existing-buffer | |
497 (kill-buffer buffer)))) | |
498 | |
499 | |
500 (defun authors-scan-el (file table) | |
501 "Scan Lisp file FILE for author information. | |
502 TABLE is a hash table to add author information to." | |
503 (let* ((existing-buffer (get-file-buffer file)) | |
85864 | 504 (enable-local-variables :safe) |
505 (enable-local-eval nil) | |
30790 | 506 (buffer (find-file-noselect file))) |
507 (save-excursion | |
508 (set-buffer buffer) | |
509 (save-restriction | |
510 (widen) | |
511 (goto-char (point-min)) | |
512 (while (and (re-search-forward | |
513 "^;+[ \t]*\\(Author\\|Commentary\\):[ \t]*" nil t) | |
514 (not (string= (match-string 1) "Commentary"))) | |
515 ;; Some entries contain a year range in front of the | |
516 ;; author's name. | |
517 (skip-chars-forward "-0-9 \t") | |
518 (let ((author (buffer-substring-no-properties | |
519 (point) (line-end-position)))) | |
520 (setq author (authors-canonical-author-name author)) | |
521 (setq file (file-name-nondirectory file)) | |
522 (authors-add author file :wrote table))))) | |
523 (unless existing-buffer | |
524 (kill-buffer buffer)))) | |
525 | |
526 | |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
527 (defun authors-public-domain-p (file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
528 "Return t if FILE is a file that was put in public domain." |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
529 (let ((public-domain-p nil) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
530 (list authors-public-domain-files)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
531 (while (and list (not public-domain-p)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
532 (when (string-match (car list) file) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
533 (setq public-domain-p t)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
534 (setq list (cdr list))) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
535 public-domain-p)) |
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
536 |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
537 (defvar authors-author-list) |
33151
452df6342ae5
(authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
32885
diff
changeset
|
538 |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
539 (defun authors-add-to-author-list (author changes) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
540 "Insert information about AUTHOR's work on Emacs into `authors-author-list'. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
541 CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
542 `authors-scan-change-log'. |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
543 The element added to `authors-author-list' is (AUTHOR WROTE CHANGED), where |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
544 WROTE and CHANGED are lists of the files written and changed by AUTHOR." |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
545 (when author |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
546 (let ((nchanged 0) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
547 wrote-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
548 changed-list) |
30790 | 549 (dolist (change changes) |
550 (let ((actions (cdr change)) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
551 (file (car change)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
552 slot) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
553 (if (assq :wrote actions) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
554 (setq wrote-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
555 (cons |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
556 (if (authors-public-domain-p file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
557 (concat file " (public domain)") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
558 file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
559 wrote-list)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
560 (setq changed-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
561 (cons (cons file (cdr (assq :changed actions))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
562 changed-list))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
563 (if wrote-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
564 (setq wrote-list (sort wrote-list 'string-lessp))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
565 (when changed-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
566 (setq changed-list (sort changed-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
567 (lambda (a b) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
568 (if (= (cdr a) (cdr b)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
569 (string-lessp (car a) (car b)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
570 (> (cdr a) (cdr b)))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
571 (setq nchanged (length changed-list)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
572 (setq changed-list (mapcar 'car changed-list))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
573 (if (> (- nchanged authors-many-files) 2) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
574 (setcdr (nthcdr authors-many-files changed-list) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
575 (list (format "and %d other files" (- nchanged authors-many-files))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
576 (setq authors-author-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
577 (cons (list author wrote-list changed-list) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
578 authors-author-list))))) |
30790 | 579 |
580 (defun authors (root) | |
581 "Extract author information from change logs and Lisp source files. | |
582 ROOT is the root directory under which to find the files. If called | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
583 interactively, ROOT is read from the minibuffer. |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
584 Result is a buffer *Authors* containing authorship information, and a |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
585 buffer *Authors Errors* containing references to unknown files." |
30790 | 586 (interactive "DEmacs source directory: ") |
36010
c486995553f8
(authors): Expand `root' before running
Dave Love <fx@gnu.org>
parents:
33752
diff
changeset
|
587 (setq root (expand-file-name root)) |
88084
60aaa6c4ca3c
(authors): Use `find-program' and `grep-program'
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
588 (let ((logs (process-lines find-program root "-name" "ChangeLog*")) |
30790 | 589 (table (make-hash-table :test 'equal)) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
590 (buffer-name "*Authors*") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
591 authors-checked-files-alist |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
592 authors-invalid-file-names) |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
593 (authors-add-fixed-entries table) |
30790 | 594 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
595 (error "Not the root directory of Emacs: %s" root)) | |
596 (dolist (log logs) | |
62431
9ffac6fd4aa8
(authors): Do parse the ChangeLogs of the Emacs Lisp Reference Manual.
Lute Kamstra <lute@gnu.org>
parents:
61387
diff
changeset
|
597 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) |
30790 | 598 (message "Scanning %s..." log) |
599 (authors-scan-change-log log table))) | |
88084
60aaa6c4ca3c
(authors): Use `find-program' and `grep-program'
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
600 (let ((els (process-lines find-program root "-name" "*.el"))) |
30790 | 601 (dolist (file els) |
602 (message "Scanning %s..." file) | |
603 (authors-scan-el file table))) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
604 (message "Generating buffer %s..." buffer-name) |
30790 | 605 (set-buffer (get-buffer-create buffer-name)) |
606 (erase-buffer) | |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
607 (set-buffer-file-coding-system authors-coding-system) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
608 (insert |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
609 "Many people have contributed code included in the Free Software |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
610 Foundation's distribution of GNU Emacs. To show our appreciation for |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
611 their public spirit, we list here in alphabetical order a condensed |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
612 list of their contributions.\n") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
613 (let (authors-author-list a) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
614 (maphash #'authors-add-to-author-list table) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
615 (setq authors-author-list |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
616 (sort authors-author-list |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
617 (lambda (a b) (string-lessp (car a) (car b))))) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
618 (dolist (a authors-author-list) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
619 (let ((author (car a)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
620 (wrote (nth 1 a)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
621 (changed (nth 2 a)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
622 file) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
623 (insert "\n" author ": ") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
624 (when wrote |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
625 (insert "wrote") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
626 (dolist (file wrote) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
627 (if (> (+ (current-column) (length file)) 72) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
628 (insert "\n ")) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
629 (insert " " file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
630 (insert "\n")) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
631 (when changed |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
632 (if wrote |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
633 (insert "and ")) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
634 (insert "changed") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
635 (dolist (file changed) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
636 (if (> (+ (current-column) (length file)) 72) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
637 (insert "\n ")) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
638 (insert " " file)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
639 (insert "\n"))))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49506
diff
changeset
|
640 (insert "\nLocal" " Variables:\ncoding: " |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
641 (symbol-name authors-coding-system) "\nEnd:\n") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
642 (message "Generating buffer %s... done" buffer-name) |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
643 (unless noninteractive |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
644 (when authors-invalid-file-names |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
645 (with-current-buffer (get-buffer-create "*Authors Errors*") |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
646 (erase-buffer) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
647 (set-buffer-file-coding-system authors-coding-system) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
648 (insert "Unrecognized file entries found:\n\n") |
84894
c9d3d80460e9
(authors): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents:
78217
diff
changeset
|
649 (mapc (lambda (f) (if (not (string-match "^[A-Za-z]+$" f)) (insert f "\n"))) |
c9d3d80460e9
(authors): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents:
78217
diff
changeset
|
650 (sort authors-invalid-file-names 'string-lessp)) |
49506
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
651 (goto-char (point-min)) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
652 (compilation-mode) |
ac9e2eeeb03d
New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents:
49469
diff
changeset
|
653 (message "Errors were found. See buffer %s" (buffer-name)))) |
32885
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
654 (pop-to-buffer buffer-name)))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
655 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
656 |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
657 (defun batch-update-authors () |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
658 "Produce an AUTHORS file. |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
659 Call this function in batch mode with two command line arguments FILE |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
660 and ROOT. FILE is the file to write, ROOT is the root directory of |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
661 the Emacs source tree, from which to build the file." |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
662 (unless noninteractive |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
663 (error "`batch-update-authors' is to be used only with -batch")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
664 (when (/= (length command-line-args-left) 2) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
665 (error "Call `batch-update-authors' with the name of the file to write")) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
666 (let* ((file (pop command-line-args-left)) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
667 (root (pop command-line-args-left))) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
668 (authors root) |
c5fc43371c70
(batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
32832
diff
changeset
|
669 (write-file file))) |
30790 | 670 |
76951 | 671 (provide 'authors) |
672 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
88084
diff
changeset
|
673 ;; arch-tag: 659d5900-5ff2-43b0-954c-a315cc1e4dc1 |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
36010
diff
changeset
|
674 ;;; authors.el ends here |