Rename INSTALL.BZR to UNSTALL.REPOm and carry that through in other files.

[bpt/emacs.git] / lisp / emacs-lisp / authors.el

diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 636bc23..1956a33 100644 (file)
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -1,6 +1,6 @@
-;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: utf-8;-*-
+;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8 -*-

 
 

-;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2014 Free Software Foundation, Inc.

 
 ;; Author: Gerd Moellmann <gerd@gnu.org>
 ;; Maintainer: Kim F. Storm <storm@cua.dk>
 
 ;; Author: Gerd Moellmann <gerd@gnu.org>
 ;; Maintainer: Kim F. Storm <storm@cua.dk>


@@ -25,7 +25,7 @@
 ;;; Commentary:
 
 ;; Use M-x authors RET to create an *Authors* buffer that can used as
 ;;; Commentary:
 
 ;; Use M-x authors RET to create an *Authors* buffer that can used as

-;; or merged with Emacs' AUTHORS file.
+;; or merged with Emacs's AUTHORS file.

 
 ;;; Code:
 
 
 ;;; Code:
 


@@ -51,6 +51,7 @@ files.")
     ("Bill Rozas" "Guillermo J. Rozas")
     ("Björn Torkelsson" "Bjorn Torkelsson")
     ("Brian Fox" "Brian J. Fox")
     ("Bill Rozas" "Guillermo J. Rozas")
     ("Björn Torkelsson" "Bjorn Torkelsson")
     ("Brian Fox" "Brian J. Fox")

+    ("Brian P Templeton" "BT Templeton")

     ("Brian Sniffen" "Brian T. Sniffen")
     ("Christoph Wedler" "Christoph.Wedler@sap.com")
     ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>"
     ("Brian Sniffen" "Brian T. Sniffen")
     ("Christoph Wedler" "Christoph.Wedler@sap.com")
     ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>"


@@ -81,6 +82,8 @@ files.")
     ("Gerd Möllmann" "Gerd Moellmann")
     ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
     ("Hrvoje Nikšić" "Hrvoje Niksic")
     ("Gerd Möllmann" "Gerd Moellmann")
     ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
     ("Hrvoje Nikšić" "Hrvoje Niksic")

+    ;; lisp/org/ChangeLog 2010-11-11.
+    (nil "aaa bbb")

     ;; src/ChangeLog.4, 1994-01-11, since fixed.
 ;;;    (nil "(afs@hplb.hpl.hp.com)")
     ;; lisp/gnus/ChangeLog.1, 1998-01-15.
     ;; src/ChangeLog.4, 1994-01-11, since fixed.
 ;;;    (nil "(afs@hplb.hpl.hp.com)")
     ;; lisp/gnus/ChangeLog.1, 1998-01-15.


@@ -100,6 +103,7 @@ files.")
     ("John J Foerch" "John Foerch")
     ("John W. Eaton" "John Eaton")
     ("Jonathan I. Kamens" "Jonathan Kamens")
     ("John J Foerch" "John Foerch")
     ("John W. Eaton" "John Eaton")
     ("Jonathan I. Kamens" "Jonathan Kamens")

+    ("Jorgen Schäfer" "Jorgen Schaefer")

     ("Joseph Arceneaux" "Joe Arceneaux")
     ("Joseph M. Kelsey" "Joe Kelsey")  ; FIXME ?
     ("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")
     ("Joseph Arceneaux" "Joe Arceneaux")
     ("Joseph M. Kelsey" "Joe Kelsey")  ; FIXME ?
     ("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")


@@ -119,7 +123,7 @@ files.")
     ("Marcus G. Daniels" "Marcus Daniels")
     ("Mark D. Baushke" "Mark D Baushke")
     ("Marko Kohtala" "Kohtala Marko")
     ("Marcus G. Daniels" "Marcus Daniels")
     ("Mark D. Baushke" "Mark D Baushke")
     ("Marko Kohtala" "Kohtala Marko")

-    ("Agustín Martín" "Agustin Martin")
+    ("Agustín Martín" "Agustin Martin" "Agustín Martín Domingo")

     ("Martin Lorentzon" "Martin Lorentzson")
     ("Matt Swift" "Matthew Swift")
     ("Maxime Edouard Robert Froumentin" "Max Froumentin")
     ("Martin Lorentzon" "Martin Lorentzson")
     ("Matt Swift" "Matthew Swift")
     ("Maxime Edouard Robert Froumentin" "Max Froumentin")


@@ -142,6 +146,8 @@ files.")
     ("Peter S. Galbraith" "Peter Galbraith")
     ("Peter Runestig" "Peter 'luna' Runestig")
     ("Peter S. Galbraith" "Peter S Galbraith")
     ("Peter S. Galbraith" "Peter Galbraith")
     ("Peter Runestig" "Peter 'luna' Runestig")
     ("Peter S. Galbraith" "Peter S Galbraith")

+    ("Piotr Zieliński" "Piotr Zielinski")
+    ("Rainer Schöpf" "Rainer Schoepf")

     ("Raja R. Harinath" "Raja R Harinath")
     ("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski")
     ("Richard King" "Dick King")
     ("Raja R. Harinath" "Raja R Harinath")
     ("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski")
     ("Richard King" "Dick King")


@@ -168,11 +174,13 @@ files.")
     ("Thomas Dye" "Tom Dye")
     ("Thomas Horsley" "Tom Horsley")   ; FIXME ?
     ("Thomas Wurgler" "Tom Wurgler")
     ("Thomas Dye" "Tom Dye")
     ("Thomas Horsley" "Tom Horsley")   ; FIXME ?
     ("Thomas Wurgler" "Tom Wurgler")

+    ("Toby Cubitt" "Toby S\\. Cubitt")

     ("Tomohiko Morioka" "MORIOKA Tomohiko")
     ("Torbjörn Axelsson" "Torbjvrn Axelsson")
     ("Torbjörn Einarsson" "Torbj.*rn Einarsson")
     ("Toru Tomabechi" "Toru Tomabechi,")
     ("Tsugutomo Enami" "enami tsugutomo")
     ("Tomohiko Morioka" "MORIOKA Tomohiko")
     ("Torbjörn Axelsson" "Torbjvrn Axelsson")
     ("Torbjörn Einarsson" "Torbj.*rn Einarsson")
     ("Toru Tomabechi" "Toru Tomabechi,")
     ("Tsugutomo Enami" "enami tsugutomo")

+    ("Ulrich Müller" "Ulrich Mueller")

     ("Vincent Del Vecchio" "Vince Del Vecchio")
     ("William M. Perry" "Bill Perry")
     ("Wlodzimierz Bzyl" "W.*dek Bzyl")
     ("Vincent Del Vecchio" "Vince Del Vecchio")
     ("William M. Perry" "Bill Perry")
     ("Wlodzimierz Bzyl" "W.*dek Bzyl")


@@ -186,28 +194,37 @@ Each entry is of the form (REALNAME REGEXP...).  If an author's name
 matches one of the REGEXPs, use REALNAME instead.
 If REALNAME is nil, ignore that author.")
 
 matches one of the REGEXPs, use REALNAME instead.
 If REALNAME is nil, ignore that author.")
 

+;; FIXME seems it would be less fragile to check for O', Mc, etc.

 (defconst authors-fixed-case
 (defconst authors-fixed-case

-  '("Bryan O'Sullivan"
+  '("Brian van den Broek"
+    "Bryan O'Sullivan"

     "Christian von Roques"
     "Christophe de Dinechin"
     "Craig McDaniel"
     "David J. MacKenzie"
     "David McCabe"
     "David O'Toole"
     "Christian von Roques"
     "Christophe de Dinechin"
     "Craig McDaniel"
     "David J. MacKenzie"
     "David McCabe"
     "David O'Toole"

+    "Devon Sean McCullough"

     "Dominique de Waleffe"
     "Edward O'Connor"
     "Exal de Jesus Garcia Carrillo"
     "Greg McGary"
     "Hans de Graaff"
     "James TD Smith"
     "Dominique de Waleffe"
     "Edward O'Connor"
     "Exal de Jesus Garcia Carrillo"
     "Greg McGary"
     "Hans de Graaff"
     "James TD Smith"

+    "Jay McCarthy"

     "Joel N. Weber II"
     "Joel N. Weber II"

+    "Matt McClure"

     "Michael McNamara"
     "Mike McEwan"
     "Nelson Jose dos Santos Ferreira"
     "Peter von der Ahe"
     "Peter O'Gorman"
     "Michael McNamara"
     "Mike McEwan"
     "Nelson Jose dos Santos Ferreira"
     "Peter von der Ahe"
     "Peter O'Gorman"

+    "Piet van Oostrum"

     "Roland McGrath"
     "Roland McGrath"

-    "Sean O'Rourke")
+    "Sean O'Halpin"
+    "Sean O'Rourke"
+    "Thomas DeWeese"
+    "Tijs van Bakel")

   "List of authors whose names cannot be simply capitalized.")
 
 (defvar authors-public-domain-files
   "List of authors whose names cannot be simply capitalized.")
 
 (defvar authors-public-domain-files


@@ -235,7 +252,7 @@ If REALNAME is nil, ignore that author.")
     "\\.\\(cvs\\|git\\)ignore$"                ; obsolete or uninteresting
     "\\.arch-inventory$"
     ;; TODO lib/? Matches other things?
     "\\.\\(cvs\\|git\\)ignore$"                ; obsolete or uninteresting
     "\\.arch-inventory$"
     ;; TODO lib/? Matches other things?

-    "m4/" "Emacs.xcodeproj" "charsets" "mapfiles"
+    "build-aux/" "m4/" "Emacs.xcodeproj" "charsets" "mapfiles"

     "preferences\\.\\(nib\\|gorm\\)"
     "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
   "List of regexps matching obsolete files.
     "preferences\\.\\(nib\\|gorm\\)"
     "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
   "List of regexps matching obsolete files.


@@ -271,6 +288,11 @@ Changes to files matching one of the regexps in this list are not listed.")
     ;; Autogen:
     "cus-load.el" "finder-inf.el" "ldefs-boot.el"
     "compile" "config.guess" "config.sub" "depcomp"
     ;; Autogen:
     "cus-load.el" "finder-inf.el" "ldefs-boot.el"
     "compile" "config.guess" "config.sub" "depcomp"

+    "autogen/compile" "autogen/config.guess" "autogen/config.in"
+    "autogen/config.sub" "autogen/depcomp" "autogen/install-sh"
+    "autogen/missing" "autogen"
+    "autogen/copy_autogen" ; not generated, but trivial and now removed
+    "dir_top"

     ;; Only existed briefly, then renamed:
     "images/icons/allout-widgets-dark-bg"
     "images/icons/allout-widgets-light-bg"
     ;; Only existed briefly, then renamed:
     "images/icons/allout-widgets-dark-bg"
     "images/icons/allout-widgets-light-bg"


@@ -283,9 +305,17 @@ Changes to files matching one of the regexps in this list are not listed.")
     "NICKLES.WORTH" "INTERVAL.IDEAS" "RCP"
     "3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX"
     "CODINGS" "CHARSETS"
     "NICKLES.WORTH" "INTERVAL.IDEAS" "RCP"
     "3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX"
     "CODINGS" "CHARSETS"

-    "calc/INSTALL" "calc/Makefile"
+    "calc/INSTALL" "calc/Makefile" "calc/README.prev"

     "vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" ; admin/
     "emacsver.texi.in"
     "vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" ; admin/
     "emacsver.texi.in"

+    "vpath.sed"
+    "Cocoa/Emacs.base/Contents/Info.plist"
+    "Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
+    "GNUstep/Emacs.base/Resources/Info-gnustep.plist"
+    "GNUstep/Emacs.base/Resources/Emacs.desktop"
+    "Cocoa/Emacs.base/Contents/Resources/English.lproj"
+    ;; Only existed briefly, then deleted:
+    "coccinelle/overlay.cocci" "coccinelle/symbol.cocci"

     ;; MH-E stuff not in Emacs:
     "import-emacs" "release-utils"
     ;; Erc stuff not in Emacs:
     ;; MH-E stuff not in Emacs:
     "import-emacs" "release-utils"
     ;; Erc stuff not in Emacs:


@@ -312,6 +342,15 @@ Changes to files matching one of the regexps in this list are not listed.")
     "debian/scripts/startup"
     "debian/scripts/startup.erc"
     "debian/scripts/startup.erc-speak"
     "debian/scripts/startup"
     "debian/scripts/startup.erc"
     "debian/scripts/startup.erc-speak"

+    ;; Used to be in admin, not very interesting.
+    "emacs-pretesters" "make-announcement" "make-changelog-diff"
+    ;; Generated files that have since been removed.
+    "refcards/calccard.pdf" "refcards/cs-dired-ref.pdf" "refcards/cs-refcard.pdf"
+    "refcards/de-refcard.pdf" "refcards/dired-ref.pdf" "refcards/fr-dired-ref.pdf"
+    "refcards/fr-refcard.pdf" "refcards/gnus-booklet.pdf" "refcards/gnus-refcard.pdf"
+    "refcards/orgcard.pdf" "refcards/pl-refcard.pdf" "refcards/pt-br-refcard.pdf"
+    "refcards/refcard.pdf" "refcards/ru-refcard.pdf" "refcards/sk-dired-ref.pdf"
+    "refcards/sk-refcard.pdf"

     )
   "List of files and directories to ignore.
 Changes to files in this list are not listed.")
     )
   "List of files and directories to ignore.
 Changes to files in this list are not listed.")


@@ -390,7 +429,7 @@ Changes to files in this list are not listed.")
     ("Lawrence R. Dodd" :cowrote "dired-x.el")
     ;; No longer distributed.
 ;;;    ("Viktor Dukhovni" :wrote "unexsunos4.c")
     ("Lawrence R. Dodd" :cowrote "dired-x.el")
     ;; No longer distributed.
 ;;;    ("Viktor Dukhovni" :wrote "unexsunos4.c")

-    ("Paul Eggert" :wrote "rcs2log" "vcdiff")
+    ("Paul Eggert" :wrote "rcs2log") ; "vcdiff"

     ("Fred Fish" :changed "unexcoff.c")
     ;; No longer distributed.
 ;;;    ("Tim Fleehart" :wrote "makefile.nt")
     ("Fred Fish" :changed "unexcoff.c")
     ;; No longer distributed.
 ;;;    ("Tim Fleehart" :wrote "makefile.nt")


@@ -418,7 +457,7 @@ Changes to files in this list are not listed.")
     ;; No longer distributed.
 ;;;    ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h")
     ;; ymakefile no longer distributed.
     ;; No longer distributed.
 ;;;    ("Ishikawa Chiaki" :changed "aviion.h" "dgux.h")
     ;; ymakefile no longer distributed.

-    ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h"
+    ("Michael K. Johnson" :changed "configure.ac" "emacs.c" "intel386.h"

      "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h"
      "systty.h" "unexcoff.c" "linux.h")
     ;; No longer distributed.
      "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h"
      "systty.h" "unexcoff.c" "linux.h")
     ;; No longer distributed.


@@ -484,7 +523,8 @@ Changes to files in this list are not listed.")
     ("Schlumberger Technology Corporation" :changed "gud.el")
     ;; Replaced by tcl.el.
 ;;;    ("Gregor Schmid" :wrote "tcl-mode.el")
     ("Schlumberger Technology Corporation" :changed "gud.el")
     ;; Replaced by tcl.el.
 ;;;    ("Gregor Schmid" :wrote "tcl-mode.el")

-    ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c")
+    ;; No longer distributed since 24.1.
+;;;    ("Rainer Schöpf" :wrote "alpha.h" "unexalpha.c")

     ;; No longer distributed: emacsserver.c.
     ("William Sommerfeld" :wrote "emacsclient.c" "scribe.el")
     ;; No longer distributed: emacsserver.c.
     ;; No longer distributed: emacsserver.c.
     ("William Sommerfeld" :wrote "emacsclient.c" "scribe.el")
     ;; No longer distributed: emacsserver.c.


@@ -531,11 +571,13 @@ Changes to files in this list are not listed.")
     "makedist.bat"
     "makefile.def"
     "makefile.nt"
     "makedist.bat"
     "makefile.def"
     "makefile.nt"

+    "ns.mk"

     "debug.bat.in" "emacs.bat.in"
     ".gdbinit-union"
     "alloca.s"
     "make-delta"
     "config.w95"
     "debug.bat.in" "emacs.bat.in"
     ".gdbinit-union"
     "alloca.s"
     "make-delta"
     "config.w95"

+    "msysconfig.sh"

     "emacstool.1"
     "align.umax"
     "cxux-crt0.s"
     "emacstool.1"
     "align.umax"
     "cxux-crt0.s"


@@ -544,15 +586,17 @@ Changes to files in this list are not listed.")
     "ymakefile"
     "permute-index" "index.perm"
     "ibmrs6000.inp"
     "ymakefile"
     "permute-index" "index.perm"
     "ibmrs6000.inp"

-    "b2m.c" "b2m.1" "b2m.pl"
+    "b2m.c" "b2m.1" "b2m.pl" "rcs-checkin.1"

     "emacs.bash" "emacs.csh" "ms-kermit"
     "emacs.ico"
     "emacs21.ico"
     "emacs.bash" "emacs.csh" "ms-kermit"
     "emacs.ico"
     "emacs21.ico"

+    "emacs.py" "emacs2.py" "emacs3.py"

     "BABYL" "LPF" "LEDIT" "OTHER.EMACSES"
     "emacs16_mac.png" "emacs24_mac.png"
     "emacs256_mac.png" "emacs32_mac.png"
     "emacs48_mac.png" "emacs512_mac.png"
     "revdiff"                          ; admin/
     "BABYL" "LPF" "LEDIT" "OTHER.EMACSES"
     "emacs16_mac.png" "emacs24_mac.png"
     "emacs256_mac.png" "emacs32_mac.png"
     "emacs48_mac.png" "emacs512_mac.png"
     "revdiff"                          ; admin/

+    "vcdiff" "rcs-checkin" "tindex.pl"

     "mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/
     "mac-fix-env.m"
     ;; Deleted vms stuff:
     "mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/
     "mac-fix-env.m"
     ;; Deleted vms stuff:


@@ -569,13 +613,17 @@ in the repository.")
     ("w32console.c" . "w32term.c")
     ("unexnt.c" . "unexw32.c")
     ("s/windowsnt.h" . "s/ms-w32.h")
     ("w32console.c" . "w32term.c")
     ("unexnt.c" . "unexw32.c")
     ("s/windowsnt.h" . "s/ms-w32.h")

+    ("s/ms-w32.h" . "inc/ms-w32.h")

     ("winnt.el" . "w32-fns.el")
     ("winnt.el" . "w32-fns.el")

+    ("emacs.manifest" . "emacs-x86.manifest")

     ("config.emacs" . "configure")
     ("config.emacs" . "configure")

+    ("configure.in" . "configure.ac")

     ("config.h.dist" . "config.in")
     ("config.h-dist" . "config.in")
     ("config.h.in" . "config.in")
     ("paths.h-dist" . "paths.h.in")
     ("patch1" . "sed1.inp")
     ("config.h.dist" . "config.in")
     ("config.h-dist" . "config.in")
     ("config.h.in" . "config.in")
     ("paths.h-dist" . "paths.h.in")
     ("patch1" . "sed1.inp")

+    ("enriched.doc" . "enriched.txt")

     ("GETTING.GNU.SOFTWARE" . "FTP")
     ("etc/MACHINES" . "MACHINES")
     ("ONEWS" . "NEWS.19")
     ("GETTING.GNU.SOFTWARE" . "FTP")
     ("etc/MACHINES" . "MACHINES")
     ("ONEWS" . "NEWS.19")


@@ -600,11 +648,14 @@ in the repository.")
     ;; INSTALL-CVS -> .CVS -> .BZR
     ("INSTALL-CVS" . "INSTALL.BZR")
     ("INSTALL.CVS" . "INSTALL.BZR")
     ;; INSTALL-CVS -> .CVS -> .BZR
     ("INSTALL-CVS" . "INSTALL.BZR")
     ("INSTALL.CVS" . "INSTALL.BZR")

+    ("INSTALL.BZR" . "INSTALL.REPO")

     ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
     ("gnus-logo.eps" . "refcards/gnus-logo.eps")
     ("build-install" . "build-ins.in")
     ("build-install.in" . "build-ins.in")
     ("unidata/Makefile" . "unidata/Makefile.in")
     ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
     ("gnus-logo.eps" . "refcards/gnus-logo.eps")
     ("build-install" . "build-ins.in")
     ("build-install.in" . "build-ins.in")
     ("unidata/Makefile" . "unidata/Makefile.in")

+    ("move-if-change" . "build-aux/move-if-change")
+    ("update-subdirs" . "build-aux/update-subdirs")

     ;; Not renamed, but we only have the latter in the Emacs repo.
     ("trampver.texi.in" . "trampver.texi")
     ("e/eterm" . "e/eterm-color")
     ;; Not renamed, but we only have the latter in the Emacs repo.
     ("trampver.texi.in" . "trampver.texi")
     ("e/eterm" . "e/eterm-color")


@@ -631,6 +682,12 @@ in the repository.")
     ("emacs.1" . "emacs.1")
     ("emacsclient.1" . "emacsclient.1")
     ("icons/emacs21.ico" . "emacs21.ico")
     ("emacs.1" . "emacs.1")
     ("emacsclient.1" . "emacsclient.1")
     ("icons/emacs21.ico" . "emacs21.ico")

+    ("ja-dic" . "leim/ja-dic")
+    ("quail" . "leim/quail")
+    ;; Moved from autogen/ to admin/.
+    ("autogen/update_autogen" . "update_autogen")
+    ;; Moved from etc/ to admin/.
+    ("grammars" . "grammars")

     ;; Moved from admin/nt/ to nt/.
     ("nt/README.W32" . "README.W32")
     )
     ;; Moved from admin/nt/ to nt/.
     ("nt/README.W32" . "README.W32")
     )


@@ -693,7 +750,7 @@ or is on the list of removed files.  Returns the non-directory part of
 the file name.  Only uses the LOG-FILE position POS and associated AUTHOR
 to print a message if FILE is not found."
   ;; FILE should be re-checked in every different directory associated
 the file name.  Only uses the LOG-FILE position POS and associated AUTHOR
 to print a message if FILE is not found."
   ;; FILE should be re-checked in every different directory associated

-  ;; with a LOG-FILE.  Eg configure.in from src/ChangeLog is not the
+  ;; with a LOG-FILE.  Eg configure.ac from src/ChangeLog is not the

   ;; same as that from top-level/ChangeLog.
   (let* ((fullname (expand-file-name file (file-name-directory log-file)))
         (entry (assoc fullname authors-checked-files-alist))
   ;; same as that from top-level/ChangeLog.
   (let* ((fullname (expand-file-name file (file-name-directory log-file)))
         (entry (assoc fullname authors-checked-files-alist))


@@ -821,7 +878,7 @@ with the file and the number of each action:
         (enable-local-eval nil)
         (existing-buffer (get-file-buffer log-file))
         (buffer (find-file-noselect log-file))
         (enable-local-eval nil)
         (existing-buffer (get-file-buffer log-file))
         (buffer (find-file-noselect log-file))

-        authors file pos)
+        authors pos)

     (with-current-buffer buffer
       (save-restriction
        (widen)
     (with-current-buffer buffer
       (save-restriction
        (widen)


@@ -935,8 +992,7 @@ and changed by AUTHOR."
               (file (car change))
               (filestat (if (authors-public-domain-p file)
                             (concat file " (public domain)")
               (file (car change))
               (filestat (if (authors-public-domain-p file)
                             (concat file " (public domain)")

-                          file))
-              slot)
+                          file)))

          (cond ((assq :wrote actions)
                 (setq wrote-list (cons filestat wrote-list)))
                ((assq :cowrote actions)
          (cond ((assq :wrote actions)
                 (setq wrote-list (cons filestat wrote-list)))
                ((assq :cowrote actions)


@@ -999,7 +1055,7 @@ buffer *Authors Errors* containing references to unknown files."
 Foundation's distribution of GNU Emacs.  To show our appreciation for
 their public spirit, we list here in alphabetical order a condensed
 list of their contributions.\n")
 Foundation's distribution of GNU Emacs.  To show our appreciation for
 their public spirit, we list here in alphabetical order a condensed
 list of their contributions.\n")

-    (let (authors-author-list a)
+    (let (authors-author-list)

       (maphash #'authors-add-to-author-list table)
       (setq authors-author-list
            (sort authors-author-list
       (maphash #'authors-add-to-author-list table)
       (setq authors-author-list
            (sort authors-author-list


@@ -1008,8 +1064,7 @@ list of their contributions.\n")
        (let ((author (car a))
              (wrote (nth 1 a))
              (cowrote (nth 2 a))
        (let ((author (car a))
              (wrote (nth 1 a))
              (cowrote (nth 2 a))

-             (changed (nth 3 a))
-             file)
+             (changed (nth 3 a)))

        (insert "\n" author ": ")
        (when wrote
          (insert "wrote")
        (insert "\n" author ": ")
        (when wrote
          (insert "wrote")