annotate lisp/emacs-lisp/authors.el @ 86024:1027550b68ba

Add query-replace-show-replacement and match-substitute-replacement.
author Juri Linkov <juri@jurta.org>
date Sat, 10 Nov 2007 21:52:06 +0000
parents 07652ce8f3df
children 5b6b3d2be3dd 880960b70474
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49469
edde976160fb Added Jan D in alias
Jan Djärv <jan.h.d@swipnet.se>
parents: 46997
diff changeset
1 ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*-
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
74466
1d4b1a32fd66 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74290
diff changeset
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74944
diff changeset
4 ;; 2006, 2007 Free Software Foundation, Inc.
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
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
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
78217
935157c0b596 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 76951
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 ;; any later version.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62431
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62431
diff changeset
25 ;; Boston, MA 02110-1301, USA.
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;; Use M-x authors RET to create an *Authors* buffer that can used as
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 ;; or merged with Emacs' AUTHORS file.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 ;;; Code:
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
34 (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
35 "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
36
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 (defconst authors-many-files 20
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 "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
39 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
40 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
41 files.")
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 (defconst authors-aliases
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
44 '(
71215
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
45 ("Andrew Csillag" "Drew Csillag")
74290
dfdd8a9755b0 (authors-aliases): Add new alias.
Glenn Morris <rgm@gnu.org>
parents: 73748
diff changeset
46 ("Anna M. Bigatti" "Anna Bigatti")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
47 ("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
48 "Barry A. Warsaw, ITB" "Barry Warsaw")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
49 ("Bj,Av(Brn Torkelsson" "Bjorn Torkelsson")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
50 ("Brian Fox" "Brian J. Fox")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
51 ("Christoph Wedler" "Christoph.Wedler@sap.com")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
52 ("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
53 "<Daniel.Pfeiffer@Informatik.START.dbp.de>")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
54 ("David Gillespie" "Dave Gillespie")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
55 ("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
56 ("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
57 "David Koppelman")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
58 ("David M. Smith" "David Smith" "David M Smith")
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
59 ("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
60 ("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
61 "Reingold Edward M")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
62 ("Eli Zaretskii" "eliz")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
63 ("Emilio C. Lopes" "Emilio Lopes")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
64 ("Era Eriksson" "Era@Iki.Fi")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
65 ("Eric M. Ludlam" "Eric Ludlam")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
66 ("Eric S. Raymond" "Eric Raymond")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
67 ("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
68 ("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
69 ("Fran,Ag(Bois Pinard" "Francois Pinard")
52921
cbde46624620 Alias for Francesco Potort?
Francesco Potortì <pot@gnu.org>
parents: 52401
diff changeset
70 ("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
71 ("Frederic Pierresteguy" "Fred Pierresteguy")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
72 ("Geoff Voelker" "voelker")
76316
bf760ee33776 (authors-aliases): Add alias.
Kim F. Storm <storm@cua.dk>
parents: 75346
diff changeset
73 ("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
74 ("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
75 ("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
76 (nil "(afs@hplb.hpl.hp.com)")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
77 (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
78 (nil "Code Extracted")
74944
a4a07479f11c (authors-aliases): Anchor FSF alias regexp,
Kim F. Storm <storm@cua.dk>
parents: 74466
diff changeset
79 (nil "\\`FSF")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
80 (nil "ISO-2022-JP")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
81 ("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
82 ("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
83 ("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
84 ("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
85 ("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
86 ("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard")
65441
b0b5aabc3c15 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 64751
diff changeset
87 ("Johan Bockg,Ae(Brd" "Johan Bockgard")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
88 ("John W. Eaton" "John Eaton")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
89 ("Jonathan I. Kamens" "Jonathan Kamens")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
90 ("Joseph Arceneaux" "Joe Arceneaux")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
91 ("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
92 ("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
93 ("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
94 "Kai.Grossjohann@Cs.Uni-Dortmund.De"
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
95 "Kai.Grossjohann@Gmx.Net")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
96 ("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
97 ("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
98 ("Kazushi Marukawa" "Kazushi")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
99 ("Ken Manheimer" "Kenneth Manheimer")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
100 ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
101 ("Kevin Greiner" "Kevin J. Greiner")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
102 ("Kim F. Storm" "Kim Storm")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
103 ("Kyle Jones" "Kyle E. Jones")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
104 ("Marcus G. Daniels" "Marcus Daniels")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
105 ("Mark D. Baushke" "Mark D Baushke")
76318
65a88aa6b320 (authors-aliases): Add alias.
Kim F. Storm <storm@cua.dk>
parents: 76316
diff changeset
106 ("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
107 ("Martin Lorentzon" "Martin Lorentzson")
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
108 ("Matt Swift" "Matthew Swift")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
109 ("Michael R. Mauger" "Michael Mauger")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
110 ("Michael D. Ernst" "Michael Ernst")
73514
e32c400bfbfc * emacs-lisp/authors.el (authors-aliases): Update.
Chong Yidong <cyd@stupidchicken.com>
parents: 71887
diff changeset
111 ("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
112 ("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
113 ("Mikio Nakajima" "Nakajima Mikio")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
114 ("Paul Eggert" "eggert")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
115 ("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
116 ("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
117 ("Per Abrahamsen" "Per Abhiddenware")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
118 ("Peter S. Galbraith" "Peter Galbraith")
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
119 ("Peter Runestig" "Peter 'luna' Runestig")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
120 ("Peter S. Galbraith" "Peter S Galbraith")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
121 ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49506
diff changeset
122 "rms" "rms@gnu.org")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
123 ("Robert J. Chassell" "Bob Chassell")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
124 ("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
125 ("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}")
71756
d47d35f3df43 (authors-aliases): Update.
Romain Francoise <romain@orebokech.com>
parents: 71215
diff changeset
126 ("Sacha Chua" "Sandra Jean Chua")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
127 ("Sam Steingold" "Sam Shteingold")
71215
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
128 ("Satyaki Das" "Indexed search by Satyaki Das")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
129 ("Stefan Monnier" "Stefan")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
130 ("Stephen A. Wood" "(saw@cebaf.gov)")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
131 ("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
132 ("Takaaki Ota" "Tak Ota")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
133 ("Takahashi Naoto" "Naoto Takahashi")
56970
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
134 ("Teodor Zlatanov" "Ted Zlatanov")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
135 ("Torbj,Av(Brn Axelsson" "Torbjvrn Axelsson")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
136 ("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
137 ("Toru Tomabechi" "Toru Tomabechi,")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
138 ("Vincent Del Vecchio" "Vince Del Vecchio")
71215
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
139 ("William M. Perry" "Bill Perry")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
140 ("Wlodzimierz Bzyl" "W.*dek Bzyl")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
141 ("Yutaka NIIBE" "NIIBE Yutaka")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
142 )
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
143 "Alist of author aliases.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
144
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
145 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
146 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
147 If REALNAME is nil, ignore that author.")
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
148
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
150 (defvar authors-public-domain-files
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
151 '("auto-show\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
152 "form-d2\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
153 "emerge\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
154 "unused\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
155 "vi\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
156 "feedmail\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
157 "mailpost\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
158 "hanoi\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
159 "meese\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
160 "studly\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
161 "modula2\\.el")
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
162 "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
163
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
164
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
165 (defvar authors-obsolete-files-regexps
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
166 '("vc-\\*\\.el$"
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
167 "spec.txt$"
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
168 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
169 "List of regexps matching obsolete files.
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
170 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
171 listed.")
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
172
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
173 (defconst authors-ignored-files
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
174 '("external-lisp"
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
175 "lock" "share-lib" "local-lisp"
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
176 "noleim-Makefile.in"
71758
dff042545179 (authors-ignored-files): Ignore changes
Kim F. Storm <storm@cua.dk>
parents: 71756
diff changeset
177 "NEWS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
178 "List of files and directories to ignore.
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
179 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
180
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
181 (defconst authors-fixed-entries
73748
a74dceb4b5f8 (authors-fixed-entries): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 73514
diff changeset
182 '(("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
183 ("Joseph Arceneaux" :wrote "xrdb.c")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
184 ("Blitz Product Development Corporation" :wrote "ispell.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
185 ("Frank Bresz" :wrote "diff.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
186 ("David M. Brown" :wrote "array.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
187 ("Gary Byers" :changed "xenix.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
188 ("Shawn M. Carey" :wrote "freebsd.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
189 ("Eric Decker" :changed "hp9000s800.h" "hpux.h" "sysdep.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
190 ("Lawrence R. Dodd" :wrote "dired-x.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
191 ("Viktor Dukhovni" :wrote "unexsunos4.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
192 ("Paul Eggert" :wrote "rcs2log" "vcdiff")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
193 ("Fred Fish" :changed "unexec.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
194 ("Tim Fleehart" :wrote "makefile.nt")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
195 ("Keith Gabryelski" :wrote "hexl.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
196 ("Kevin Gallagher" :wrote "flow-ctrl.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
197 ("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
198 ("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
199 ("David Gillespie" :wrote "cl.texinfo")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
200 ("Hewlett-Packard" :changed "emacsclient.c" "emacsserver.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
201 "server.el" "keyboard.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
202 ("Thomas Horsley" :wrote "cxux.h" "cxux7.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
203 ("Indiana University Foundation" :changed "buffer.c" "buffer.h"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
204 "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
205 ("International Business Machines" :changed "emacs.c" "fileio.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
206 "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
207 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
208 ("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
209 "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
210 "ymakefile" "linux.h")
65441
b0b5aabc3c15 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 64751
diff changeset
211 ("Kyle Jones" :wrote "mldrag.el")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
212 ("Henry Kautz" :wrote "bib-mode.el")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
213 ("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
214 "uaf.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
215 ("Sam Kendall" :changed "etags.c" "etags.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
216 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
217 ("Larry Kolodney" :wrote "cvtmail.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
218 ("Sebastian Kremer" :changed "add-log.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
219 ("Mark Lambert" :changed "process.c" "process.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
220 ("Aaron Larson" :changed "bibtex.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
221 ("James R. Larus" :wrote "mh-e.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
222 ("Lars Lindberg" :changed "dabbrev.el" :wrote "imenu.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
223 ("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
224 "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
225 "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
226 "xselect.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
227 ("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
228 "rmail.el" "rmailedit.el" "rmailkwd.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
229 "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
230 "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
231 ("Niall Mansfield" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
232 ("Brian Marick" :wrote "hideif.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
233 ("Marko Kohtala" :changed "info.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
234 ("Sidney Markowitz" :changed "doctor.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
235 ("Richard Mlynarik" :wrote "env.c" "ehelp.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
236 ("Mosur Mohan" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
237 ("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
238 "vt220.el" "vt240.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
239 ("Motorola" :changed "buff-menu.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
240 ("Hiroshi Nakano" :changed "ralloc.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
241 ("Sundar Narasimhan" :changed "rnewspost.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
242 ("NeXT, Inc." :wrote "unexnext.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
243 ("Mark Neale" :changed "fortran.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
244 ("Martin Neitzel" :changed "sc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
245 ("Andrew Oram" :changed "miscellaneous changes to files in man/"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
246 "man/calendar.texi")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
247 ("Frederic Pierresteguy" :wrote "widget.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
248 ("Michael D. Prange" :changed "tex-mode.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
249 ("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
250 ("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
251 "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
252 "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
253 :wrote "logout.com" "mailemacs.com")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
254 ("Guillermo J. Rozas" :wrote "fakemail.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
255 ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
256 "sort.el" "alloc.c" "callint.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
257 "config.h.in" "crt0.c" "data.c" "fns.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
258 "lisp.h" "lread.c" "sun3.h"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
259 "print.c" "ymakefile" :wrote "float-sup.el" "floatfns.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
260 ("Schlumberger Technology Corporation" :changed "gud.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
261 ("Gregor Schmid" :wrote "tcl-mode.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
262 ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
263 ("William Sommerfeld" :wrote "emacsclient.c" "emacsserver.c" "scribe.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
264 ("Leigh Stoller" :changed "emacsclient.c" "emacsserver.c" "server.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
265 ("Steve Strassman" :wrote "spook.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
266 ("Shinichirou Sugou" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
267 ("Sun Microsystems, Inc" :changed "emacsclient.c" "emacsserver.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
268 "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
269 "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
270 ("Kayvan Sylvan" :changed "sc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
271 ("Spencer Thomas" :changed "emacsclient.c" "emacsserver.c" "server.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
272 "dabbrev.el" "unexec.c" "tcp.c" "gnus.texi")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
273 ("Jonathan Vail" :changed "vc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
274 ("James Van Artsdalen" :changed "usg5-4.h" "unexec.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
275 ("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
276 "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
277 "ntproc.c" "ntterm.c" "windowsnt.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
278 ("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
279 ("Pace Willisson" :wrote "ispell.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
280 ("Garrett Wollman" :changed "sendmail.el")
71215
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
281 ("Dale R. Worley" :changed "mail-extr.el")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
282 ("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
283 "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
284
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
285
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
286 (defconst authors-valid-file-names
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
287 '("aclocal.m4"
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
288 "makedist.bat"
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
289 "make-delta")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
290 "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
291 found) in the repository.")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
292
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
293 (defconst authors-renamed-files-alist
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
294 '(("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
295 ("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
296 ("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
297 ("ntproc.c" . "w32proc.c")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
298 ("w32console.c" . "w32term.c")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
299 ("unexnt.c" . "unexw32.c")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
300 ("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
301 ("config.emacs" . "configure")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
302 ("GETTING.GNU.SOFTWARE" . "FTP")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
303 ("leim-Makefile" . "leim/Makefile")
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
304 ("leim-Makefile.in" . "leim/Makefile.in")
74944
a4a07479f11c (authors-aliases): Anchor FSF alias regexp,
Kim F. Storm <storm@cua.dk>
parents: 74466
diff changeset
305 ("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
306 ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el")
61387
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
307 ("INSTALL-CVS" . "INSTALL.CVS")
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
308 )
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
309 "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
310 Elements are (OLDNAME . NEWNAME).")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
311
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
312 (defconst authors-renamed-files-regexps
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
313 '(("^m/m-\\(.*\\.h\\)$" . "m/\\1")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
314 ("^m-\\(.*\\.h\\)$" . "\\1")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
315 ("^s/s-\\(.*\\.h\\)$" . "s/\\1")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
316 ("^s-\\(.*\\.h\\)$" . "\\1")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
317 ("^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
318 ("\\(.*\\)\\.cmd$" . "\\1.bat")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
319 ("\\.bat$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
320 ("\\.[ch]$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
321 ("\\.el$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
322 ("\\.ps$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
323 ("\\.texi?$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
324 ("\\.texinfo$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
325 ("\\.xml?$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
326 ("\\.x[pb]m$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
327 ("\\.[xp]bm$" . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
328 ("^paths\\." . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
329 ("^install\\." . t)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
330 )
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
331 "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
332 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
333 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
334 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
335
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
336 (defvar authors-checked-files-alist)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
337 (defvar authors-invalid-file-names)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
338
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
339 (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
340 "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
341 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
342 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
343 the file name."
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
344 (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
345 relname
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
346 valid)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
347 (if entry
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
348 (cdr entry)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
349 (setq relname (file-name-nondirectory file))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
350 (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
351 (file-exists-p file)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
352 (file-exists-p relname)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
353 (file-exists-p (concat "etc/" relname)))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
354 (setq valid relname)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
355 (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
356 (if valid
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
357 (setq valid (cdr valid))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
358 (let ((rules authors-renamed-files-regexps))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
359 (while rules
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
360 (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
361 (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
362 (file-name-nondirectory
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
363 (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
364 relname)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
365 rules nil))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
366 (setq rules (cdr rules))))))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
367 (setq authors-checked-files-alist
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
368 (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
369 (unless (or valid
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
370 (string-match "[*]" file)
6a147eb20dc7 (authors-aliases): Add mode aliases.
Kim F. Storm <storm@cua.dk>
parents: 69709
diff changeset
371 (string-match "^[0-9.]+$" file))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49506
diff changeset
372 (setq authors-invalid-file-names
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
373 (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
374 log-file
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
375 (1+ (count-lines (point-min) pos))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
376 file author)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
377 authors-invalid-file-names)))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
378 valid)))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
379
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
380 (defun authors-add-fixed-entries (table)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
381 "Add actions from `authors-fixed-entries' to TABLE."
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
382 (dolist (entry authors-fixed-entries)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
383 (let ((author (car entry))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
384 action)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
385 (dolist (item (cdr entry))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
386 (if (symbolp item)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
387 (setq action item)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
388 (authors-add author item action table))))))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
389
46290
0cd79941b83a (authors-obsolete-file-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 41967
diff changeset
390
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
391 (defun authors-obsolete-file-p (file)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
392 "Return non-nil if FILE is obsolete.
46290
0cd79941b83a (authors-obsolete-file-p): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 41967
diff changeset
393 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
394 from `authors-obsolete-files-regexps'."
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
395 (let (obsolete-p
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
396 (regexps authors-obsolete-files-regexps))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
397 (while (and regexps (not obsolete-p))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
398 (setq obsolete-p (string-match (car regexps) file)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
399 regexps (cdr regexps)))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
400 obsolete-p))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
401
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
402
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
403 (defun authors-add (author file action table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404 "Record that AUTHOR worked on FILE.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405 ACTION is a keyword symbol describing what he did. Record file,
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406 author and what he did in hash table TABLE. See the description of
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 `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
408 (unless (or (member file authors-ignored-files)
48fd09671b41 (authors-aliases): Update list.
Kim F. Storm <storm@cua.dk>
parents: 56970
diff changeset
409 (authors-obsolete-file-p file)
32529
efaa4e4c5fef (authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents: 32028
diff changeset
410 (equal author ""))
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
411 (let* ((value (gethash author table))
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
412 (entry (assoc file value))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
413 slot)
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
414 (if (null entry)
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
415 (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
416 (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
417 (setcdr slot (1+ (cdr slot)))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
418 (nconc entry (list (cons action 1))))))))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
419
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
420
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
421 (defun authors-process-lines (program &rest args)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
422 "Execute PROGRAM with ARGS, returning its output as a list of lines.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
423 Signal an error if the program returns with a non-zero exit status."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
424 (with-temp-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
425 (let ((status (apply 'call-process program nil (current-buffer) nil args)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
426 (unless (eq status 0)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
427 (error "%s exited with status %s" program status))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
428 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
429 (let (lines)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
430 (while (not (eobp))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
431 (setq lines (cons (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
432 (line-beginning-position)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
433 (line-end-position))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
434 lines))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
435 (forward-line 1))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 (nreverse lines)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
438
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
439 (defun authors-canonical-author-name (author)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
440 "Return a canonicalized form of AUTHOR, an author name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441 If AUTHOR has an alias, use that. Remove email addresses. Capitalize
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442 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
443 (let* ((aliases authors-aliases)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
444 regexps realname)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445 (while aliases
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
446 (setq realname (car (car aliases))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
447 regexps (cdr (car aliases))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
448 aliases (cdr aliases))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
449 (while regexps
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
450 (if (string-match (car regexps) author)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
451 (setq author realname
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
452 regexps nil
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
453 aliases nil)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
454 (setq regexps (cdr regexps))))))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
455 (when author
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
456 (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
457 (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
458 (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
459 (setq author (replace-regexp-in-string "[ \t]+" " " author))
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
460 (unless (string-match "[-, \t]" author)
b71fc0f47c9a (authors-aliases): Add more aliases.
Kim F. Storm <storm@cua.dk>
parents: 52921
diff changeset
461 (setq author ""))
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
462 (capitalize author)))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
463
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
464 (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
465 "Scan change log LOG-FILE for author information.
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
466
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
467 For each change mentioned in the log, add an entry to hash table TABLE
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
468 under the author's canonical name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
469
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
470 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
471 \(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
472 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
473 with the file and the number of each action.
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
474
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
475 :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
476 :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
477
85864
07652ce8f3df (authors-scan-change-log)
Glenn Morris <rgm@gnu.org>
parents: 84991
diff changeset
478 (let* ((enable-local-variables :safe)
07652ce8f3df (authors-scan-change-log)
Glenn Morris <rgm@gnu.org>
parents: 84991
diff changeset
479 (enable-local-eval nil)
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
480 (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
481 (buffer (find-file-noselect log-file))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
482 author file pos)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
483 (save-excursion
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
484 (set-buffer buffer)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
485 (save-restriction
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
486 (widen)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
487 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
488 (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
489 (beginning-of-line)
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
490 (setq pos (point))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
491 (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
492 (skip-chars-forward " \t+:0-9-")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
493 (setq author (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
494 (point) (line-end-position)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
495 (setq author (authors-canonical-author-name author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
496 (forward-line 1))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
497 ((looking-at "^[ \t]+\\*")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
498 (let ((line (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
499 (match-end 0) (line-end-position))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
500 (while (and (not (string-match ":" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
501 (forward-line 1)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
502 (not (looking-at ":\\|^[ \t]*$")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
503 (setq line (concat line
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
504 (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
505 (line-beginning-position)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
506 (line-end-position)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
507 (when (string-match ":" line)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
508 (setq line (substring line 0 (match-beginning 0)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
509 (setq line (replace-regexp-in-string "[[(<{].*$" "" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
510 (setq line (replace-regexp-in-string "," "" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511 (dolist (file (split-string line))
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
512 (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
513 ;;(message "%s changed %s" author file)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
514 (authors-add author file :changed table))))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
515 (forward-line 1)))))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
516 (unless existing-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
517 (kill-buffer buffer))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
518
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
519
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
520 (defun authors-scan-el (file table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
521 "Scan Lisp file FILE for author information.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
522 TABLE is a hash table to add author information to."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
523 (let* ((existing-buffer (get-file-buffer file))
85864
07652ce8f3df (authors-scan-change-log)
Glenn Morris <rgm@gnu.org>
parents: 84991
diff changeset
524 (enable-local-variables :safe)
07652ce8f3df (authors-scan-change-log)
Glenn Morris <rgm@gnu.org>
parents: 84991
diff changeset
525 (enable-local-eval nil)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
526 (buffer (find-file-noselect file)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
527 (save-excursion
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
528 (set-buffer buffer)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
529 (save-restriction
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
530 (widen)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
531 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
532 (while (and (re-search-forward
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
533 "^;+[ \t]*\\(Author\\|Commentary\\):[ \t]*" nil t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
534 (not (string= (match-string 1) "Commentary")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
535 ;; Some entries contain a year range in front of the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
536 ;; author's name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
537 (skip-chars-forward "-0-9 \t")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
538 (let ((author (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
539 (point) (line-end-position))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
540 (setq author (authors-canonical-author-name author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
541 (setq file (file-name-nondirectory file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
542 (authors-add author file :wrote table)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
543 (unless existing-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
544 (kill-buffer buffer))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
545
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
546
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
547 (defun authors-public-domain-p (file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
548 "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
549 (let ((public-domain-p nil)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
550 (list authors-public-domain-files))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
551 (while (and list (not public-domain-p))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
552 (when (string-match (car list) file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
553 (setq public-domain-p t))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
554 (setq list (cdr list)))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
555 public-domain-p))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
556
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
557 (defvar authors-author-list)
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
558
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
559 (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
560 "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
561 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
562 `authors-scan-change-log'.
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
563 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
564 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
565 (when author
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
566 (let ((nchanged 0)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
567 wrote-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
568 changed-list)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
569 (dolist (change changes)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
570 (let ((actions (cdr change))
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
571 (file (car change))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
572 slot)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
573 (if (assq :wrote actions)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
574 (setq wrote-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
575 (cons
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
576 (if (authors-public-domain-p file)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
577 (concat file " (public domain)")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
578 file)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
579 wrote-list))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
580 (setq changed-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
581 (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
582 changed-list)))))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
583 (if wrote-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
584 (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
585 (when changed-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
586 (setq changed-list (sort changed-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
587 (lambda (a b)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
588 (if (= (cdr a) (cdr b))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
589 (string-lessp (car a) (car b))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
590 (> (cdr a) (cdr b))))))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
591 (setq nchanged (length changed-list))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
592 (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
593 (if (> (- nchanged authors-many-files) 2)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
594 (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
595 (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
596 (setq authors-author-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
597 (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
598 authors-author-list)))))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
599
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
600 (defun authors (root)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
601 "Extract author information from change logs and Lisp source files.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
602 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
603 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
604 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
605 buffer *Authors Errors* containing references to unknown files."
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
606 (interactive "DEmacs source directory: ")
36010
c486995553f8 (authors): Expand `root' before running
Dave Love <fx@gnu.org>
parents: 33752
diff changeset
607 (setq root (expand-file-name root))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
608 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*"))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
609 (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
610 (buffer-name "*Authors*")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
611 authors-checked-files-alist
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
612 authors-invalid-file-names)
84991
3cfb77f996c5 lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents: 84990
diff changeset
613 (authors-add-fixed-entries table)
3cfb77f996c5 lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents: 84990
diff changeset
614 (unless (file-exists-p (expand-file-name "src/emacs.c" root))
3cfb77f996c5 lisp/emacs-lisp/authors.el: revert accidentally committed private change.
David Kastrup <dak@gnu.org>
parents: 84990
diff changeset
615 (error "Not the root directory of Emacs: %s" root))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
616 (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
617 (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
618 (message "Scanning %s..." log)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
619 (authors-scan-change-log log table)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
620 (let ((els (authors-process-lines "find" root "-name" "*.el")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
621 (dolist (file els)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
622 (message "Scanning %s..." file)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
623 (authors-scan-el file table)))
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
624 (message "Generating buffer %s..." buffer-name)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
625 (set-buffer (get-buffer-create buffer-name))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
626 (erase-buffer)
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
627 (set-buffer-file-coding-system authors-coding-system)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49506
diff changeset
628 (insert
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
629 "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
630 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
631 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
632 list of their contributions.\n")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
633 (let (authors-author-list a)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
634 (maphash #'authors-add-to-author-list table)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49506
diff changeset
635 (setq authors-author-list
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
636 (sort authors-author-list
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
637 (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
638 (dolist (a authors-author-list)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
639 (let ((author (car a))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
640 (wrote (nth 1 a))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
641 (changed (nth 2 a))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
642 file)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
643 (insert "\n" author ": ")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
644 (when wrote
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
645 (insert "wrote")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
646 (dolist (file wrote)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
647 (if (> (+ (current-column) (length file)) 72)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
648 (insert "\n "))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
649 (insert " " file))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
650 (insert "\n"))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
651 (when changed
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
652 (if wrote
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
653 (insert "and "))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
654 (insert "changed")
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
655 (dolist (file changed)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
656 (if (> (+ (current-column) (length file)) 72)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
657 (insert "\n "))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
658 (insert " " file))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
659 (insert "\n")))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49506
diff changeset
660 (insert "\nLocal" " Variables:\ncoding: "
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
661 (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
662 (message "Generating buffer %s... done" buffer-name)
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
663 (unless noninteractive
49506
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
664 (when authors-invalid-file-names
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
665 (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
666 (erase-buffer)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
667 (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
668 (insert "Unrecognized file entries found:\n\n")
84894
c9d3d80460e9 (authors): Use `mapc' rather than `mapcar'.
Juanma Barranquero <lekktu@gmail.com>
parents: 78217
diff changeset
669 (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
670 (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
671 (goto-char (point-min))
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
672 (compilation-mode)
ac9e2eeeb03d New format of AUTHORS file; list each
Kim F. Storm <storm@cua.dk>
parents: 49469
diff changeset
673 (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
674 (pop-to-buffer buffer-name))))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
675
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
676
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
677 (defun batch-update-authors ()
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
678 "Produce an AUTHORS file.
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
679 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
680 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
681 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
682 (unless noninteractive
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
683 (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
684 (when (/= (length command-line-args-left) 2)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
685 (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
686 (let* ((file (pop command-line-args-left))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
687 (root (pop command-line-args-left)))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
688 (authors root)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
689 (write-file file)))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
690
76951
c08b3dd3e465 (top-level): Provide self.
Glenn Morris <rgm@gnu.org>
parents: 76318
diff changeset
691 (provide 'authors)
c08b3dd3e465 (top-level): Provide self.
Glenn Morris <rgm@gnu.org>
parents: 76318
diff changeset
692
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
693 ;;; 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
694 ;;; authors.el ends here