[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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15106&r2=1.15107
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/authors.el?cvsroot=emacs&r1=1.58&r2=1.59
Patches:
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>"
"<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
'("vc-\\*\\.el$"
"spec.txt$"
+ ".*loaddefs.el$" ; not obsolete, but auto-generated
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
"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" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS"
"NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22"
+ "MAINTAINERS" "MH-E-NEWS"
"install-sh" "missing" "mkinstalldirs"
"termcap.dat" "termcap.src" "termcap.ucb" "termcap"
"ChangeLog.nextstep" "Emacs.clr" "spec.txt"
@@ -214,6 +236,8 @@
"texi/Makefile.in"
"Imakefile" "icons/sink.ico" "aixcc.lex"
"nxml/char-name/unicode"
+ ;; 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
files]")
("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")
("INSTALL-CVS" . "INSTALL.CVS")
("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)
(save-excursion
(set-buffer buffer)
(save-restriction
@@ -670,13 +706,18 @@
(while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
(beginning-of-line)
(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))))