authors.el trivia

* lisp/emacs-lisp/authors.el (authors-aliases, authors-fixed-case):
Add some entries.
(authors): Remove unused local variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbfd158f003b103ced68e78d383fcfd4a606e6c2..cac34a3d31409e18b8653ac4cf73eba01108fd41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-10-09  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/authors.el (authors-aliases, authors-fixed-case):
+       Add some entries.
+       (authors): Remove unused local variables.
+
 2013-10-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * profiler.el: Create a more coherent calltree from partial backtraces.

diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index 270badd53cba43457ea83a4bb94ba08c9684f5e7..40ce096d427199f958179fed3a20da69f85fcdab 100644 (file)
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -51,6 +51,7 @@ files.")
     ("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>"
@@ -192,7 +193,8 @@ If REALNAME is nil, ignore that author.")
 
 ;; FIXME seems it would be less fragile to check for O', Mc, etc.
 (defconst authors-fixed-case
-  '("Bryan O'Sullivan"
+  '("Brian van den Broek"
+    "Bryan O'Sullivan"
     "Christian von Roques"
     "Christophe de Dinechin"
     "Craig McDaniel"
@@ -206,7 +208,9 @@ If REALNAME is nil, ignore that author.")
     "Greg McGary"
     "Hans de Graaff"
     "James TD Smith"
+    "Jay McCarthy"
     "Joel N. Weber II"
+    "Matt McClure"
     "Michael McNamara"
     "Mike McEwan"
     "Nelson Jose dos Santos Ferreira"
@@ -216,6 +220,7 @@ If REALNAME is nil, ignore that author.")
     "Roland McGrath"
     "Sean O'Halpin"
     "Sean O'Rourke"
+    "Thomas DeWeese"
     "Tijs van Bakel")
   "List of authors whose names cannot be simply capitalized.")
 
@@ -1023,7 +1028,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")
-    (let (authors-author-list a)
+    (let (authors-author-list)
       (maphash #'authors-add-to-author-list table)
       (setq authors-author-list
            (sort authors-author-list
@@ -1032,8 +1037,7 @@ list of their contributions.\n")
        (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")