;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:12:22 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/emacs-lisp/authors.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`authors.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;


#@41 Coding system used in the AUTHORS file.
(defvar authors-coding-system 'utf-8 (#$ . 552))
#@208 Maximum number of files for which to print individual information.
If an author has modified more files, only the names of the most
frequently modified files are printed and a count of the additional
files.
(defconst authors-many-files 20 (#$ . 648))
#@186 Alist of author aliases.

Each entry is of the form (REALNAME REGEXP...).  If an author's name
matches one of the REGEXPs, use REALNAME instead.
If REALNAME is nil, ignore that author.
(defconst authors-aliases '(("Aaron S. Hawley" "Aaron Hawley") ("Andrew Csillag" "Drew Csillag") ("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" "Christoph.Wedler@sap.com") ("Daniel Pfeiffer" "<Daniel.Pfeiffer@Informatik.START.db.de>" "<Daniel.Pfeiffer@Informatik.START.dbp.de>") ("David De La Harpe Golden" "David Golden") ("David Gillespie" "Dave Gillespie") ("David K√•gedal" "David K..edal") ("David M. Koppelman" "David M. Koppelman, Koppel@Ec?e.Lsu.Edu" "David Koppelman") ("David M. Smith" "David Smith" "David M Smith") ("Deepak Goel" "D. Goel") ("Ed L. Cashin" "Ed L Cashin") ("Edward M. Reingold" "Ed Reingold" "Edward M Reingold" "Reingold Edward M") ("Eli Zaretskii" "eliz") ("Emilio C. Lopes" "Emilio Lopes") ("Era Eriksson" "Era@Iki.Fi") ("Eric M. Ludlam" "Eric Ludlam") ("Eric S. Raymond" "Eric Raymond") ("Eric Youngdale" "(Eric Youngdale at youngdale@v6550c.nrl.navy.mil)") ("Francis J. Wright" "Dr Francis J. Wright" "Francis Wright") ("Fran√ßois Pinard" "Francois Pinard") ("Francesco Potort√¨" "Francesco Potorti" "Francesco Potorti`") ("Frederic Pierresteguy" "Fred Pierresteguy") ("Geoff Voelker" "voelker") ("Gerd M√∂llmann" "Gerd Moellmann") ("Hallvard B. Furuseth" "Hallvard B Furuseth" "Hallvard Furuseth") ("Hrvoje Nik≈°iƒá" "Hrvoje Niksic") (nil "<Use-Author-Address-Header@\\[127.1\\]>") (nil "Code Extracted") (nil "\\`FSF") ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn") ("Jan Dj√§rv" "Jan D." "Jan Djarv") ("Jay K. Adams" "jka@ece.cmu.edu" "Jay Adams") ("J√©r√¥me Marant" "J√©r√¥me Marant" "Jerome Marant") ("Jens-Ulrik Holger Petersen" "Jens-Ulrik Petersen") ("Jeremy Bertram Maitin-Shepard" "Jeremy Maitin-Shepard") ("Johan Bockg√•rd" "Johan Bockgard") ("John W. Eaton" "John Eaton") ("Jonathan I. Kamens" "Jonathan Kamens") ("Joseph Arceneaux" "Joe Arceneaux") ("Joseph M. Kelsey" "Joe Kelsey") ("Juan Le√≥n Lahoz Garc√≠a" "Juan-Leon Lahoz Garcia") ("K. Shane Hartman" "Shane Hartman") ("Kai Gro√üjohann" "Kai Grossjohann" "Kai Gro√üjohann" "Kai.Grossjohann@Cs.Uni-Dortmund.De" "Kai.Grossjohann@Gmx.Net") ("Karl Berry" "K. Berry") ("K√°roly L≈ërentey" "K√°roly L≈ërentey" "L≈ërentey K√°roly") ("Kazushi Marukawa" "Kazushi") ("Ken Manheimer" "Kenneth Manheimer") ("Kenichi Handa" "Ken'ichi Handa" "Kenichi HANDA") ("Kevin Greiner" "Kevin J. Greiner") ("Kim F. Storm" "Kim Storm") ("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" "(pmr@legacy.pajato.com)") ("Pavel Jan√≠k" "Pavel Jan√≠k Ml." "Pavel Janik Ml." "Pavel Janik" "Pavel Jan√≠k" "Pavel@Janik.Cz") ("Pavel Kobiakov" "Pavel Kobyakov") ("Per Abrahamsen" "Per Abhiddenware") ("Per Starb√§ck" "Per Starback") ("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" "rms@gnu.org") ("Robert J. Chassell" "Bob Chassell") ("Roland B. Roberts" "Roland B Roberts" "Roland Roberts") ("Rui-Tao Dong" "Rui-Tao Dong ~{6-Hpln~}") ("Sacha Chua" "Sandra Jean Chua") ("Sam Steingold" "Sam Shteingold") ("Satyaki Das" "Indexed search by Satyaki Das") ("Stephen A. Wood" "(saw@cebaf.gov)") ("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") ("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")) (#$ . 906))
#@59 List of authors whose names cannot be simply capitalized.
(defconst authors-fixed-case '("Bryan O'Sullivan" "Christian von Roques" "Christophe de Dinechin" "Craig McDaniel" "David J. MacKenzie" "David McCabe" "David O'Toole" "Dominique de Waleffe" "Edward O'Connor" "Exal de Jesus Garcia Carrillo" "Greg McGary" "Hans de Graaff" "James TD Smith" "Joel N. Weber II" "Michael McNamara" "Mike McEwan" "Nelson Jose dos Santos Ferreira" "Peter von der Ahe" "Peter O'Gorman" "Roland McGrath" "Sean O'Rourke") (#$ . 6080))
#@71 List of regexps matching files for which the FSF doesn't need papers.
(defvar authors-public-domain-files '("emerge\\.el" "vi\\.el" "feedmail\\.el" "mailpost\\.el" "hanoi\\.el" "meese\\.el" "studly\\.el" "modula2\\.el" "nnmaildir\\.el" "nnil\\.el" "b2m\\.c" "unexhp9k800\\.c" "emacsclient\\.1" "check-doc-strings") (#$ . 6602))
#@116 List of regexps matching obsolete files.
Changes to files matching one of the regexps in this list are not
listed.
(defvar authors-obsolete-files-regexps '("vc-\\*\\.el$" "spec.txt$" ".*loaddefs.el$" "\\.\\(cvs\\|git\\)ignore$" "\\.arch-inventory$" "preferences\\.\\(nib\\|gorm\\)" "vc-\\(rcs\\|cvs\\|sccs\\)-hooks\\.el$") (#$ . 6937))
#@88 List of files and directories to ignore.
Changes to files in this list are not listed.
(defconst authors-ignored-files '("external-lisp" "lock" "share-lib" "local-lisp" "noleim-Makefile.in" "NEWS" "ORDERS" "PROBLEMS" "FAQ" "AUTHORS" "FOR-RELEASE" "TODO" "todo" "MACHINES" "SERVICE" "README.unicode" "README.multi-tty" "TUTORIAL.translators" "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" "gfdl.1" "texi/Makefile.in" "Imakefile" "icons/sink.ico" "aixcc.lex" "nxml/char-name/unicode" "js2-mode.el" "cedet/tests/testtemplates.cpp" "cedet/tests/testusing.cpp" "cedet/tests/scopetest.cpp" "cedet/tests/scopetest.java" "cedet/tests/test.cpp" "cedet/tests/test.py" "cedet/tests/teststruct.cpp" "*.el" "cus-load.el" "finder-inf.el" "ldefs-boot.el" "split-man" "Xkeymap.txt" "ms-7bkermit" "ulimit.hack" "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" "NICKLES.WORTH" "INTERVAL.IDEAS" "RCP" "3B-MAXMEM" "AIX.DUMP" "SUN-SUPPORT" "XENIX" "CODINGS" "CHARSETS" "calc/INSTALL" "calc/Makefile" "vms-pp.trans" "_emacs" "batcomp.com" "notes/cpp" "emacsver.texi.in" "import-emacs" "release-utils" "ChangeLog.2001" "ChangeLog.2002" "ChangeLog.2003" "ChangeLog.2004" "ChangeLog.2005" "README.extras" "dir-template" "mkChangeLog" "MkChangeLog" "erc-auto.in" "CREDITS" "HACKING" "debian/changelog" "debian/control" "debian/copyright" "debian/maint/conffiles" "debian/maint/conffiles.in" "debian/maint/postinst" "debian/maint/postinst.in" "debian/maint/prerm" "debian/maint/prerm.in" "debian/README.Debian" "debian/README.erc-speak" "debian/rules" "debian/scripts/install" "debian/scripts/install.in" "debian/scripts/remove" "debian/scripts/remove.in" "debian/scripts/startup" "debian/scripts/startup.erc" "debian/scripts/startup.erc-speak") (#$ . 7279))
#@59 List of basenames occurring more than once in the source.
(defconst authors-ambiguous-files '("chart.el" "compile.el" "complete.el" "cpp.el" "ctxt.el" "debug.el" "dired.el" "el.el" "files.el" "find.el" "format.el" "grep.el" "imenu.el" "java.el" "linux.el" "locate.el" "make.el" "mode.el" "python.el" "semantic.el" "shell.el" "simple.el" "sort.el" "speedbar.el" "srecode.el" "table.el" "texi.el" "util.el" "wisent.el") (#$ . 9411))
#@72 Actions taken from the original, manually (un)maintained AUTHORS file.
(defconst authors-fixed-entries '(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]") ("Joseph Arceneaux" :wrote "xrdb.c") ("Frank Bresz" :wrote "diff.el") ("David M. Brown" :wrote "array.el") ("Shawn M. Carey" :wrote "freebsd.h") ("Satyaki Das" :cowrote "mh-search.el") ("Eric Decker" :changed "hp800.h" "hpux10-20.h" "sysdep.c") ("Lawrence R. Dodd" :cowrote "dired-x.el") ("Paul Eggert" :wrote "rcs2log" "vcdiff") ("Fred Fish" :changed "unexcoff.c") ("Keith Gabryelski" :wrote "hexl.c") ("Kevin Gallagher" :wrote "flow-ctrl.el") ("Howard Gayle" :wrote "casetab.c") ("Stephen Gildea" :wrote "refcard.tex" :cowrote "mh-funcs.el" "mh-search.el") ("David Gillespie" :wrote "cl.texi") ("Hewlett-Packard" :changed "emacsclient.c" "server.el" "keyboard.c") ("Indiana University Foundation" :changed "buffer.c" "buffer.h" "indent.c" "search.c" "xdisp.c" "region-cache.c" "region-cache.h") ("International Business Machines" :changed "emacs.c" "fileio.c" "process.c" "sysdep.c" "unexcoff.c") ("Michael K. Johnson" :changed "configure.in" "emacs.c" "intel386.h" "mem-limits.h" "process.c" "template.h" "sysdep.c" "syssignal.h" "systty.h" "unexcoff.c" "linux.h") ("Henry Kautz" :wrote "bib-mode.el") ("Joseph M. Kelsey" :changed "fileio.c" "dir.h") ("Sam Kendall" :changed "etags.c" "etags.el") ("Richard King" :wrote "userlock.el" "filelock.c") ("Sebastian Kremer" :changed "add-log.el") ("Mark Lambert" :changed "process.c" "process.h") ("Aaron Larson" :changed "bibtex.el") ("James R. Larus" :cowrote "mh-e.el") ("Lars Lindberg" :changed "dabbrev.el" :cowrote "imenu.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") ("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" "server.el" "lisp.h" "sysdep.c" "unexcoff.c" "xmenu.c") ("Niall Mansfield" :changed "etags.c") ("Brian Marick" :cowrote "hideif.el") ("Marko Kohtala" :changed "info.el") ("Sidney Markowitz" :changed "doctor.el") ("Richard Mlynarik" :wrote "ehelp.el") ("Mosur Mohan" :changed "etags.c") ("Jeff Morgenthaler" :changed "flow-ctrl.el" "vt200.el" "vt201.el" "vt220.el" "vt240.el") ("Motorola" :changed "buff-menu.el") ("Hiroshi Nakano" :changed "ralloc.c") ("Sundar Narasimhan" :changed "rnewspost.el") ("Mark Neale" :changed "fortran.el") ("Martin Neitzel" :changed "supercite.el") ("Andrew Oram" :changed "calendar.texi (and other files in man/)") ("Frederic Pierresteguy" :wrote "widget.c") ("Michael D. Prange" :changed "tex-mode.el") ("Roland B. Roberts" :changed "files.el" "sort.el" "buffer.h" "callproc.c" "dired.c" "process.c" "sysdep.c" "systty.h") ("Guillermo J. Rozas" :wrote "fakemail.c") ("Wolfgang Rupprecht" :changed "lisp-mode.el" "loadup.el" "sort.el" "alloc.c" "callint.c" "config.in" "ecrt0.c" "data.c" "fns.c" "lisp.h" "lread.c" "print.c" :wrote "float-sup.el" "floatfns.c") ("Schlumberger Technology Corporation" :changed "gud.el") ("Rainer Schoepf" :wrote "alpha.h" "unexalpha.c") ("William Sommerfeld" :wrote "emacsclient.c" "scribe.el") ("Leigh Stoller" :changed "emacsclient.c" "server.el") ("Steve Strassman" :wrote "spook.el") ("Shinichirou Sugou" :changed "etags.c") ("Sun Microsystems, Inc" :changed "emacsclient.c" "server.el" :wrote "emacs.icon" "sun.el") ("Kayvan Sylvan" :changed "supercite.el") ("Spencer Thomas" :changed "emacsclient.c" "server.el" "dabbrev.el" "unexcoff.c" "gnus.texi") ("Jonathan Vail" :changed "vc.el") ("James Van Artsdalen" :changed "usg5-4.h" "unexcoff.c") ("Geoff Voelker" :wrote "w32-fns.el" "w32.c" "w32.h" "w32heap.c" "w32heap.h" "w32inevt.c" "w32proc.c" "w32term.c" "ms-w32.h") ("Morten Welinder" :wrote "dosfns.c" "[many MS-DOS files]" "msdos.h") ("Eli Zaretskii" :wrote "bidi.c" "[bidirectional display in xdisp.c]") ("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" :cowrote "disass.el")) (#$ . 9848))
#@89 File names which are valid, but no longer exist (or cannot be found)
in the repository.
(defconst authors-valid-file-names '("aclocal.m4" "build-ins.in" "Makefile.noleim" "makedist.bat" "makefile.def" "makefile.nt" "debug.bat.in" "emacs.bat.in" ".gdbinit-union" "alloca.s" "make-delta" "config.w95" "emacstool.1" "align.umax" "cxux-crt0.s" "gould-sigvec.s" "getdate.y" "ymakefile" "permute-index" "index.perm" "ibmrs6000.inp" "b2m.c" "b2m.1" "b2m.pl" "emacs.bash" "emacs.csh" "ms-kermit" "emacs.ico" "emacs21.ico" "BABYL" "LPF" "LEDIT" "OTHER.EMACSES" "emacs16_mac.png" "emacs24_mac.png" "emacs256_mac.png" "emacs32_mac.png" "emacs48_mac.png" "emacs512_mac.png" "revdiff" "mainmake" "sed1.inp" "sed2.inp" "sed3.inp" "mac-fix-env.m" "temacs.opt" "descrip.mms" "compile.com" "link.com") (#$ . 14102))
#@97 Alist of files which have been renamed during their lifetime.
Elements are (OLDNAME . NEWNAME).
(defconst authors-renamed-files-alist '(("nt.c" . "w32.c") ("nt.h" . "w32.h") ("ntheap.c" . "w32heap.c") ("ntheap.h" . "w32heap.h") ("ntinevt.c" . "w32inevt.c") ("ntinevt.h" . "w32inevt.h") ("ntproc.c" . "w32proc.c") ("w32console.c" . "w32term.c") ("unexnt.c" . "unexw32.c") ("s/windowsnt.h" . "s/ms-w32.h") ("winnt.el" . "w32-fns.el") ("config.emacs" . "configure") ("config.h.dist" . "config.in") ("config.h-dist" . "config.in") ("config.h.in" . "config.in") ("paths.h-dist" . "paths.h.in") ("patch1" . "sed1.inp") ("GETTING.GNU.SOFTWARE" . "FTP") ("etc/MACHINES" . "MACHINES") ("ONEWS" . "NEWS.19") ("ONEWS.1" . "NEWS.1-17") ("ONEWS.2" . "NEWS.1-17") ("ONEWS.3" . "NEWS.18") ("ONEWS.4" . "NEWS.18") ("ORDERS.USA" . "ORDERS") ("EUROPE" . "ORDERS") ("DIFF" . "OTHER.EMACSES") ("CCADIFF" . "OTHER.EMACSES") ("GOSDIFF" . "OTHER.EMACSES") ("Makefile.in.in" . "Makefile.in") ("leim-Makefile" . "leim/Makefile") ("leim-Makefile.in" . "leim/Makefile.in") ("emacs-lisp/testcover-ses.el" . "tcover-ses.el") ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el") ("mh-index.el" . "mh-search.el") ("mh-pick.el" . "mh-search.el") ("font-setting.el" . "dynamic-setting.el") ("INSTALL-CVS" . "INSTALL.BZR") ("INSTALL.CVS" . "INSTALL.BZR") ("refcards/fr-drdref.pdf" . "refcards/fr-dired-ref.pdf") ("gnus-logo.eps" . "refcards/gnus-logo.eps") ("build-install" . "build-ins.in") ("build-install.in" . "build-ins.in") ("unidata/Makefile" . "unidata/Makefile.in") ("trampver.texi.in" . "trampver.texi") ("e/eterm" . "e/eterm-color") ("e/eterm.ti" . "e/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") ("edt-user.doc" . "edt.texi") ("DEV-NOTES" . "nextstep") ("ctags.1" . "ctags.1") ("etags.1" . "etags.1") ("emacs.1" . "emacs.1") ("emacsclient.1" . "emacsclient.1") ("icons/emacs21.ico" . "emacs21.ico") ("nt/README.W32" . "README.W32")) (#$ . 14907))
#@232 List regexps and rewriting rules for renamed files.
Elements are (REGEXP . REPLACE).  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.
(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\\)$" . "images/\\1") ("^\\(images/icons/\\)mac\\(emacs\\)_\\([0-9]+\\)\\(\\.png\\)" . "\\1\\2\\3_mac\\4") ("\\(images/icons/\\)emacs_\\([0-9][0-9]\\)\\.png" . "\\1hicolor/\\2x\\2/apps/emacs.png")) (#$ . 17367))
#@51 Convert FULLNAME to an unambiguous relative-name.
(defalias 'authors-disambiguate-file-name #[(fullname) "\304!\305\211\235\203&\304\306\307!!!\211\310\230\203\n\202'\311\312	\n#\202'\n*\207" [fullname parent relname authors-ambiguous-files file-name-nondirectory nil directory-file-name file-name-directory "lisp" format "%s/%s"] 5 (#$ . 18339)])
#@313 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-directory part of
the file name.  Only uses the LOG-FILE position POS and associated AUTHOR
to print a message if FILE is not found.
(defalias 'authors-canonical-file-name #[(file log-file pos author) "\306\307	!\"\310\n\"\311\211\f\203\fA\202\307\312!\211\235\2049\313!\2049\313
!\2049\313\314
P!\203A\315\n!\202\214\310\"\211\203TA\202\214\211\203\213\316@@\"\203\202@A;\203|\312\317@A\320\311$!\202}
\311A\211\204\\)\nBB\204\305\235\204\305\321!\204\305\316\322\"\204\305\316\323\"\204\305\324\325	\326e\"T%B,\207" [file log-file fullname authors-checked-files-alist entry relname expand-file-name file-name-directory assoc nil file-name-nondirectory file-exists-p "etc/" authors-disambiguate-file-name string-match replace-match t authors-obsolete-file-p "[*]" "^[0-9.]+$" format "%s:%d: unrecognized `%s' for %s" count-lines valid authors-valid-file-names authors-renamed-files-alist authors-renamed-files-regexps rules authors-ignored-files pos author authors-invalid-file-names] 7 (#$ . 18705)])
#@52 Add actions from `authors-fixed-entries' to TABLE.
(defalias 'authors-add-fixed-entries #[(table) "\306\211\205>\n@\211@\306	A\306\211\2035\n@\2119\203&
\202.\307\f
$\210\nA\211\204,\nA\211\204\306*\207" [authors-fixed-entries entry --dolist-tail-- action author item nil authors-add table] 6 (#$ . 19979)])
#@149 Return non-nil if FILE is obsolete.
FILE is considered obsolete if it matches one of the regular expressions
from `authors-obsolete-files-regexps'.
(defalias 'authors-obsolete-file-p #[(file) "\304	\203\n\204\305	@\"	A\211\204\n*\207" [authors-obsolete-files-regexps regexps obsolete-p file nil string-match] 4 (#$ . 20317)])
#@232 Record that AUTHOR worked on FILE.
ACTION is a keyword symbol describing what he did.  Record file,
author and what he did in hash table TABLE.  See the description of
`authors-scan-change-log' for the structure of the hash table.
(defalias 'authors-add #[(author file action table) "	\235\206\306!\206\n\307\232?\205P\310\n\"\311\f\"\312

\2043\313\n\314BD\fB#\202O\311
A\"\211
\203H
\211AT\241\202O
\314BC\244+\207" [file authors-ignored-files author table value entry authors-obsolete-file-p "" gethash assoc nil puthash 1 slot action] 5 (#$ . 20662)])
#@220 Return a canonicalized form of AUTHOR, an author name.
If AUTHOR has an entry in `authors-aliases', use that.  Remove
email addresses.  Capitalize words in the author's name, unless
it is found in `authors-fixed-case'.
(defalias 'authors-canonical-author-name #[(author) "\306\211	\2031	@@	@A	A\n\203\307\n@\f\"\203*\306\211\202\nA\211\202+\f\205a\310\311\312\f#\310\313\312\f#\310\314\312\f#\310\315\316\f#\307\317\f\"\204W\312\f
\235@\206a\320\f!\207" [authors-aliases aliases regexps realname author authors-fixed-case nil string-match replace-regexp-in-string "[ 	]*[(<].*$" "" "`[ 	]+" "[ 	]+$" "[ 	]+" " " "[-, 	]" capitalize] 5 (#$ . 21251)])
#@560 Scan change log LOG-FILE for author information.

For each change mentioned in the log, add an entry to hash table TABLE
under the author's canonical name.

Keys of TABLE are author names.  Values are alists of entries (FILE
(ACTION . COUNT) ...).  FILE is one file the author worked on.  The
rest of the entry is a list of keyword symbols describing what he did
with the file and the number of each action:

:wrote		means the author wrote the file
:cowrote	means he wrote the file in collaboration with others
:changed	means he changed the file COUNT times.
(defalias 'authors-scan-change-log #[(log-file table) "\306\307\310\n!\311\n!\307\211%\307&r\fq\210\214~\210eb\210\312\313\307\314#\203\362\315 \210`&\316\317!\203N\307\320\307w\210\316\321!\204\322\323`\324 \"!
B\325y\210\2024\316\326!\203\323\327\225\324 \"'\330\331'\"\204}\325y\203}\316\332!\204}'\323\333 \324 \"P'\202\\\330\331'\"\203\353'\327\211\224O'\334\335\336'#'\334\337\336'#'\340'!\307%\211(\203\352(@%\341%\n&
@$\211%\203\341
\307)\211(\203\340(@)\342)%\343*$\210(A\211(\204\310*(A\211(\204\252*\325y\210)\202*?\205\373\344\f!.\207" [enable-local-variables enable-local-eval log-file existing-buffer buffer authors :safe nil get-file-buffer find-file-noselect re-search-forward "^[0-9]\\|^[ 	]+\\* " t beginning-of-line looking-at "^[0-9]+-[0-9]+-[0-9]+" " 	+:0-9-" "\\($\\|\\*\\|Suggested\\|Trivial\\|Version\\|Originally\\|From:\\|Patch[ 	]+[Bb]y\\)" authors-canonical-author-name buffer-substring-no-properties line-end-position 1 "^[ 	]+\\*" 0 string-match ":" ":\\|^[ 	]*$" line-beginning-position replace-regexp-in-string "[[(<{].*$" "" "," split-string authors-canonical-file-name authors-add :changed kill-buffer file pos line --dolist-tail-- author table] 6 (#$ . 21936)])
#@97 Scan Lisp file FILE for author information.
TABLE is a hash table to add author information to.
(defalias 'authors-scan-el #[(file table) "\306!\307\310\311!\312\313!!r\fq\210\214~\210eb\210\314\315\310\316#\203w\317\320!\321\235\204w\316\322\310 \211!\203d\323\310w\210\324\325`\326 \"!
B\327\320y!\205^\330\331!\205^\332\225Sb\205^\330\333!?\211!\2048
G\320V\203n\334 \335\336
\"\210+\202*	?\205\200\337\f!,\207" [file existing-buffer enable-local-variables enable-local-eval buffer authors get-file-buffer :safe nil find-file-noselect authors-disambiguate-file-name expand-file-name re-search-forward "^;+[ 	]*\\(Authors?\\|Commentary\\|Code\\):[ 	]*" t match-string 1 ("Commentary" "Code") :wrote "-0-9 	" authors-canonical-author-name buffer-substring-no-properties line-end-position zerop looking-at ";;;?\\(	+ *\\|  +\\)[[:alnum:]]" 0 "[[:upper:]][-[:alpha:]]+:[ 	]" :cowrote mapc #[(author) "\304	\n$\207" [author file action table authors-add] 5] kill-buffer action continue] 5 (#$ . 23760)])
#@59 Return t if FILE is a file that was put in public domain.
(defalias 'authors-public-domain-p #[(file) "\304	\203\n\204\305	@\"\203\306	A\211\204\n*\207" [authors-public-domain-files list public-domain-p file nil string-match t] 4 (#$ . 24795)])
#@359 Insert information about AUTHOR's work on Emacs into `authors-author-list'.
CHANGES is an alist of entries (FILE (ACTION . COUNT) ...), as produced by
`authors-scan-change-log'.
The element added to `authors-author-list' is (AUTHOR WROTE CO-WROTE CHANGED),
where WROTE, CO-WROTE, and CHANGED are lists of the files written, co-written
and changed by AUTHOR.
(defalias 'authors-add-to-author-list #[(author changes) "\205\263\306\307\211\211
\307\211\203l@\211A@\310!\2032\311P\2024\307\312\236\203HB\202b\313\236\203W\nB\202b\314\236AB	B,A\211\204*\203v\315\316\"\n\203\315\n\316\"	\203\220\315	\317\"\211G\320\321	\"\fZ\322V\203\247	\233\323\324\fZ\"C\241\210\n	FB\211,\207" [author changed-list cowrote-list wrote-list nchanged changes 0 nil authors-public-domain-p " (public domain)" :wrote :cowrote :changed sort string-lessp #[(a b) "A	AU\203@	@\231\207A	AV\207" [a b] 2] mapcar car 2 format "and %d other files" change --dolist-tail-- actions file filestat slot authors-many-files authors-author-list] 6 (#$ . 25061)])
#@320 Extract author information from change logs and Lisp source files.
ROOT is the root directory under which to find the files.  If called
interactively, ROOT is read from the minibuffer.
Result is a buffer *Authors* containing authorship information, and a
buffer *Authors Errors* containing references to unknown files.
(defalias 'authors #[(root) "\306!\307	\310\311$\312\313\314\"\315\316\211?\317
!\210\320\306\321\"!\2041\322\323\324\"!\2041\325\326!\210?\316@\211A\203^A@@\327\330@\"\203U\331\332@\"\210\333@
\"\210AA\211A\204<*\307	\310\334$\211B\316C\211A\203\213A@C\331\332C\"\210\335C
\"\210AA\211A\204q+\331\336\f\"\210\337\f!q\210\340 \210\341D!\210\342c\210\316\211EF\343\344
\"\210\345F\346\"\211F\316E\211A\203\251A@\211E@EA@\347E8\350E8\316CGHIJ\351J\352\261\210I\203\353c\210I\316C\211A\203A@CiCG\\\354V\203\355c\210\356C\261\210AA\211A\204\365*\351c\210H\203ZI\203'\357c\210\360c\210H\316C\211A\203VA@CiCG\\\354V\203G\355c\210\356C\261\210AA\211A\2045*\351c\210G\203\237I\204iH\203l\357c\210\361c\210G\316C\211A\203\233A@CiCG\\\354V\203\214\355c\210\356C\261\210AA\211A\204z*\351c\210-AA\211A\204\275,\362\363\364D!\365\261\210\331\366\f\"\210K?\205\357\n\203\354r\337\367!q\210\316L\340 \210\341D!\210\370c\210\371\372\345\n\373\"\"\210eb\210\374 \210\331\375\304 \"\210)\376\f!-\207" [root find-program authors-invalid-file-names authors-checked-files-alist buffer-name table expand-file-name process-lines "-name" "ChangeLog*" make-hash-table :test equal "*Authors*" nil authors-add-fixed-entries file-exists-p "src/emacs.c" y-or-n-p format "Not the root directory of Emacs: %s, continue? " error "Not the root directory" string-match "ChangeLog\\(.[0-9]+\\)?$" message "Scanning %s..." authors-scan-change-log "*.el" authors-scan-el "Generating buffer %s..." get-buffer-create erase-buffer set-buffer-file-coding-system "Many people have contributed code included in the Free Software\nFoundation's distribution of GNU Emacs.  To show our appreciation for\ntheir public spirit, we list here in alphabetical order a condensed\nlist of their contributions.\n" maphash authors-add-to-author-list sort #[(a b) "@	@\231\207" [a b] 2] 2 3 "\n" ": " "wrote" 72 "\n " " " "and " "co-wrote" "changed" "\nLocal" " Variables:\ncoding: " symbol-name "\nEnd:\n" "Generating buffer %s... done" "*Authors Errors*" "Unrecognized file entries found:\n\n" mapc #[(f) "\301\302\"?\205\f\303\261\207" [f string-match "^[A-Za-z]+$" "\n"] 3] string-lessp compilation-mode "Errors were found.  See buffer %s" pop-to-buffer logs log --dolist-tail-- els file authors-coding-system a authors-author-list changed cowrote wrote author noninteractive buffer-read-only] 6 (#$ . 26181) "DEmacs source directory: "])
#@217 Produce an AUTHORS file.
Call this function in batch mode with two command line arguments FILE
and ROOT.  FILE is the file to write, ROOT is the root directory of
the Emacs source tree, from which to build the file.
(defalias 'batch-update-authors #[nil "\204\304\305!\210	G\306U\204\304\307!\210	\211A@	\211A@\310!\210\311\n!*\207" [noninteractive command-line-args-left file root error "`batch-update-authors' is to be used only with -batch" 2 "Call `batch-update-authors' with the name of the file to write" authors write-file] 2 (#$ . 29019)])
(provide 'authors)
