[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/authors.el

From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/authors.el
Date: Thu, 15 Jan 2009 03:27:15 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/15 03:27:14

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: authors.el 

Log message:
        (authors-aliases, authors-fixed-case):
        (authors-obsolete-files-regexps, authors-ignored-files):
        (authors-renamed-files-alist): Add some entries.
        (authors-fixed-entries): Change some entries.
        (authors-canonical-file-name): Doc fix.
        (authors-scan-change-log): Handle joint authorship in ChangeLogs.


Index: ChangeLog
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15106
retrieving revision 1.15107
diff -u -b -r1.15106 -r1.15107
--- ChangeLog   14 Jan 2009 23:14:51 -0000      1.15106
+++ ChangeLog   15 Jan 2009 03:27:12 -0000      1.15107
@@ -1,3 +1,12 @@
+2009-01-15  Glenn Morris  <address@hidden>
+       * emacs-lisp/authors.el (authors-aliases, authors-fixed-case):
+       (authors-obsolete-files-regexps, authors-ignored-files):
+       (authors-renamed-files-alist): Add some entries.
+       (authors-fixed-entries): Change some entries.
+       (authors-canonical-file-name): Doc fix.
+       (authors-scan-change-log): Handle joint authorship in ChangeLogs.
 2009-01-14  Juri Linkov  <address@hidden>
        * info.el (Info-isearch-filter): Don't filter out invisible text
@@ -9660,6 +9669,7 @@
        hollow if not in innermost frame.
 2008-04-29  Stefan Monnier  <address@hidden>
        Make `checkout-model' apply to filesets.
        * vc-hooks.el (vc-checkout-model): Rewrite.
        (vc-before-save, vc-after-save): Adjust callers accordingly.

Index: emacs-lisp/authors.el
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/authors.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- emacs-lisp/authors.el       11 Jan 2009 03:03:24 -0000      1.58
+++ emacs-lisp/authors.el       15 Jan 2009 03:27:14 -0000      1.59
@@ -45,11 +45,14 @@
     ("Anna M. Bigatti" "Anna Bigatti")
     ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc."
      "Barry A. Warsaw, ITB" "Barry Warsaw")
+    ("Bill Mann" "William F. Mann")
+    ("Bill Rozas" "Guillermo J. Rozas")
     ("Björn Torkelsson" "Bjorn Torkelsson")
     ("Brian Fox" "Brian J. Fox")
     ("Christoph Wedler" "address@hidden")
     ("Daniel Pfeiffer" "<address@hidden>"
+    ("David De La Harpe Golden" "David Golden")
     ("David Gillespie" "Dave Gillespie")
     ("David KÃ¥gedal" "David K..edal")
     ("David M. Koppelman" "David M. Koppelman, address@hidden"
@@ -71,7 +74,7 @@
     ("Frederic Pierresteguy" "Fred Pierresteguy")
     ("Geoff Voelker" "voelker")
     ("Gerd Möllmann" "Gerd Moellmann")
-    ("Hallvard B. Furuseth" "Hallvard B Furuseth")
+    ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
     ("Hrvoje Nikšić" "Hrvoje Niksic")
     (nil "(address@hidden)")
     (nil "<address@hidden>")
@@ -88,6 +91,7 @@
     ("John W. Eaton" "John Eaton")
     ("Jonathan I. Kamens" "Jonathan Kamens")
     ("Joseph Arceneaux" "Joe Arceneaux")
+    ("Joseph M. Kelsey" "Joe Kelsey")  ; FIXME ?
     ("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")
     ("K. Shane Hartman" "Shane Hartman")
     ("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann"
@@ -103,14 +107,19 @@
     ("Kyle Jones" "Kyle E. Jones")
     ("Marcus G. Daniels" "Marcus Daniels")
     ("Mark D. Baushke" "Mark D Baushke")
+    ("Marko Kohtala" "Kohtala Marko")
     ("Agustín Martín" "Agustin Martin")
     ("Martin Lorentzon" "Martin Lorentzson")
     ("Matt Swift" "Matthew Swift")
+    ("Maxime Edouard Robert Froumentin" "Max Froumentin")
     ("Michael R. Mauger" "Michael Mauger")
     ("Michael D. Ernst" "Michael Ernst")
     ("Michaël Cadilhac" "Michael Cadilhac")
     ("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg")
+    ("Michael R. Cook" "Michael Cook")
+    ("Michael Sperber" "Michael Sperber \\[Mr. Preprocessor\\]")
     ("Mikio Nakajima" "Nakajima Mikio")
+    ("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
     ("Paul Eggert" "eggert")
     ("Paul Reilly" "(address@hidden)")
     ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel 
Janík" "address@hidden")
@@ -118,6 +127,9 @@
     ("Peter S. Galbraith" "Peter Galbraith")
     ("Peter Runestig" "Peter 'luna' Runestig")
     ("Peter S. Galbraith" "Peter S Galbraith")
+    ("Raja R. Harinath" "Raja R Harinath")
+    ("Richard G. Bielawski" "Richard G Bielawski" "Richard Bielawski")
+    ("Richard King" "Dick King")
     ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
      "rms" "address@hidden")
     ("Robert J. Chassell" "Bob Chassell")
@@ -131,16 +143,23 @@
     ("Stephen A. Wood" "(address@hidden)")
     ("Steven L. Baur" "SL Baur" "Steven L Baur")
     ("Stewart M. Clamen" "Stewart Clamen")
+    ("Stuart D. Herring" "Stuart Herring" "Davis Herring")
     ("Taichi Kawabata" "KAWABATA,? Taichi")
     ("Takaaki Ota" "Tak Ota")
     ("Takahashi Naoto" "Naoto Takahashi")
     ("Teodor Zlatanov" "Ted Zlatanov")
+    ("Thomas Horsley" "Tom Horsley")   ; FIXME ?
+    ("Thomas Wurgler" "Tom Wurgler")
+    ("Tomohiko Morioka" "MORIOKA Tomohiko")
     ("Torbjörn Axelsson" "Torbjvrn Axelsson")
     ("Torbjörn Einarsson" "Torbj.*rn Einarsson")
     ("Toru Tomabechi" "Toru Tomabechi,")
+    ("Tsugutomo Enami" "enami tsugutomo")
     ("Vincent Del Vecchio" "Vince Del Vecchio")
     ("William M. Perry" "Bill Perry")
     ("Wlodzimierz Bzyl" "W.*dek Bzyl")
+    ("Yoni Rabkin" "Yoni Rabkin Katzenell")
+    ("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
     ("Yutaka NIIBE" "NIIBE Yutaka")
   "Alist of author aliases.
@@ -165,6 +184,7 @@
     "James TD Smith"
     "Michael McNamara"
     "Mike McEwan"
+    "Nelson Jose dos Santos Ferreira"
     "Peter von der Ahe"
     "Peter O'Gorman"
     "Roland McGrath"
@@ -192,6 +212,7 @@
 (defvar authors-obsolete-files-regexps
+    ".*loaddefs.el$"                   ; not obsolete, but auto-generated
   "List of regexps matching obsolete files.
 Changes to files matching one of the regexps in this list are not
@@ -207,6 +228,7 @@
     "NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am"
     "NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22"
     "install-sh" "missing" "mkinstalldirs"
     "termcap.dat" "termcap.src" "termcap.ucb" "termcap"
     "ChangeLog.nextstep" "Emacs.clr" "spec.txt"
@@ -214,6 +236,8 @@
     "Imakefile" "icons/sink.ico" "aixcc.lex"
+    ;; Autogen:
+    "cus-load.el" "finder-inf.el" "ldefs-boot.el"
     ;; Never had any meaningful changes logged, now deleted:
     "split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack"
     "gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat"
@@ -254,16 +278,22 @@
   "List of files and directories to ignore.
 Changes to files in this list are not listed.")
+;; FIXME :cowrote entries here can be overwritten by :wrote entries
+;; derived from a file's Author: header (eg mh-e).  This really means
+;; the Author: header is erroneous.
 (defconst authors-fixed-entries
   '(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous 
     ("Joseph Arceneaux" :wrote "xrdb.c")
-    ("Blitz Product Development Corporation" :wrote "ispell.el")
+    ;; This refers to the obsolete Willisson (qv) version.
+;;;    ("Blitz Product Development Corporation" :wrote "ispell.el")
     ("Frank Bresz" :wrote "diff.el")
     ("David M. Brown" :wrote "array.el")
     ;; No longer distributed.
 ;;;    ("Gary Byers" :changed "xenix.h")
     ("Shawn M. Carey" :wrote "freebsd.h")
     ;; hp800.h renamed from hp9000s800.h, hpux.h merged into hpux10-20.h.
+    ;; FIXME overwritten by Author:.
+    ("Satyaki Das" :cowrote "mh-search.el")
     ("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c")
     ("Lawrence R. Dodd" :cowrote "dired-x.el")
     ;; No longer distributed.
@@ -279,9 +309,9 @@
     ;; latin-1.el, since deleted.
     ("Howard Gayle" :wrote "casetab.c")
     ;; :wrote mh-pick.el, since merged into mh-search.el.
-    ;; FIXME current mh-funcs.el says it was written by Bill Wohler.
-    ("Stephen Gildea" :wrote "refcard.tex" "mh-funcs.el"
-     :cowrote "mh-search.el")
+    ;; Originally wrote mh-funcs.el, but it has been rewritten since.
+    ("Stephen Gildea" :wrote "refcard.tex"
+     :cowrote "mh-funcs.el" "mh-search.el")
     ;; cl.texinfo renamed to cl.texi.
     ("David Gillespie" :wrote "cl.texi")
     ;; No longer distributed: emacsserver.c.
@@ -311,20 +341,20 @@
     ("Sebastian Kremer" :changed "add-log.el")
     ("Mark Lambert" :changed "process.c" "process.h")
     ("Aaron Larson" :changed "bibtex.el")
-    ;; FIXME current mh-e.el says author Bill Wohler.
-    ("James R. Larus" :wrote "mh-e.el")
+    ;; It was :wrote, but it has been rewritten since.
+    ("James R. Larus" :cowrote "mh-e.el")
     ("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el")
     ;; No longer distributed: lselect.el.
     ("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el"
      "bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el"
      "lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c")
-    ;; No longer distributed: emacsserver.c.
-    ("MCC" :changed "etags.c" "emacsclient.c" "movemail.c"
+    ;; MCC.  No longer distributed: emacsserver.c.
+    ("Microelectronics and Computer Technology Corporation"
+     :changed "etags.c" "emacsclient.c" "movemail.c"
      "rmail.el" "rmailedit.el" "rmailkwd.el"
      "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
-     ;; FIXME current xmenu.c says authors: Jon Arnold, Roman Budzianowski,
-     ;; Robert Krawitz, RMS.
-     "server.el" "lisp.h" "sysdep.c" "unexec.c" :wrote "xmenu.c")
+     ;; It was :wrote for xmenu.c, but it has been rewritten since.
+     "server.el" "lisp.h" "sysdep.c" "unexec.c" "xmenu.c")
     ("Niall Mansfield" :changed "etags.c")
     ("Brian Marick" :cowrote "hideif.el")
     ("Marko Kohtala" :changed "info.el")
@@ -392,6 +422,8 @@
     ("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h")
     ;; Not using this version any more.
 ;;;    ("Pace Willisson" :wrote "ispell.el")
+    ;; FIXME overwritten by Author:.
+    ("Bill Wohler" :cowrote "mh-e.el")
     ("Garrett Wollman" :changed "sendmail.el")
     ("Dale R. Worley" :changed "mail-extr.el")
     ("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el"
@@ -462,6 +494,9 @@
     ("leim-Makefile.in" . "leim/Makefile.in")
     ("emacs-lisp/testcover-ses.el" . "tcover-ses.el")
     ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el")
+    ;; index and pick merged into search.
+    ("mh-index.el" . "mh-search.el")
+    ("mh-pick.el" . "mh-search.el")
     ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
     ("gnus-logo.eps" . "refcards/gnus-logo.eps")
@@ -530,10 +565,11 @@
 (defvar authors-invalid-file-names)
 (defun authors-canonical-file-name (file log-file pos author)
-  "Return canonical file name for FILE found in LOG-FILE at POS for AUTHOR.
+  "Return canonical file name for FILE found in LOG-FILE.
 Checks whether FILE is a valid (existing) file name, has been renamed,
 or is on the list of removed files.  Returns the non-diretory part of
-the file name."
+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
   ;; same as that from top-level/ChangeLog.
@@ -661,7 +697,7 @@
         (enable-local-eval nil)
         (existing-buffer (get-file-buffer log-file))
         (buffer (find-file-noselect log-file))
-        author file pos)
+        authors file pos)
       (set-buffer buffer)
@@ -670,13 +706,18 @@
        (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
          (setq pos (point))
-         ;; FIXME handle joint authorship.
          (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
+                ;; Handle joint authorship of changes.
+                ;; This can be a bit fragile, and is not too common.
+                (setq authors nil)
+                (while (progn
                 (skip-chars-forward " \t+:0-9-")
-                (setq author (buffer-substring-no-properties
-                              (point) (line-end-position)))
-                (setq author (authors-canonical-author-name author))
-                (forward-line 1))
+                         (not (looking-at "\\($\\|\\*\\|\
+Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ \t]+[Bb]y\\)")))
+                  (push (authors-canonical-author-name
+                         (buffer-substring-no-properties
+                          (point) (line-end-position))) authors)
+                  (forward-line 1)))
                ((looking-at "^[ \t]+\\*")
                 (let ((line (buffer-substring-no-properties
                              (match-end 0) (line-end-position))))
@@ -692,9 +733,10 @@
                     (setq line (replace-regexp-in-string "[[(<{].*$" "" line))
                     (setq line (replace-regexp-in-string "," "" line))
                     (dolist (file (split-string line))
-                      (when (setq file (authors-canonical-file-name file 
log-file pos author))
+                      (when (setq file (authors-canonical-file-name file 
log-file pos (car authors)))
+                        (dolist (author authors)
                         ;;(message "%s changed %s" author file)
-                        (authors-add author file :changed table))))
+                          (authors-add author file :changed table)))))
                   (forward-line 1)))))))
     (unless existing-buffer
       (kill-buffer buffer))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]