annotate lisp/emacs-lisp/authors.el @ 88414:fad0f879877f

Call define-coding-system instead of make-coding-system. All CCL program deleted.
author Kenichi Handa <handa@m17n.org>
date Fri, 01 Mar 2002 02:28:29 +0000
parents 8a9386a43e41
children 0cd79941b83a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; authors.el --- utility for maintaining Emacs' AUTHORS file
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 2000 Free Software Foundation, Inc.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4
33752
9ebf8de0e42c Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents: 33151
diff changeset
5 ;; Author: Gerd Moellmann <gerd@gnu.org>
9ebf8de0e42c Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents: 33151
diff changeset
6 ;; Maintainer: FSF
9ebf8de0e42c Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents: 33151
diff changeset
7 ;; Keywords: maint
9ebf8de0e42c Remove autoload cookied, add author,
Gerd Moellmann <gerd@gnu.org>
parents: 33151
diff changeset
8
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; any later version.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 ;; 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
29 ;; or merged with Emacs' AUTHORS file.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31 ;;; Code:
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 (defconst authors-many-files 20
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 "Maximum number of files for which to print individual information.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 If an author has modified more files, only a single entry is
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 printed telling how many files he changed, instead of listing each
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 file individually.")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 (defconst authors-aliases
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 '(("eliz" . "Eli Zaretskii")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 ("Richard Stallman" . "Richard M. Stallman")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 ("Richard M. Stallman,,," . "Richard M. Stallman")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ("rms@gnu.org" . "Richard M. Stallman")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 ("NIIBE Yutaka" . "Yutaka NIIBE")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 ("(saw@cebaf.gov)" . "Stephen A. Wood")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 ("(pmr@legacy.pajato.com)" . "Paul Reilly")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 ("(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)" . "Eric Youngdale")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 ("<Daniel.Pfeiffer@Informatik.START.db.de>" . "Daniel Pfeiffer")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 ("<Daniel.Pfeiffer@Informatik.START.dbp.de>" . "Daniel Pfeiffer")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 ("(afs@hplb.hpl.hp.com)" . "ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 ("<Use-Author-Address-Header@\\[127.1\\]>" . "ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 ("Code Extracted" . "ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 ("Fsf" . "ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 ("David M. Koppelman, Koppel@Ee.Lsu.Edu" . "David M. Koppelman")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 ("jka@ece.cmu.edu" . "Jay K. Adams")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 ("Per Abhiddenware; you can redistribute it and/or modify" . "Per Abrahamsen")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 ("Andrw Innes" . "Andrew Innes")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 ("Barry Warsaw" . "Barry A. Warsaw")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 ("Barry A. Warsaw, Century Computing, Inc." . "Barry A. Warsaw")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 ("Barry A. Warsaw, ITB" . "Barry A. Warsaw")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 ("Ken'ichi Handa" . "Kenichi Handa")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 ("Bob Chassell" . "Robert J. Chassell")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 ("SL Baur" . "Steven L. Baur")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 ("Steven L Baur" . "Steven L. Baur")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 ("eggert" . "Paul Eggert")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 ("voelker" . "Geoff Voelker")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 ("rms" . "Richard M. Stallman")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 ("Edward M Reingold" . "Edward M. Reingold")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 ("Eric Ludlam" . "Eric M. Ludlam")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 ("Eric Raymond" . "Eric S. Raymond")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 ("Francois Pinard" . "François Pinard")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 ("Fred Pierresteguy" . "Frederic Pierresteguy")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 ("Hallvard B Furuseth" . "Hallvard B. Furuseth")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 ("ISO-2022-JP" . "ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 ("Jens-Ulrik Petersen" . "Jens-Ulrik Holger Petersen")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 ("Christoph.Wedler@sap.com" . "Christoph Wedler")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 ("Jonathan Kamens" . "Jonathan I. Kamens")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 ("Kim Storm" . "Kim F. Storm")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 ("Marcus Daniels" . "Marcus G. Daniels")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 ("Michael I Bushnell" . "Michael I. Bushnell")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 ("Michael I. Bushnell, P/Bsg" . "Michael I. Bushnell")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 ("Reingold Edward M" . "Edward M. Reingold")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 ("Roland B Roberts" . "Roland B. Roberts")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 ("Sam Shteingold" . "Sam Steingold")
32832
1ce7dce8710b (authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents: 32529
diff changeset
85 ("W{\L}Odek Bzyl" . "Wlodzimierz Bzyl")
1ce7dce8710b (authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents: 32529
diff changeset
86 ("Kenneth Manheimer" . "Ken Manheimer")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
87 ("Kenichi HANDA" . "Kenichi Handa")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
88 ("Jay Adams" . "Jay R. Adams")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
89 ("Joe Arceneaux" . "Josef Arceneaux")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
90 ("K. Berry" . "Karl Berry")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
91 ("Michael Ernst" . "Michael D. Ernst")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
92 ("Dave Gillespie" . "David Gillespie")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
93 ("Shane Hartman" . "K. Shane Hartman")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
94 ("Francesco Potorti`" . "Francesco Potorti")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
95 ("Roland Roberts" . "Roland B. Roberts")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
96 ("David Smith" . "David M. Smith")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
97 )
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 "Alist of author aliases.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 Each entry is of the form (REGEXP . ALIAS). If an author's name
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 matches REGEXP, use ALIAS instead. The special alias \"ignore\" means
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 ignore that author.")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
105 (defvar authors-public-domain-files
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
106 '("auto-show\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
107 "form-d2\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
108 "emerge\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
109 "unused\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
110 "vi\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
111 "feedmail\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
112 "mailpost\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
113 "hanoi\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
114 "meese\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
115 "studly\\.el"
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
116 "modula2\\.el")
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
117 "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
118
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
119
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
120 (defvar authors-obsolete-files-regexps
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
121 '("vc-\\*\\.el$"
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
122 "spec.txt$"
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
123 "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
124 "List of regexps matching obsolete files.
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
125 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
126 listed.")
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
127
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
128
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
129 (defconst authors-fixed-entries
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
130 '(("Joe Arceneax" :wrote "xrdb.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
131 ("Blitz Product Development Corporation" :wrote "ispell.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
132 ("Frank Bresz" :wrote "diff.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
133 ("David M. Brown" :wrote "array.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
134 ("Gary Byers" :changed "xenix.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
135 ("Shawn M. Carey" :wrote "freebsd.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
136 ("Eric Decker" :changed "hp9000s800.h" "hpux.h" "sysdep.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
137 ("Lawrence R. Dodd" :wrote "dired-x.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
138 ("Viktor Dukhovni" :wrote "unexsunos4.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
139 ("Paul Eggert" :wrote "rcs2log" "vcdiff")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
140 ("Fred Fish" :changed "unexec.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
141 ("Tim Fleehart" :wrote "makefile.nt")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
142 ("Keith Gabryelski" :wrote "hexl.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
143 ("Kevin Gallagher" :wrote "flow-ctrl.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
144 ("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
145 ("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
146 ("David Gillespie" :wrote "cl.texinfo")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
147 ("Hewlett-Packard" :changed "emacsclient.c" "emacsserver.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
148 "server.el" "keyboard.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
149 ("Thomas Horsley" :wrote "cxux.h" "cxux7.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
150 ("Indiana University Foundation" :changed "buffer.c" "buffer.h"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
151 "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
152 ("International Business Machines" :changed "emacs.c" "fileio.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
153 "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
154 ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
155 ("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
156 "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
157 "ymakefile" "linux.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
158 ("Kyle E. Jones" :wrote "mldrag.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
159 ("Kenry Kautz" :wrote "bib-mode.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
160 ("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
161 "uaf.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
162 ("Sam Kendall" :changed "etags.c" "etags.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
163 ("Richard King" :wrote "backquote.el" "userlock.el" "filelock.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
164 ("Larry Kolodney" :wrote "cvtmail.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
165 ("Sebastian Kremer" :changed "add-log.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
166 ("Mark Lambert" :changed "process.c" "process.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
167 ("Aaron Larson" :changed "bibtex.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
168 ("James R. Larus" :wrote "mh-e.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
169 ("Lars Lindberg" :changed "dabbrev.el" :wrote "imenu.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
170 ("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
171 "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
172 "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
173 "xselect.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
174 ("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
175 "rmail.el" "rmailedit.el" "rmailkwd.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
176 "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
177 "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
178 ("Niall Mansfield" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
179 ("Brian Marick" :wrote "hideif.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
180 ("Marko Kohtala" :changed "info.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
181 ("Sidney Markowitz" :changed "doctor.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
182 ("Richard Mlynarik" :wrote "env.c" "ehelp.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
183 ("Mosur Mohan" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
184 ("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
185 "vt220.el" "vt240.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
186 ("Motorola" :changed "buff-menu.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
187 ("Hiroshi Nakano" :changed "ralloc.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
188 ("Sundar Narasimhan" :changed "rnewspost.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
189 ("NeXT, Inc." :wrote "unexnext.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
190 ("Mark Neale" :changed "fortran.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
191 ("Martin Neitzel" :changed "sc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
192 ("Andrew Oram" :changed "miscellaneous changes to files in man/"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
193 "man/calendar.texi")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
194 ("Frederic Pierresteguy" :wrote "widget.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
195 ("Michael D. Prange" :changed "tex-mode.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
196 ("Paul Reilly" :wrote "gux5-4r2.h" "dgux5-4r3.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
197 ("Roland B Roberts" :changed "files.el" "sort.el" "vmsproc.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
198 "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
199 "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
200 :wrote "logout.com" "mailemacs.com")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
201 ("Guillermo J. Rozas" :wrote "fakemail.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
202 ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
203 "sort.el" "alloc.c" "callint.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
204 "config.h.in" "crt0.c" "data.c" "fns.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
205 "lisp.h" "lread.c" "sun3.h"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
206 "print.c" "ymakefile" :wrote "float-sup.el" "floatfns.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
207 ("Schlumberger Technology Corporation" :changed "gud.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
208 ("Gregor Schmid" :wrote "tcl-mode.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
209 ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
210 ("William Sommerfeld" :wrote "emacsclient.c" "emacsserver.c" "scribe.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
211 ("Leigh Stoller" :changed "emacsclient.c" "emacsserver.c" "server.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
212 ("Steve Strassman" :wrote "spook.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
213 ("Shinichirou Sugou" :changed "etags.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
214 ("Sun Microsystems, Inc" :changed "emacsclient.c" "emacsserver.c"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
215 "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
216 "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
217 ("Kayvan Sylvan" :changed "sc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
218 ("Spencer Thomas" :changed "emacsclient.c" "emacsserver.c" "server.el"
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
219 "dabbrev.el" "unexec.c" "tcp.c" "gnus.texi")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
220 ("Jonathan Vail" :changed "vc.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
221 ("James Van Artsdalen" :changed "usg5-4.h" "unexec.c")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
222 ("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
223 "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
224 "ntproc.c" "ntterm.c" "windowsnt.h")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
225 ("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
226 ("Pace Willisson" :wrote "ispell.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
227 ("Garrett Wollman" :changed "sendmail.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
228 ("Dale Worley" :changed "mail-extr.el")
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
229 ("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
230 "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
231
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
232
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
233 (defun authors-add-fixed-entries (table)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
234 "Add actions from `authors-fixed-entries' to TABLE."
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
235 (dolist (entry authors-fixed-entries)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
236 (let ((author (car entry))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
237 action)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
238 (dolist (item (cdr entry))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
239 (if (symbolp item)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
240 (setq action item)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
241 (authors-add author item action table))))))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
242
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
243
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
244 (defun authors-obsolete-file-p (file)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
245 "Return non-nil if FILE is obsolete.
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
246 FILE is considered obsolete if it matches on of the regular expressions
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
247 from `authors-obsolete-files-regexps'."
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
248 (let (obsolete-p
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
249 (regexps authors-obsolete-files-regexps))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
250 (while (and regexps (not obsolete-p))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
251 (setq obsolete-p (string-match (car regexps) file)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
252 regexps (cdr regexps)))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
253 obsolete-p))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
254
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
255
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
256 (defun authors-add (author file action table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
257 "Record that AUTHOR worked on FILE.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258 ACTION is a keyword symbol describing what he did. Record file,
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 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
260 `authors-scan-change-log' for the structure of the hash table."
32529
efaa4e4c5fef (authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents: 32028
diff changeset
261 (unless (or (authors-obsolete-file-p file)
efaa4e4c5fef (authors-add): Don't add an entry if
Gerd Moellmann <gerd@gnu.org>
parents: 32028
diff changeset
262 (equal author ""))
32028
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
263 (let* ((value (gethash author table))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
264 (entry (assoc file value)))
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
265 (if (null entry)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
266 (puthash author (cons (list file action) value) table)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
267 (unless (memq action entry)
1bb0e9c9c64d (authors-obsolete-file-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32005
diff changeset
268 (nconc entry (list action)))))))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271 (defun authors-process-lines (program &rest args)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272 "Execute PROGRAM with ARGS, returning its output as a list of lines.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 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
274 (with-temp-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275 (let ((status (apply 'call-process program nil (current-buffer) nil args)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
276 (unless (eq status 0)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
277 (error "%s exited with status %s" program status))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
278 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
279 (let (lines)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
280 (while (not (eobp))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
281 (setq lines (cons (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
282 (line-beginning-position)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 (line-end-position))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
284 lines))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
285 (forward-line 1))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
286 (nreverse lines)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 (defun authors-canonical-author-name (author)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290 "Return a canonicalized form of AUTHOR, an author name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
291 If AUTHOR has an alias, use that. Remove email addresses. Capitalize
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
292 words in the author's name."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
293 (let ((aliases authors-aliases))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
294 (while aliases
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 (when (string-match (car (car aliases)) author)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296 (setq author (cdr (car aliases))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297 aliases nil))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298 (setq aliases (cdr aliases))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299 (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300 (setq author (replace-regexp-in-string "^[ \t]+" "" author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301 (setq author (replace-regexp-in-string "[ \t]+$" "" author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302 (capitalize author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
303
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
304
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
305 (defun authors-scan-change-log (file table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
306 "Scan change log FILE for author information.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
307
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
308 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
309 under the author's canonical name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311 Keys of TABLE are author names. Values are alists of entries (FILE
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
312 ACTION...). FILE is one file the author worked on. The rest of the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
313 entry is a list of keyword symbols describing what he did with the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 file.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 :wrote means the author wrote the file
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 :changed means he changed the file."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319 (let* ((enable-local-variables t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 (enable-local-eval t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 (existing-buffer (get-file-buffer file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
322 (buffer (find-file-noselect file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323 author)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324 (save-excursion
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325 (set-buffer buffer)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326 (save-restriction
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327 (widen)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330 (beginning-of-line)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 (skip-chars-forward " \t+:0-9-")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 (setq author (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 (point) (line-end-position)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335 (setq author (authors-canonical-author-name author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
336 (forward-line 1))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
337 ((looking-at "^[ \t]+\\*")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
338 (let ((line (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
339 (match-end 0) (line-end-position))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 (while (and (not (string-match ":" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341 (forward-line 1)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 (not (looking-at ":\\|^[ \t]*$")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 (setq line (concat line
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345 (line-beginning-position)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
346 (line-end-position)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
347 (when (string-match ":" line)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348 (setq line (substring line 0 (match-beginning 0)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349 (setq line (replace-regexp-in-string "[[(<{].*$" "" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
350 (setq line (replace-regexp-in-string "," "" line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351 (dolist (file (split-string line))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 (setq file (file-name-nondirectory file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 ;(message "%s changed %s" author file)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354 (authors-add author file :changed table)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355 (forward-line 1)))))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
356 (unless existing-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357 (kill-buffer buffer))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
358
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
359
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
360 (defun authors-scan-el (file table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
361 "Scan Lisp file FILE for author information.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
362 TABLE is a hash table to add author information to."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
363 (let* ((existing-buffer (get-file-buffer file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
364 (enable-local-variables t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
365 (enable-local-eval t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
366 (buffer (find-file-noselect file)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
367 (save-excursion
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
368 (set-buffer buffer)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
369 (save-restriction
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
370 (widen)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
371 (goto-char (point-min))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
372 (while (and (re-search-forward
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
373 "^;+[ \t]*\\(Author\\|Commentary\\):[ \t]*" nil t)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
374 (not (string= (match-string 1) "Commentary")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
375 ;; Some entries contain a year range in front of the
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
376 ;; author's name.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
377 (skip-chars-forward "-0-9 \t")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
378 (let ((author (buffer-substring-no-properties
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
379 (point) (line-end-position))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
380 (setq author (authors-canonical-author-name author))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
381 (setq file (file-name-nondirectory file))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
382 (authors-add author file :wrote table)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
383 (unless existing-buffer
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
384 (kill-buffer buffer))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
385
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
386
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
387 (defun authors-public-domain-p (file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
388 "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
389 (let ((public-domain-p nil)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
390 (list authors-public-domain-files))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
391 (while (and list (not public-domain-p))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
392 (when (string-match (car list) file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
393 (setq public-domain-p t))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
394 (setq list (cdr list)))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
395 public-domain-p))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
396
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
397
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
398 (defun authors-print (author changes)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
399 "Insert information about AUTHOR's work on Emacs into the current buffer.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
400 CHANGES is an alist of entries (FILE ACTION...), as produced by
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
401 `authors-scan-change-log'."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
402 (unless (equal author "Ignore")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
403 (let ((nchanged 0))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404 (dolist (change changes)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405 (let ((actions (cdr change))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406 (file (car change)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 (if (memq :wrote actions)
33151
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
408 (progn
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
409 (insert author " (wrote) " file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
410 (when (authors-public-domain-p file)
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
411 (insert " (public domain)"))
452df6342ae5 (authors-public-domain-files): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 32885
diff changeset
412 (insert "\n"))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
413 (setq nchanged (1+ nchanged)))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
414 (if (> nchanged authors-many-files)
32005
01a7fea88dc1 (authors-print): Rephrase many-files string.
Miles Bader <miles@gnu.org>
parents: 31957
diff changeset
415 (insert author " (changed) [more than "
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
416 (int-to-string authors-many-files) " files]\n")
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
417 (dolist (change changes)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
418 (let ((actions (cdr change))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
419 (file (car change)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
420 (unless (memq :wrote actions)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
421 (insert author " (changed) " file "\n"))))))))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
422
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
423
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
424 (defun authors (root)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
425 "Extract author information from change logs and Lisp source files.
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
426 ROOT is the root directory under which to find the files. If called
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
427 interactively, ROOT is read from the minibuffer. Result is a
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
428 buffer *Authors* containing authorship information."
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
429 (interactive "DEmacs source directory: ")
36010
c486995553f8 (authors): Expand `root' before running
Dave Love <fx@gnu.org>
parents: 33752
diff changeset
430 (setq root (expand-file-name root))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
431 (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*"))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
432 (table (make-hash-table :test 'equal))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
433 (buffer-name "*Authors*"))
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
434 (authors-add-fixed-entries table)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
435 (unless (file-exists-p (expand-file-name "src/emacs.c" root))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 (error "Not the root directory of Emacs: %s" root))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437 (dolist (log logs)
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
438 (when (and (string-match "ChangeLog\\(.[0-9]+\\)?$" log)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
439 (not (string-match "/lispref/" log)))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
440 (message "Scanning %s..." log)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441 (authors-scan-change-log log table)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442 (let ((els (authors-process-lines "find" root "-name" "*.el")))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
443 (dolist (file els)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
444 (message "Scanning %s..." file)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445 (authors-scan-el file table)))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
446 (set-buffer (get-buffer-create buffer-name))
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
447 (erase-buffer)
32832
1ce7dce8710b (authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents: 32529
diff changeset
448 (set-buffer-file-coding-system 'iso-2022-7bit)
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
449 (maphash #'authors-print table)
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
450 (sort-lines nil (point-min) (point-max))
32832
1ce7dce8710b (authors-aliases): Add some more aliases.
Gerd Moellmann <gerd@gnu.org>
parents: 32529
diff changeset
451 (insert "\nLocal" " Variables:\ncoding: iso-2022-7bit\nEnd:\n")
32885
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
452 (unless noninteractive
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
453 (pop-to-buffer buffer-name))))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
454
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
455
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
456 (defun batch-update-authors ()
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
457 "Produce an AUTHORS file.
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
458 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
459 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
460 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
461 (unless noninteractive
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
462 (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
463 (when (/= (length command-line-args-left) 2)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
464 (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
465 (let* ((file (pop command-line-args-left))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
466 (root (pop command-line-args-left)))
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
467 (authors root)
c5fc43371c70 (batch-update-authors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32832
diff changeset
468 (write-file file)))
30790
fa166d86d278 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
469
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 36010
diff changeset
470 ;;; authors.el ends here