Make M-x authors return zero *Authors Errors* from current logs
* lisp/emacs-lisp/authors.el (authors-obsolete-files-regexps): (authors-ignored-files): Add some entries, remove others. (authors-ambiguous-files, authors-valid-file-names): Add some entries. (authors-renamed-files-alist): Add, remove, and adjust entries. (authors-renamed-files-regexps): Add some entries. Remove some very broad ones. Make some entries `lax'. (authors-lax-changelogs): New constant. (authors-disambiguate-file-name): Treat top-level specially. (authors-lax-changelog-p): New function. (authors-canonical-file-name): Check file as written against authors-valid-file-names. Do not special-case etc/. Handle `lax' logs and authors-renamed-files-regexps elements. * admin/make-tarball.txt: Update for no expected *Authors Errors*.
This commit is contained in:
Glenn Morris
parent
56db2b1bfd
commit
0d61348390
3 changed files with 334 additions and 90 deletions
|
|
@ -28,14 +28,10 @@ General steps (for each step, check for possible errors):
|
|||
M-: (require 'authors) RET
|
||||
M-x authors RET
|
||||
|
||||
There is almost guaranteed to be an "*Authors Errors*" buffer with
|
||||
problems caused by certain bad ChangeLog entries. You can ignore
|
||||
the very old ones (eg lisp/erc has a lot). If there are errors
|
||||
related to new entries (especially entries that are new since the
|
||||
last pretest), see if you can fix them. If there was a ChangeLog
|
||||
typo, fix it. If a file was deleted or renamed, consider adding
|
||||
an appropriate entry to authors-ignored-files, authors-valid-file-names,
|
||||
or authors-renamed-files-alist.
|
||||
If there is an "*Authors Errors*" buffer, address the issues.
|
||||
If there was a ChangeLog typo, fix it. If a file was deleted or
|
||||
renamed, consider adding an appropriate entry to authors-ignored-files,
|
||||
authors-valid-file-names, or authors-renamed-files-alist.
|
||||
|
||||
If necessary, repeat M-x authors after making those changes.
|
||||
Save the "*Authors*" buffer as etc/AUTHORS.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,20 @@
|
|||
2014-01-17 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
Make M-x authors return zero *Authors Errors* from current logs.
|
||||
* emacs-lisp/authors.el (authors-obsolete-files-regexps):
|
||||
(authors-ignored-files): Add some entries, remove others.
|
||||
(authors-ambiguous-files, authors-valid-file-names):
|
||||
Add some entries.
|
||||
(authors-renamed-files-alist): Add, remove, and adjust entries.
|
||||
(authors-renamed-files-regexps): Add some entries.
|
||||
Remove some very broad ones. Make some entries `lax'.
|
||||
(authors-lax-changelogs): New constant.
|
||||
(authors-disambiguate-file-name): Treat top-level specially.
|
||||
(authors-lax-changelog-p): New function.
|
||||
(authors-canonical-file-name): Check file as written against
|
||||
authors-valid-file-names. Do not special-case etc/.
|
||||
Handle `lax' logs and authors-renamed-files-regexps elements.
|
||||
|
||||
2014-01-16 Dmitry Gutov <dgutov@yandex.ru>
|
||||
|
||||
* emacs-lisp/package.el (package-desc--keywords): Use `cdr' with
|
||||
|
|
|
|||
|
|
@ -246,15 +246,15 @@ If REALNAME is nil, ignore that author.")
|
|||
|
||||
|
||||
(defvar authors-obsolete-files-regexps
|
||||
'("vc-\\*\\.el$"
|
||||
"spec.txt$"
|
||||
".*loaddefs.el$" ; not obsolete, but auto-generated
|
||||
'(".*loaddefs.el$" ; not obsolete, but auto-generated
|
||||
"\\.\\(cvs\\|git\\)ignore$" ; obsolete or uninteresting
|
||||
"\\.arch-inventory$"
|
||||
;; TODO lib/? Matches other things?
|
||||
"build-aux/" "m4/" "Emacs.xcodeproj" "charsets" "mapfiles"
|
||||
"build-aux/" "m4/" "Emacs.xcodeproj" "mapfiles" "\\.map\\'"
|
||||
"preferences\\.\\(nib\\|gorm\\)"
|
||||
"vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$")
|
||||
;; Generated files that have since been removed.
|
||||
"\\(refcard\\(-de\\|-pl\\)?\\|calccard\\|dired-ref\\|orgcard\\|\
|
||||
gnus-booklet\\|fr-drdref\\)\\.p\\(df\\|s\\)\\'")
|
||||
"List of regexps matching obsolete files.
|
||||
Changes to files matching one of the regexps in this list are not listed.")
|
||||
|
||||
|
|
@ -269,14 +269,19 @@ Changes to files matching one of the regexps in this list are not listed.")
|
|||
"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"
|
||||
"install.sh" "install-sh" "missing" "mkinstalldirs"
|
||||
"termcap.dat" "termcap.src" "termcap.ucb" "termcap"
|
||||
"ChangeLog.nextstep" "Emacs.clr" "spec.txt"
|
||||
"gfdl.1"
|
||||
"texi/Makefile.in"
|
||||
"Imakefile" "icons/sink.ico" "aixcc.lex"
|
||||
"nxml/char-name/unicode"
|
||||
"spec.txt"
|
||||
"js2-mode.el" ; only installed very briefly, replaced by js.el
|
||||
;; In the old imported lisp/url ChangeLog, but never in Emacs.
|
||||
"mule-sysdp.el"
|
||||
;; Only briefly present.
|
||||
"tests/gnustest-nntp.el" "tests/gnustest-registry.el"
|
||||
"cedet/tests/testtemplates.cpp"
|
||||
"cedet/tests/testusing.cpp"
|
||||
"cedet/tests/scopetest.cpp"
|
||||
|
|
@ -286,7 +291,7 @@ Changes to files matching one of the regexps in this list are not listed.")
|
|||
"cedet/tests/teststruct.cpp"
|
||||
"*.el"
|
||||
;; Autogen:
|
||||
"cus-load.el" "finder-inf.el" "ldefs-boot.el"
|
||||
"cus-load.el" "finder-inf.el" "ldefs-boot.el" "loaddefs-boot.el"
|
||||
"compile" "config.guess" "config.sub" "depcomp"
|
||||
"autogen/compile" "autogen/config.guess" "autogen/config.in"
|
||||
"autogen/config.sub" "autogen/depcomp" "autogen/install-sh"
|
||||
|
|
@ -302,6 +307,8 @@ Changes to files matching one of the regexps in this list are not listed.")
|
|||
"gnu-hp300" "refcard.bit" "ledit.l" "forms.README" "forms-d2.dat"
|
||||
"CXTERM-DIC/PY.tit" "CXTERM-DIC/ZIRANMA.tit"
|
||||
"CXTERM-DIC/CTLau.tit" "CXTERM-DIC/CTLauB.tit"
|
||||
"copying.paper" "celibacy.1" "condom.1" "echo.msg" "sex.6"
|
||||
"COOKIES" "INTERVIEW" "MAILINGLISTS" "MOTIVATION"
|
||||
"NICKLES.WORTH" "INTERVAL.IDEAS" "RCP"
|
||||
"3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX"
|
||||
"CODINGS" "CHARSETS"
|
||||
|
|
@ -344,23 +351,21 @@ Changes to files matching one of the regexps in this list are not listed.")
|
|||
"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"
|
||||
;; Textual comments that are not files.
|
||||
"All" "Version" "Everywhere" "Many" "Various" "files"
|
||||
;; Directories.
|
||||
"vms" "mac" "url" "tree-widget"
|
||||
)
|
||||
"List of files and directories to ignore.
|
||||
Changes to files in this list are not listed.")
|
||||
|
||||
;; List via: find . -name '*.el' | sed 's/.*\///g' | sort | uniq -d
|
||||
;; FIXME It would be better to discover these dynamically.
|
||||
;; Note that traditionally "Makefile.in" etc have not been in this list.
|
||||
;; Ditto for "abbrev.texi" etc.
|
||||
(defconst authors-ambiguous-files
|
||||
'("chart.el"
|
||||
'("Makefile.in"
|
||||
"makefile.w32-in"
|
||||
"chart.el"
|
||||
"cl-lib.el"
|
||||
"compile.el"
|
||||
"complete.el"
|
||||
"cpp.el"
|
||||
|
|
@ -379,11 +384,13 @@ Changes to files in this list are not listed.")
|
|||
"format.el"
|
||||
"generic.el"
|
||||
"georgian.el"
|
||||
"grammar.el"
|
||||
"greek.el"
|
||||
"grep.el"
|
||||
"hebrew.el"
|
||||
"imenu.el"
|
||||
"indian.el"
|
||||
"info-xref.el"
|
||||
"japanese.el"
|
||||
"java.el"
|
||||
"lao.el"
|
||||
|
|
@ -391,6 +398,7 @@ Changes to files in this list are not listed.")
|
|||
"locate.el"
|
||||
"make.el"
|
||||
"mode.el"
|
||||
"mule-util.el"
|
||||
"python.el"
|
||||
"rmailmm.el"
|
||||
"semantic.el"
|
||||
|
|
@ -403,6 +411,7 @@ Changes to files in this list are not listed.")
|
|||
"table.el"
|
||||
"texi.el"
|
||||
"thai.el"
|
||||
"thingatpt.el"
|
||||
"tibetan.el"
|
||||
"util.el"
|
||||
"vc-bzr.el"
|
||||
|
|
@ -575,12 +584,19 @@ Changes to files in this list are not listed.")
|
|||
(defconst authors-valid-file-names
|
||||
'("aclocal.m4"
|
||||
"build-ins.in"
|
||||
"Makefile"
|
||||
"Makefile.noleim"
|
||||
"makedist.bat"
|
||||
"makefile.def"
|
||||
"makefile.nt"
|
||||
"ns.mk"
|
||||
"README"
|
||||
;; There were a few of these, not just the generated top-level one.
|
||||
"configure" "config.h"
|
||||
;; nt/
|
||||
"ebuild.bat" "install.bat" "fast-install.bat"
|
||||
"debug.bat.in" "emacs.bat.in"
|
||||
"inc/sys/dir.h" "inc/gettext.h"
|
||||
".gdbinit-union"
|
||||
"alloca.s"
|
||||
"make-delta"
|
||||
|
|
@ -603,16 +619,84 @@ Changes to files in this list are not listed.")
|
|||
"emacs16_mac.png" "emacs24_mac.png"
|
||||
"emacs256_mac.png" "emacs32_mac.png"
|
||||
"emacs48_mac.png" "emacs512_mac.png"
|
||||
"ps-prin2.ps" "ps-prin3.ps"
|
||||
"emacs.xbm" "gnu.xpm" "gnus-pointer.xbm" "gnus-pointer.xpm"
|
||||
;; Moved from etc/ to etc/images, and/or removed.
|
||||
"gnus.pbm" "gnus.xbm" "gnus.xpm" "letter.pbm" "letter.xbm" "letter.xpm"
|
||||
"splash.pbm" "splash.xbm" "splash.xpm" "splash8.xpm"
|
||||
"images/execute.pbm" "images/execute.xpm" "images/fld-open.pbm"
|
||||
"images/fld-open.xpm" "images/highlight.pbm" "images/highlight.xpm"
|
||||
"images/mail.pbm" "images/mail.xpm" "images/mail/alias.pbm"
|
||||
"images/mail/alias.xpm" "images/mail/refile.pbm"
|
||||
"images/mail/refile.xpm" "images/page-down.pbm"
|
||||
"images/page-down.xpm" "images/widen.pbm" "images/widen.xpm"
|
||||
"images/gnus/bar.xbm" "images/gnus/bar.xpm"
|
||||
"images/gnus/reverse-smile.xpm"
|
||||
"revdiff" ; admin/
|
||||
"vcdiff" "rcs-checkin" "tindex.pl"
|
||||
"mainmake" "sed1.inp" "sed2.inp" "sed3.inp" ; msdos/
|
||||
"mac-fix-env.m"
|
||||
;; Deleted vms stuff:
|
||||
"temacs.opt" "descrip.mms" "compile.com" "link.com"
|
||||
"compact.el" "fadr.el"
|
||||
"calc/calc-maint.el"
|
||||
"emacs-lisp/eieio-comp.el"
|
||||
"erc-hecomplete.el"
|
||||
"eshell/esh-maint.el"
|
||||
"language/persian.el"
|
||||
"meese.el"
|
||||
"mh-exec.el" "mh-init.el" "mh-customize.el"
|
||||
"net/zone-mode.el" "xesam.el"
|
||||
"term/mac-win.el" "sup-mouse.el"
|
||||
"url-https.el"
|
||||
"org-mac-message.el" "org-mew.el" "org-w3m.el" "org-vm.el" "org-wl.el"
|
||||
"org-mks.el" "org-remember.el" "org-xoxo.el" "org-docbook.el"
|
||||
"org-freemind.el" "ox-jsinfo.el"
|
||||
"org-exp-blocks.el" ; maybe this is ob-exp now? dunno
|
||||
"org-lparse.el"
|
||||
"org-special-blocks.el" "org-taskjuggler.el"
|
||||
;; gnus
|
||||
"nnwfm.el" "nnlistserv.el" "nnkiboze.el" "nndb.el" "nnsoup.el"
|
||||
"netrc.el" "password.el" "sasl-cram.el" "sasl-digest.el" "sasl-ntlm.el"
|
||||
"sasl.el" "dig.el" "dns.el" "hex-util.el" "sha1.el" "md4.el"
|
||||
"hmac-def.el" "hmac-md5.el" "ntlm.el" "hashcash.el" "smime-ldap.el"
|
||||
"assistant.el" "gnus-utils.el" "tls.el" "pgg-def.el" "pgg-gpg.el"
|
||||
"gnus-compat.el" "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el" "pgg.el"
|
||||
"dns-mode.el" "run-at-time.el" "gnus-encrypt.el" "sha1-el.el"
|
||||
"gnus-gl.el" "gnus.sum.el" "proto-stream.el" "color.el" "color-lab.el"
|
||||
"eww.el" "shr-color.el" "shr.el" "earcon.el" "gnus-audio.el" "encrypt.el"
|
||||
;; doc
|
||||
"getopt.c" "texindex.c" "news.texi" "vc.texi" "vc2-xtra.texi"
|
||||
"back.texi" "vol1.texi" "vol2.texi" "elisp-covers.texi" "two.el"
|
||||
"front-cover-1.texi" "locals.texi" "calendar.texi" "info-stnd.texi"
|
||||
"tasks.texi"
|
||||
"advice.texi" "picture.texi" "texinfo.tex"
|
||||
;; lwlib:
|
||||
"dispatch.c" "dispatch.h" "xrdb-cpp.c" "xrdb.c"
|
||||
"lwlib-Xol.c" "lwlib-Xol.h" "lwlib-Xolmb.c" "lwlib-Xolmb.h"
|
||||
"lwlib-XolmbP.h"
|
||||
;; lib/
|
||||
"lib/stdio.c" "lib/gl_openssl.h" "lib/sigprocmask.c"
|
||||
"lib/pthread_sigprocmask.c" "lib/ldtoastr.c" "lib/dummy.c"
|
||||
"lib/ignore-value.h"
|
||||
;; lib-src/
|
||||
"cvtmail.c" "digest-doc.c" "emacsserver.c" "emacstool.c" "env.c"
|
||||
"etags-vmslib.c" "fakemail.c" "getdate.c" "getopt.h" "getopt1.c"
|
||||
"getopt_.h" "getopt_int.h" "gettext.h" "leditcfns.c" "loadst.c"
|
||||
"make-path.c" "qsort.c" "sorted-doc.c" "tcp.c" "timer.c" "wakeup.c"
|
||||
"yow.c"
|
||||
;; etc/
|
||||
"emacsclient.c" "etags.c" "hexl.c" "make-docfile.c" "movemail.c"
|
||||
"tpu-doc.el" ; FIXME? renamed to something?
|
||||
)
|
||||
"File names which are valid, but no longer exist (or cannot be found)
|
||||
in the repository.")
|
||||
|
||||
;; Note that any directory part on the RHS is retained.
|
||||
;; Cf authors-renamed-files-regexps.
|
||||
;; NB So only add a directory if needed to disambiguate.
|
||||
;; FIXME?
|
||||
;; Although perhaps we could let authors-disambiguate-file-name do that?
|
||||
(defconst authors-renamed-files-alist
|
||||
'(("nt.c" . "w32.c") ("nt.h" . "w32.h")
|
||||
("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h")
|
||||
|
|
@ -622,15 +706,28 @@ in the repository.")
|
|||
("unexnt.c" . "unexw32.c")
|
||||
("s/windowsnt.h" . "s/ms-w32.h")
|
||||
("s/ms-w32.h" . "inc/ms-w32.h")
|
||||
("src/config.h" . "config.h")
|
||||
("winnt.el" . "w32-fns.el")
|
||||
("linux.h" . "gnu-linux.h")
|
||||
("emacs.manifest" . "emacs-x86.manifest")
|
||||
("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")
|
||||
("debug.bat" . "debug.bat.in")
|
||||
("emacs.bat" . "emacs.bat.in")
|
||||
;; paths.h.dist -> paths.h-dist -> paths.h.in -> paths.in -> epaths.in.
|
||||
("paths.h.dist" . "epaths.in")
|
||||
("paths.h-dist" . "epaths.in")
|
||||
("paths.h.in" . "epaths.in")
|
||||
("paths.in" . "epaths.in")
|
||||
("patch1" . "sed1.inp")
|
||||
("INSTALL.MSYS" . "INSTALL")
|
||||
("server.c" . "emacsserver.c")
|
||||
("lib-src/etags.c" . "etags.c")
|
||||
;; msdos/
|
||||
("is-exec.c" . "is_exec.c")
|
||||
("enriched.doc" . "enriched.txt")
|
||||
("GETTING.GNU.SOFTWARE" . "FTP")
|
||||
("etc/MACHINES" . "MACHINES")
|
||||
|
|
@ -649,38 +746,71 @@ in the repository.")
|
|||
("leim-Makefile.in" . "leim/Makefile.in")
|
||||
("emacs-lisp/testcover-ses.el" . "tcover-ses.el")
|
||||
("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el")
|
||||
("progmodes/dos.el" . "bat-mode.el")
|
||||
;; index and pick merged into search.
|
||||
("mh-index.el" . "mh-search.el")
|
||||
("mh-pick.el" . "mh-search.el")
|
||||
("font-setting.el" . "dynamic-setting.el")
|
||||
;; INSTALL-CVS -> .CVS -> .BZR
|
||||
("INSTALL-CVS" . "INSTALL.BZR")
|
||||
("INSTALL.CVS" . "INSTALL.BZR")
|
||||
("help-funs.el" . "help-fns.el")
|
||||
("erc-notifications.el" . "erc-desktop-notifications.el")
|
||||
("org-complete.el" . "org-pcomplete.el")
|
||||
("org-export.el" . "ox.el") ; ?
|
||||
;; Was definitely renamed to org-latex.el, then... ?
|
||||
("org-export-latex.el" . "ox-latex.el") ; ?
|
||||
("org-exp.el" . "ox.el") ; ?
|
||||
("progmodes/cfengine3.el" . "cfengine.el")
|
||||
;; Obsolete.
|
||||
("play/bruce.el" . "bruce.el")
|
||||
("patcomp.el" . "patcomp.el")
|
||||
;; From lisp to etc/forms.
|
||||
("forms-d2.el" . "forms-d2.el")
|
||||
("forms-pass.el" . "forms-pass.el")
|
||||
;; From lisp/ to etc/nxml.
|
||||
("nxml/test.invalid.xml" . "test-invalid.xml")
|
||||
("nxml/test.valid.xml" . "test-valid.xml")
|
||||
;; The one in lisp is eshell/eshell.el.
|
||||
("eshell.el" . "automated/eshell.el")
|
||||
("eshell/esh-test.el" . "automated/eshell.el")
|
||||
;; INSTALL-CVS -> .CVS -> .BZR -> .REPO
|
||||
("INSTALL-CVS" . "INSTALL.REPO")
|
||||
("INSTALL.CVS" . "INSTALL.REPO")
|
||||
("INSTALL.BZR" . "INSTALL.REPO")
|
||||
("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf")
|
||||
("gnus-logo.eps" . "refcards/gnus-logo.eps")
|
||||
("gnus-logo.eps" . "gnus-logo.eps") ; moved to refcards/
|
||||
("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")
|
||||
;; Moved from top to etc/
|
||||
("CONTRIBUTE" . "CONTRIBUTE")
|
||||
("FTP" . "FTP")
|
||||
;; Moved from top to build-aux/
|
||||
("move-if-change" . "move-if-change")
|
||||
("update-subdirs" . "update-subdirs")
|
||||
("emacs.tex" . "emacs.texi")
|
||||
("faq.texi" . "efaq.texi")
|
||||
("major.texi" . "modes.texi")
|
||||
;; And from emacs/ to misc/ and back again.
|
||||
("ns-emacs.texi" . "macos.texi")
|
||||
("overrides.texi" . "gnus-overrides.texi")
|
||||
("xresmini.texi" . "xresources.texi")
|
||||
;; Not renamed, but we only have the latter in the Emacs repo.
|
||||
("trampver.texi.in" . "trampver.texi")
|
||||
("e/eterm" . "e/eterm-color")
|
||||
("e/eterm.ti" . "e/eterm-color.ti")
|
||||
;; Renamed with same directory.
|
||||
("e/eterm" . "eterm-color")
|
||||
("e/eterm.ti" . "eterm-color.ti")
|
||||
("README.txt" . "README")
|
||||
("emacs.names" . "JOKES")
|
||||
("ED.WORSHIP" . "JOKES")
|
||||
("GNU.JOKES" . "JOKES")
|
||||
("CHARACTERS" . "TODO")
|
||||
("schema/xhtml-basic-form.rnc" . "schema/xhtml-bform.rnc" )
|
||||
("schema/xhtml-basic-table.rnc" . "schema/xhtml-btable.rnc")
|
||||
("schema/xhtml-list.rnc" . "schema/xhtml-lst.rnc")
|
||||
("schema/xhtml-target.rnc" . "schema/xhtml-tgt.rnc")
|
||||
("schema/xhtml-style.rnc" . "schema/xhtml-xstyle.rnc")
|
||||
("schema/docbook-dyntbl.rnc" . "schema/docbk-dyntbl.rnc")
|
||||
("schema/docbook-soextbl.rnc" . "schema/docbk-soextbl.rn" )
|
||||
("texi/url.txi" . "url.texi")
|
||||
("images/gnus/mail_send.xpm" . "mail-send.xpm") ; still in images/gnus
|
||||
;; Renamed within same directory.
|
||||
("schema/xhtml-basic-form.rnc" . "xhtml-bform.rnc" )
|
||||
("schema/xhtml-basic-table.rnc" . "xhtml-btable.rnc")
|
||||
("schema/xhtml-list.rnc" . "xhtml-lst.rnc")
|
||||
("schema/xhtml-target.rnc" . "xhtml-tgt.rnc")
|
||||
("schema/xhtml-style.rnc" . "xhtml-xstyle.rnc")
|
||||
("schema/docbook-dyntbl.rnc" . "docbk-dyntbl.rnc")
|
||||
("schema/docbook-soextbl.rnc" . "docbk-soextbl.rn" )
|
||||
("edt-user.doc" . "edt.texi")
|
||||
("DEV-NOTES" . "nextstep")
|
||||
("org/COPYRIGHT-AND-LICENSE" . "org/README")
|
||||
|
|
@ -696,61 +826,158 @@ in the repository.")
|
|||
("autogen/update_autogen" . "update_autogen")
|
||||
;; Moved from etc/ to admin/.
|
||||
("grammars" . "grammars")
|
||||
;; From etc to lisp/cedet/semantic/.
|
||||
("grammars/bovine-grammar.el" . "bovine/grammar.el")
|
||||
("grammars/wisent-grammar.el" . "wisent/grammar.el")
|
||||
;; Moved from admin/nt/ to nt/.
|
||||
("nt/README.W32" . "README.W32")
|
||||
)
|
||||
"Alist of files which have been renamed during their lifetime.
|
||||
Elements are (OLDNAME . NEWNAME).")
|
||||
|
||||
;; Should still test that the renamed file exists. Does it?
|
||||
;; But it might be relative to a different ChangeLog...
|
||||
;;
|
||||
;; Note that only the basename of the RHS is used.
|
||||
;; Cf authors-renamed-files-alist.
|
||||
(defconst authors-renamed-files-regexps
|
||||
'(("^m/m-\\(.*\\.h\\)$" . "m/\\1")
|
||||
("^m-\\(.*\\.h\\)$" . "\\1")
|
||||
("^s/s-\\(.*\\.h\\)$" . "s/\\1")
|
||||
("^s-\\(.*\\.h\\)$" . "\\1")
|
||||
("^s/[-.a-zA-Z0-9_]+\\.h$" . t)
|
||||
("\\(.*\\)\\.cmd$" . "\\1.bat")
|
||||
("\\.bat$" . t)
|
||||
("\\.[ch]$" . t)
|
||||
("\\.el$" . t)
|
||||
("\\.ps$" . t)
|
||||
("\\.texi?$" . t)
|
||||
("\\.texinfo$" . t)
|
||||
("\\.xml?$" . t)
|
||||
("\\.x[pb]m$" . t)
|
||||
("\\.[xp]bm$" . t)
|
||||
("^paths\\." . t)
|
||||
("^install\\." . t)
|
||||
("^\\(TUTORIAL[^/]*\\)" . "tutorials/\\1")
|
||||
("^\\(tree-widget/\\(?:default\\|folder\\)/[-a-z]+\\.png\\)$" .
|
||||
'(("\\`\\(arg-nonnull\\|c\\+\\+defs\\|warn-on-use\\)\\.h\\'"
|
||||
"build-aux/snippet/\\&")
|
||||
("\\`\\(ebuild\\|emacs\\|install\\|fast-install\\)\\.cmd\\'" "\\1.bat")
|
||||
("\\`\\(book-spine\\|cl\\|forms\\|functions\\|gnus\\|sc\\|texinfo\\|vip\\)\
|
||||
\\.texinfo\\'" "\\1.texi")
|
||||
("\\`\\(\\(calc\\|org\\|vip\\)card\\|viperCard\\|\
|
||||
\\(\\(cs\\|fr\\|sk\\)-\\)?dired-ref\\|\
|
||||
\\(\\(cs\\|de\\|fr\\|gnus\\|pl\\|pt-br\\|ru\\|sk\\)-\\)?refcard\\|\
|
||||
\\(\\(cs\\|fr\\|sk\\)-\\)?survival\\)\\.tex\\'" "refcards/\\&")
|
||||
("\\`refcard-\\(de\\|pl\\)\\.tex\\'" "refcards/\\1-refcard.tex")
|
||||
("\\`\\(refcards/\\)?fr-drdref\\.tex\\'" "refcards/fr-dired-ref.tex")
|
||||
("^\\(TUTORIAL[^/]*\\)" "tutorials/\\1")
|
||||
("\\`themes/dev-\\(tsdh-\\(?:light\\|dark\\)-theme\\.el\\)\\'"
|
||||
"themes/\\1")
|
||||
;; Moved from lisp/toolbar to etc/images.
|
||||
("\\`toolbar/\\(back\\|fwd\\|left\\|right\\|up\\)_arrow\
|
||||
\\(\\.\\(?:pb\\|xp\\)m\\)\\'" "images/\\1-arrow\\2")
|
||||
("\\`toolbar/lc-\\(back\\|fwd\\|left\\|right\\|up\\)_arrow\
|
||||
\\(\\.\\(?:pb\\|xp\\)m\\)\\'" "images/low-color/\\1-arrow\\2")
|
||||
("\\`toolbar/mail_\\(compose\\|send\\)\\(\\.[xp]bm\\)\\'"
|
||||
"images/mail/\\1")
|
||||
("\\`toolbar/jump_to\\(\\.\\(?:pb\\|xp\\)m\\)\\'" "images/jump-to\\1")
|
||||
("\\`toolbar/lc-jump_to\\(\\.\\(?:pb\\|xp\\)m\\)\\'"
|
||||
"images/low-color/jump-to\\1")
|
||||
("\\`toolbar/\\(attach\\|cancel\\|close\\|copy\\|cut\\|\
|
||||
diropen\\|exit\\|help\\|home\\|index\\|info\\|mail\\|new\\|open\\|\
|
||||
paste\\|preferences\\|print\\|save\\|saveas\\|search\\|search-replace\\|\
|
||||
spell\\|undo\\)\\(\\.\\(?:pb\\|xp\\)m\\)\\'" "images/\\1\\2")
|
||||
("\\`toolbar/gud-\\(break\\|cont\\|down\\|finish\\|print\\|pstar\\|\
|
||||
remove\\|run\\|until\\|up\\|watch\\)\\(\\.\\(?:pb\\|xp\\)m\\)\\'"
|
||||
"images/gud/\\1\\2")
|
||||
("\\`\\(toolbar/gud-\\|images/gud/\\)n\\(i\\)?\\(\\.\\(?:pb\\|xp\\)m\\)\\'"
|
||||
"images/gud/next\\2\\3")
|
||||
("\\`\\(toolbar/gud-\\|images/gud/\\)s\\(i\\)?\\(\\.\\(?:pb\\|xp\\)m\\)\\'"
|
||||
"images/gud/step\\2\\3")
|
||||
("\\`toolbar/lc-\\([-a-z]+\\.xpm\\)\\'" "images/low-color/\\1")
|
||||
("^\\(tree-widget/\\(?:default\\|folder\\)/[-a-z]+\\.\\(png\\|xpm\\)\\)$"
|
||||
"images/\\1")
|
||||
("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)" .
|
||||
("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)"
|
||||
"\\1\\2\\3_mac\\4")
|
||||
("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png" .
|
||||
("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png"
|
||||
"\\1hicolor/\\2x\\2/apps/emacs.png")
|
||||
;; Moved from leim/ to lisp/leim/.
|
||||
("\\`quail/[-a-z0-9]+\\.el\\'" "leim/\\&")
|
||||
("\\`ja-dic/ja-dic\\.el\\'" "leim/\\&")
|
||||
("\\`vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el\\'" "vc/vc-\\1.el")
|
||||
("\\`vc-\\(annotate\\|arch\\|bzr\\|cvs\\|dav\\|dir\\|dispatcher\\|\
|
||||
git\\|hg\\|hooks\\|mtn\\|rcs\\|sccs\\|svn\\)\\.el\\'" "vc/\\&")
|
||||
("\\`ediff-\\(diff\\|help\\|hook\\|init\\|merg\\|mult\\|ptch\\|util\\|\
|
||||
vers\\|wind\\)\\.el\\'" "vc/\\&")
|
||||
("\\`pcvs-\\(defs\\|info\\|parse\\|util\\)\\.el\\'" "vc/\\&")
|
||||
("\\`\\(add-log\\|compare-w\\|cvs-status\\|diff-mode\\|diff\\|\
|
||||
ediff\\|emerge\\|log-edit\\|log-view\\|pcvs\\|smerge-mode\\|vc\\)\\.el\\'"
|
||||
"vc/\\&")
|
||||
("\\`\\(emacs-lisp/\\)?helpers\\.el\\'" "emacs-lisp/subr-x.el")
|
||||
;; I assume this is (essentially) what happened, org/ChangeLog is vague.
|
||||
("\\`org-\\(ascii\\|beamer\\|html\\|icalendar\\|jsinfo\\|latex\
|
||||
\\|odt\\|publish\\)\\.el\\'" "ox-\\1.el")
|
||||
;; From test/ to test/automated/.
|
||||
("comint-testsuite.el" "automated/\\&")
|
||||
("\\`\\(bytecomp\\|font-parse\\|icalendar\\|occur\\|newsticker\\)\
|
||||
-testsuite\\.el" "automated/\\1-tests.el")
|
||||
;; NB lax rules should come last.
|
||||
("^m/m-\\(.*\\.h\\)$" "m/\\1" t)
|
||||
("^m-\\(.*\\.h\\)$" "\\1" t)
|
||||
("^s/s-\\(.*\\.h\\)$" "s/\\1" t)
|
||||
("^s-\\(.*\\.h\\)$" "\\1" t)
|
||||
("\\.\\(el\\|[ch]\\|x[pb]m\\|pbm\\)\\'" t t)
|
||||
)
|
||||
"List regexps and rewriting rules for renamed files.
|
||||
Elements are (REGEXP . REPLACE). If REPLACE is a string, the file
|
||||
"List of regexps and rewriting rules for renamed files.
|
||||
Elements are (REGEXP REPLACE [LAX]). If REPLACE is a string, the file
|
||||
name matching REGEXP is replaced by REPLACE using `replace-string'.
|
||||
Otherwise, the file name is accepted as is.")
|
||||
Otherwise, the file name is accepted as is.
|
||||
Elements with LAX non-nil are only used in `authors-lax-changelogs'.")
|
||||
|
||||
;; It's really not worth trying to make these old logs fully valid.
|
||||
;; All the obvious real errors are gone.
|
||||
;; The main issue is _lots_ of moving around of files.
|
||||
;; Eg the progmodes/ (etc) directories did not exist before 1997.
|
||||
;; Also, lib-src/ did not exist, the files were in etc/.
|
||||
;; And various other things.
|
||||
;; Maybe this should just be any ChangeLog with a . extension,
|
||||
;; assuming we always fix logs fully before rotating them?
|
||||
(defconst authors-lax-changelogs
|
||||
'("erc/ChangeLog\\.0[1-8]\\'"
|
||||
"gnus/ChangeLog\\.[1-2]\\'"
|
||||
"lisp/ChangeLog\\.\\([1-9]\\|1[0-5]\\)\\'"
|
||||
"mh-e/ChangeLog\\.1\\'"
|
||||
"src/ChangeLog\\.\\([1-9]\\|1[0-2]\\)\\'")
|
||||
"List of regexps matching ChangeLogs that we do not print errors from.
|
||||
These are older ChangeLogs that have various issues.
|
||||
Additionally, for these logs we apply the `lax' elements of
|
||||
`authors-renamed-files-regexps'.")
|
||||
|
||||
|
||||
(defvar authors-checked-files-alist)
|
||||
(defvar authors-invalid-file-names)
|
||||
|
||||
;; This has become rather yucky. :(
|
||||
(defun authors-disambiguate-file-name (fullname)
|
||||
"Convert FULLNAME to an unambiguous relative-name."
|
||||
(let ((relname (file-name-nondirectory fullname))
|
||||
parent)
|
||||
(if (member relname authors-ambiguous-files)
|
||||
;; In case of ambiguity, just prepend the parent directory.
|
||||
;; FIXME obviously this is not a perfect solution.
|
||||
(if (string-equal "lisp"
|
||||
(setq parent (file-name-nondirectory
|
||||
(directory-file-name
|
||||
(file-name-directory fullname)))))
|
||||
dir parent)
|
||||
(if (and (member relname authors-ambiguous-files)
|
||||
;; Try to identify the top-level directory.
|
||||
;; FIXME should really use ROOT from M-x authors.
|
||||
(not (and (file-directory-p
|
||||
(expand-file-name
|
||||
"lib-src"
|
||||
(setq dir (file-name-directory fullname))))
|
||||
(file-directory-p (expand-file-name "etc" dir)))))
|
||||
;; I think it looks weird to see eg "lisp/simple.el".
|
||||
;; But for eg Makefile.in, we do want to say "lisp/Makefile.in".
|
||||
(if (and (string-equal "lisp"
|
||||
(setq parent (file-name-nondirectory
|
||||
(directory-file-name dir))))
|
||||
;; TODO better to simply have hard-coded list?
|
||||
;; Only really Makefile.in where this applies.
|
||||
(not (file-exists-p
|
||||
(expand-file-name (concat "../" relname) dir))))
|
||||
relname
|
||||
(format "%s/%s" parent relname))
|
||||
;; In case of ambiguity, just prepend the parent directory.
|
||||
;; FIXME obviously this is not a perfect solution.
|
||||
(format "%s/%s" (file-name-nondirectory (directory-file-name dir))
|
||||
relname))
|
||||
relname)))
|
||||
|
||||
(defun authors-lax-changelog-p (file)
|
||||
"Return non-nil if FILE matches `authors-lax-changelogs'."
|
||||
(let ((list authors-lax-changelogs)
|
||||
found)
|
||||
(while list
|
||||
(setq list (if (setq found (string-match-p (car list) file))
|
||||
nil
|
||||
(cdr list))))
|
||||
found))
|
||||
|
||||
(defun authors-canonical-file-name (file log-file pos author)
|
||||
"Return canonical file name for FILE found in LOG-FILE.
|
||||
Checks whether FILE is a valid (existing) file name, has been renamed,
|
||||
|
|
@ -762,35 +989,39 @@ to print a message if FILE is not found."
|
|||
;; 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))
|
||||
relname
|
||||
valid)
|
||||
laxlog relname valid)
|
||||
(if entry
|
||||
(cdr entry)
|
||||
(setq relname (file-name-nondirectory file))
|
||||
(if (or (member relname authors-valid-file-names)
|
||||
(if (or (member file authors-valid-file-names)
|
||||
(member relname authors-valid-file-names)
|
||||
(file-exists-p file)
|
||||
(file-exists-p relname)
|
||||
(file-exists-p (concat "etc/" relname)))
|
||||
(file-exists-p relname) ; FIXME? appropriate?
|
||||
)
|
||||
(setq valid (authors-disambiguate-file-name fullname))
|
||||
(setq valid (assoc file authors-renamed-files-alist))
|
||||
(if valid
|
||||
(if (setq valid (assoc file authors-renamed-files-alist))
|
||||
(setq valid (cdr valid))
|
||||
(let ((rules authors-renamed-files-regexps))
|
||||
(setq laxlog (authors-lax-changelog-p log-file))
|
||||
(let ((rules authors-renamed-files-regexps)
|
||||
rule)
|
||||
(while rules
|
||||
(if (string-match (car (car rules)) file)
|
||||
(setq valid (if (stringp (cdr (car rules)))
|
||||
(setq rule (car rules))
|
||||
(if (and (or laxlog (not (nth 2 rule)))
|
||||
(string-match (car rule) file))
|
||||
(setq valid (if (stringp (nth 1 rule))
|
||||
(file-name-nondirectory
|
||||
(replace-match (cdr (car rules)) t nil file))
|
||||
(replace-match (nth 1 rule) t nil file))
|
||||
relname)
|
||||
rules nil))
|
||||
(setq rules (cdr rules))))))
|
||||
rules nil)
|
||||
(setq rules (cdr rules)))))))
|
||||
(setq authors-checked-files-alist
|
||||
(cons (cons fullname valid) authors-checked-files-alist))
|
||||
(unless (or valid
|
||||
(member file authors-ignored-files)
|
||||
(authors-obsolete-file-p file)
|
||||
(string-match "[*]" file)
|
||||
(string-match "^[0-9.]+$" file))
|
||||
(string-match "^[0-9.]+$" file)
|
||||
laxlog)
|
||||
(setq authors-invalid-file-names
|
||||
(cons (format "%s:%d: unrecognized `%s' for %s"
|
||||
log-file
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue