Commit 6b5e47dd authored by Glenn Morris's avatar Glenn Morris

(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.
parent 7b10e6ec
2009-01-15 Glenn Morris <rgm@gnu.org>
* 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 <juri@jurta.org> 2009-01-14 Juri Linkov <juri@jurta.org>
* info.el (Info-isearch-filter): Don't filter out invisible text * info.el (Info-isearch-filter): Don't filter out invisible text
...@@ -9660,6 +9669,7 @@ ...@@ -9660,6 +9669,7 @@
hollow if not in innermost frame. hollow if not in innermost frame.
2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca> 2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
Make `checkout-model' apply to filesets. Make `checkout-model' apply to filesets.
* vc-hooks.el (vc-checkout-model): Rewrite. * vc-hooks.el (vc-checkout-model): Rewrite.
(vc-before-save, vc-after-save): Adjust callers accordingly. (vc-before-save, vc-after-save): Adjust callers accordingly.
......
...@@ -45,11 +45,14 @@ files.") ...@@ -45,11 +45,14 @@ files.")
("Anna M. Bigatti" "Anna Bigatti") ("Anna M. Bigatti" "Anna Bigatti")
("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc." ("Barry A. Warsaw" "Barry A. Warsaw, Century Computing, Inc."
"Barry A. Warsaw, ITB" "Barry Warsaw") "Barry A. Warsaw, ITB" "Barry Warsaw")
("Bill Mann" "William F. Mann")
("Bill Rozas" "Guillermo J. Rozas")
("Björn Torkelsson" "Bjorn Torkelsson") ("Björn Torkelsson" "Bjorn Torkelsson")
("Brian Fox" "Brian J. Fox") ("Brian Fox" "Brian J. Fox")
("Christoph Wedler" "Christoph.Wedler@sap.com") ("Christoph Wedler" "Christoph.Wedler@sap.com")
("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>"
"<Daniel.Pfeiffer@Informatik.START.dbp.de>") "<Daniel.Pfeiffer@Informatik.START.dbp.de>")
("David De La Harpe Golden" "David Golden")
("David Gillespie" "Dave Gillespie") ("David Gillespie" "Dave Gillespie")
("David Kågedal" "David K..edal") ("David Kågedal" "David K..edal")
("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu" ("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu"
...@@ -71,7 +74,7 @@ files.") ...@@ -71,7 +74,7 @@ files.")
("Frederic Pierresteguy" "Fred Pierresteguy") ("Frederic Pierresteguy" "Fred Pierresteguy")
("Geoff Voelker" "voelker") ("Geoff Voelker" "voelker")
("Gerd Möllmann" "Gerd Moellmann") ("Gerd Möllmann" "Gerd Moellmann")
("Hallvard B. Furuseth" "Hallvard B Furuseth") ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth")
("Hrvoje Nikšić" "Hrvoje Niksic") ("Hrvoje Nikšić" "Hrvoje Niksic")
(nil "(afs@hplb.hpl.hp.com)") (nil "(afs@hplb.hpl.hp.com)")
(nil "<Use-Author-Address-Header@\\[127.1\\]>") (nil "<Use-Author-Address-Header@\\[127.1\\]>")
...@@ -88,6 +91,7 @@ files.") ...@@ -88,6 +91,7 @@ files.")
("John W. Eaton" "John Eaton") ("John W. Eaton" "John Eaton")
("Jonathan I. Kamens" "Jonathan Kamens") ("Jonathan I. Kamens" "Jonathan Kamens")
("Joseph Arceneaux" "Joe Arceneaux") ("Joseph Arceneaux" "Joe Arceneaux")
("Joseph M. Kelsey" "Joe Kelsey") ; FIXME ?
("Juan León Lahoz García" "Juan-Leon Lahoz Garcia") ("Juan León Lahoz García" "Juan-Leon Lahoz Garcia")
("K. Shane Hartman" "Shane Hartman") ("K. Shane Hartman" "Shane Hartman")
("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann" ("Kai Großjohann" "Kai Grossjohann" "Kai Großjohann"
...@@ -103,14 +107,19 @@ files.") ...@@ -103,14 +107,19 @@ files.")
("Kyle Jones" "Kyle E. Jones") ("Kyle Jones" "Kyle E. Jones")
("Marcus G. Daniels" "Marcus Daniels") ("Marcus G. Daniels" "Marcus Daniels")
("Mark D. Baushke" "Mark D Baushke") ("Mark D. Baushke" "Mark D Baushke")
("Marko Kohtala" "Kohtala Marko")
("Agustín Martín" "Agustin Martin") ("Agustín Martín" "Agustin Martin")
("Martin Lorentzon" "Martin Lorentzson") ("Martin Lorentzon" "Martin Lorentzson")
("Matt Swift" "Matthew Swift") ("Matt Swift" "Matthew Swift")
("Maxime Edouard Robert Froumentin" "Max Froumentin")
("Michael R. Mauger" "Michael Mauger") ("Michael R. Mauger" "Michael Mauger")
("Michael D. Ernst" "Michael Ernst") ("Michael D. Ernst" "Michael Ernst")
("Michaël Cadilhac" "Michael Cadilhac") ("Michaël Cadilhac" "Michael Cadilhac")
("Michael I. Bushnell" "Michael I Bushnell" "Michael I. Bushnell, P/Bsg") ("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") ("Mikio Nakajima" "Nakajima Mikio")
("Nelson Jose dos Santos Ferreira" "Nelson Ferreira")
("Paul Eggert" "eggert") ("Paul Eggert" "eggert")
("Paul Reilly" "(pmr@legacy.pajato.com)") ("Paul Reilly" "(pmr@legacy.pajato.com)")
("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz") ("Pavel Janík" "Pavel Janík Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Janík" "Pavel@Janik.Cz")
...@@ -118,6 +127,9 @@ files.") ...@@ -118,6 +127,9 @@ files.")
("Peter S. Galbraith" "Peter Galbraith") ("Peter S. Galbraith" "Peter Galbraith")
("Peter Runestig" "Peter 'luna' Runestig") ("Peter Runestig" "Peter 'luna' Runestig")
("Peter S. Galbraith" "Peter S Galbraith") ("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" ("Richard M. Stallman" "Richard M. Stallman,,," "Richard Stallman"
"rms" "rms@gnu.org") "rms" "rms@gnu.org")
("Robert J. Chassell" "Bob Chassell") ("Robert J. Chassell" "Bob Chassell")
...@@ -131,16 +143,23 @@ files.") ...@@ -131,16 +143,23 @@ files.")
("Stephen A. Wood" "(saw@cebaf.gov)") ("Stephen A. Wood" "(saw@cebaf.gov)")
("Steven L. Baur" "SL Baur" "Steven L Baur") ("Steven L. Baur" "SL Baur" "Steven L Baur")
("Stewart M. Clamen" "Stewart Clamen") ("Stewart M. Clamen" "Stewart Clamen")
("Stuart D. Herring" "Stuart Herring" "Davis Herring")
("Taichi Kawabata" "KAWABATA,? Taichi") ("Taichi Kawabata" "KAWABATA,? Taichi")
("Takaaki Ota" "Tak Ota") ("Takaaki Ota" "Tak Ota")
("Takahashi Naoto" "Naoto Takahashi") ("Takahashi Naoto" "Naoto Takahashi")
("Teodor Zlatanov" "Ted Zlatanov") ("Teodor Zlatanov" "Ted Zlatanov")
("Thomas Horsley" "Tom Horsley") ; FIXME ?
("Thomas Wurgler" "Tom Wurgler")
("Tomohiko Morioka" "MORIOKA Tomohiko")
("Torbjörn Axelsson" "Torbjvrn Axelsson") ("Torbjörn Axelsson" "Torbjvrn Axelsson")
("Torbjörn Einarsson" "Torbj.*rn Einarsson") ("Torbjörn Einarsson" "Torbj.*rn Einarsson")
("Toru Tomabechi" "Toru Tomabechi,") ("Toru Tomabechi" "Toru Tomabechi,")
("Tsugutomo Enami" "enami tsugutomo")
("Vincent Del Vecchio" "Vince Del Vecchio") ("Vincent Del Vecchio" "Vince Del Vecchio")
("William M. Perry" "Bill Perry") ("William M. Perry" "Bill Perry")
("Wlodzimierz Bzyl" "W.*dek Bzyl") ("Wlodzimierz Bzyl" "W.*dek Bzyl")
("Yoni Rabkin" "Yoni Rabkin Katzenell")
("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
("Yutaka NIIBE" "NIIBE Yutaka") ("Yutaka NIIBE" "NIIBE Yutaka")
) )
"Alist of author aliases. "Alist of author aliases.
...@@ -165,6 +184,7 @@ If REALNAME is nil, ignore that author.") ...@@ -165,6 +184,7 @@ If REALNAME is nil, ignore that author.")
"James TD Smith" "James TD Smith"
"Michael McNamara" "Michael McNamara"
"Mike McEwan" "Mike McEwan"
"Nelson Jose dos Santos Ferreira"
"Peter von der Ahe" "Peter von der Ahe"
"Peter O'Gorman" "Peter O'Gorman"
"Roland McGrath" "Roland McGrath"
...@@ -192,6 +212,7 @@ If REALNAME is nil, ignore that author.") ...@@ -192,6 +212,7 @@ If REALNAME is nil, ignore that author.")
(defvar authors-obsolete-files-regexps (defvar authors-obsolete-files-regexps
'("vc-\\*\\.el$" '("vc-\\*\\.el$"
"spec.txt$" "spec.txt$"
".*loaddefs.el$" ; not obsolete, but auto-generated
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
"List of regexps matching obsolete files. "List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not Changes to files matching one of the regexps in this list are not
...@@ -207,6 +228,7 @@ listed.") ...@@ -207,6 +228,7 @@ listed.")
"NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am" "NEWS.unicode" "COPYING.DJ" "Makefile.old" "Makefile.am"
"NEWS.1" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS" "NEWS.1" "OOOOONEWS...OONEWS" "OOOONEWS" "etc/NEWS"
"NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22" "NEWS.1-17" "NEWS.18" "NEWS.19" "NEWS.20" "NEWS.21" "NEWS.22"
"MAINTAINERS" "MH-E-NEWS"
"install-sh" "missing" "mkinstalldirs" "install-sh" "missing" "mkinstalldirs"
"termcap.dat" "termcap.src" "termcap.ucb" "termcap" "termcap.dat" "termcap.src" "termcap.ucb" "termcap"
"ChangeLog.nextstep" "Emacs.clr" "spec.txt" "ChangeLog.nextstep" "Emacs.clr" "spec.txt"
...@@ -214,6 +236,8 @@ listed.") ...@@ -214,6 +236,8 @@ listed.")
"texi/Makefile.in" "texi/Makefile.in"
"Imakefile" "icons/sink.ico" "aixcc.lex" "Imakefile" "icons/sink.ico" "aixcc.lex"
"nxml/char-name/unicode" "nxml/char-name/unicode"
;; Autogen:
"cus-load.el" "finder-inf.el" "ldefs-boot.el"
;; Never had any meaningful changes logged, now deleted: ;; Never had any meaningful changes logged, now deleted:
"split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack" "split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack"
"gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat" "gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat"
...@@ -254,16 +278,22 @@ listed.") ...@@ -254,16 +278,22 @@ listed.")
"List of files and directories to ignore. "List of files and directories to ignore.
Changes to files in this list are not listed.") 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 (defconst authors-fixed-entries
'(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]") '(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]")
("Joseph Arceneaux" :wrote "xrdb.c") ("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") ("Frank Bresz" :wrote "diff.el")
("David M. Brown" :wrote "array.el") ("David M. Brown" :wrote "array.el")
;; No longer distributed. ;; No longer distributed.
;;; ("Gary Byers" :changed "xenix.h") ;;; ("Gary Byers" :changed "xenix.h")
("Shawn M. Carey" :wrote "freebsd.h") ("Shawn M. Carey" :wrote "freebsd.h")
;; hp800.h renamed from hp9000s800.h, hpux.h merged into hpux10-20.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") ("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c")
("Lawrence R. Dodd" :cowrote "dired-x.el") ("Lawrence R. Dodd" :cowrote "dired-x.el")
;; No longer distributed. ;; No longer distributed.
...@@ -279,9 +309,9 @@ Changes to files in this list are not listed.") ...@@ -279,9 +309,9 @@ Changes to files in this list are not listed.")
;; latin-1.el, since deleted. ;; latin-1.el, since deleted.
("Howard Gayle" :wrote "casetab.c") ("Howard Gayle" :wrote "casetab.c")
;; :wrote mh-pick.el, since merged into mh-search.el. ;; :wrote mh-pick.el, since merged into mh-search.el.
;; FIXME current mh-funcs.el says it was written by Bill Wohler. ;; Originally wrote mh-funcs.el, but it has been rewritten since.
("Stephen Gildea" :wrote "refcard.tex" "mh-funcs.el" ("Stephen Gildea" :wrote "refcard.tex"
:cowrote "mh-search.el") :cowrote "mh-funcs.el" "mh-search.el")
;; cl.texinfo renamed to cl.texi. ;; cl.texinfo renamed to cl.texi.
("David Gillespie" :wrote "cl.texi") ("David Gillespie" :wrote "cl.texi")
;; No longer distributed: emacsserver.c. ;; No longer distributed: emacsserver.c.
...@@ -311,20 +341,20 @@ Changes to files in this list are not listed.") ...@@ -311,20 +341,20 @@ Changes to files in this list are not listed.")
("Sebastian Kremer" :changed "add-log.el") ("Sebastian Kremer" :changed "add-log.el")
("Mark Lambert" :changed "process.c" "process.h") ("Mark Lambert" :changed "process.c" "process.h")
("Aaron Larson" :changed "bibtex.el") ("Aaron Larson" :changed "bibtex.el")
;; FIXME current mh-e.el says author Bill Wohler. ;; It was :wrote, but it has been rewritten since.
("James R. Larus" :wrote "mh-e.el") ("James R. Larus" :cowrote "mh-e.el")
("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el") ("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.el")
;; No longer distributed: lselect.el. ;; No longer distributed: lselect.el.
("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el" ("Lucid, Inc." :changed "bytecode.c" "byte-opt.el" "byte-run.el"
"bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el" "bytecomp.el" "delsel.el" "disass.el" "faces.el" "font-lock.el"
"lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c") "lmenu.el" "mailabbrev.el" "select.el" "xfaces.c" "xselect.c")
;; No longer distributed: emacsserver.c. ;; MCC. No longer distributed: emacsserver.c.
("MCC" :changed "etags.c" "emacsclient.c" "movemail.c" ("Microelectronics and Computer Technology Corporation"
:changed "etags.c" "emacsclient.c" "movemail.c"
"rmail.el" "rmailedit.el" "rmailkwd.el" "rmail.el" "rmailedit.el" "rmailkwd.el"
"rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el" "rmailmsc.el" "rmailout.el" "rmailsum.el" "scribe.el"
;; FIXME current xmenu.c says authors: Jon Arnold, Roman Budzianowski, ;; It was :wrote for xmenu.c, but it has been rewritten since.
;; Robert Krawitz, RMS. "server.el" "lisp.h" "sysdep.c" "unexec.c" "xmenu.c")
"server.el" "lisp.h" "sysdep.c" "unexec.c" :wrote "xmenu.c")
("Niall Mansfield" :changed "etags.c") ("Niall Mansfield" :changed "etags.c")
("Brian Marick" :cowrote "hideif.el") ("Brian Marick" :cowrote "hideif.el")
("Marko Kohtala" :changed "info.el") ("Marko Kohtala" :changed "info.el")
...@@ -392,6 +422,8 @@ Changes to files in this list are not listed.") ...@@ -392,6 +422,8 @@ Changes to files in this list are not listed.")
("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h") ("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h")
;; Not using this version any more. ;; Not using this version any more.
;;; ("Pace Willisson" :wrote "ispell.el") ;;; ("Pace Willisson" :wrote "ispell.el")
;; FIXME overwritten by Author:.
("Bill Wohler" :cowrote "mh-e.el")
("Garrett Wollman" :changed "sendmail.el") ("Garrett Wollman" :changed "sendmail.el")
("Dale R. Worley" :changed "mail-extr.el") ("Dale R. Worley" :changed "mail-extr.el")
("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el" ("Jamie Zawinski" :changed "bytecode.c" :wrote "tar-mode.el"
...@@ -462,6 +494,9 @@ found) in the repository.") ...@@ -462,6 +494,9 @@ found) in the repository.")
("leim-Makefile.in" . "leim/Makefile.in") ("leim-Makefile.in" . "leim/Makefile.in")
("emacs-lisp/testcover-ses.el" . "tcover-ses.el") ("emacs-lisp/testcover-ses.el" . "tcover-ses.el")
("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.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") ("INSTALL-CVS" . "INSTALL.CVS")
("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf") ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
("gnus-logo.eps" . "refcards/gnus-logo.eps") ("gnus-logo.eps" . "refcards/gnus-logo.eps")
...@@ -530,10 +565,11 @@ Otherwise, the file name is accepted as is.") ...@@ -530,10 +565,11 @@ Otherwise, the file name is accepted as is.")
(defvar authors-invalid-file-names) (defvar authors-invalid-file-names)
(defun authors-canonical-file-name (file log-file pos author) (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, 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 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 ;; 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.in from src/ChangeLog is not the
;; same as that from top-level/ChangeLog. ;; same as that from top-level/ChangeLog.
...@@ -661,7 +697,7 @@ with the file and the number of each action. ...@@ -661,7 +697,7 @@ with the file and the number of each action.
(enable-local-eval nil) (enable-local-eval nil)
(existing-buffer (get-file-buffer log-file)) (existing-buffer (get-file-buffer log-file))
(buffer (find-file-noselect log-file)) (buffer (find-file-noselect log-file))
author file pos) authors file pos)
(save-excursion (save-excursion
(set-buffer buffer) (set-buffer buffer)
(save-restriction (save-restriction
...@@ -670,13 +706,18 @@ with the file and the number of each action. ...@@ -670,13 +706,18 @@ with the file and the number of each action.
(while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t) (while (re-search-forward "^[0-9]\\|^[ \t]+\\* " nil t)
(beginning-of-line) (beginning-of-line)
(setq pos (point)) (setq pos (point))
;; FIXME handle joint authorship.
(cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+") (cond ((looking-at "^[0-9]+-[0-9]+-[0-9]+")
(skip-chars-forward " \t+:0-9-") ;; Handle joint authorship of changes.
(setq author (buffer-substring-no-properties ;; This can be a bit fragile, and is not too common.
(point) (line-end-position))) (setq authors nil)
(setq author (authors-canonical-author-name author)) (while (progn
(forward-line 1)) (skip-chars-forward " \t+:0-9-")
(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]+\\*") ((looking-at "^[ \t]+\\*")
(let ((line (buffer-substring-no-properties (let ((line (buffer-substring-no-properties
(match-end 0) (line-end-position)))) (match-end 0) (line-end-position))))
...@@ -692,9 +733,10 @@ with the file and the number of each action. ...@@ -692,9 +733,10 @@ with the file and the number of each action.
(setq line (replace-regexp-in-string "[[(<{].*$" "" line)) (setq line (replace-regexp-in-string "[[(<{].*$" "" line))
(setq line (replace-regexp-in-string "," "" line)) (setq line (replace-regexp-in-string "," "" line))
(dolist (file (split-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)))
;;(message "%s changed %s" author file) (dolist (author authors)
(authors-add author file :changed table)))) ;;(message "%s changed %s" author file)
(authors-add author file :changed table)))))
(forward-line 1))))))) (forward-line 1)))))))
(unless existing-buffer (unless existing-buffer
(kill-buffer buffer)))) (kill-buffer buffer))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment