Gecko [ 122.154.134.11 ]

Name	Size	Permission
artist.elc	156.01 KB	-rw-r--r--
bib-mode.elc	7.43 KB	-rw-r--r--
bibtex-style.elc	5.39 KB	-rw-r--r--
bibtex.elc	157.5 KB	-rw-r--r--
conf-mode.elc	28.99 KB	-rw-r--r--
css-mode.elc	13.28 KB	-rw-r--r--
dns-mode.elc	6.9 KB	-rw-r--r--
enriched.elc	13.78 KB	-rw-r--r--
fill.elc	34.12 KB	-rw-r--r--
flyspell.elc	52.56 KB	-rw-r--r--
ispell.elc	97.58 KB	-rw-r--r--
makeinfo.elc	6.2 KB	-rw-r--r--
nroff-mode.elc	10.21 KB	-rw-r--r--
page-ext.elc	15.45 KB	-rw-r--r--
page.elc	3.19 KB	-rw-r--r--
paragraphs.elc	15.18 KB	-rw-r--r--
picture.elc	26.27 KB	-rw-r--r--
po.elc	2.84 KB	-rw-r--r--
refbib.elc	18.08 KB	-rw-r--r--
refer.elc	9.21 KB	-rw-r--r--
refill.elc	6.17 KB	-rw-r--r--
reftex-auc.elc	6 KB	-rw-r--r--
reftex-cite.elc	26.53 KB	-rw-r--r--
reftex-dcr.elc	12.53 KB	-rw-r--r--
reftex-global.elc	12.67 KB	-rw-r--r--
reftex-index.elc	61.35 KB	-rw-r--r--
reftex-parse.elc	21.31 KB	-rw-r--r--
reftex-ref.elc	19.57 KB	-rw-r--r--
reftex-sel.elc	16.58 KB	-rw-r--r--
reftex-toc.elc	30.88 KB	-rw-r--r--
reftex-vars.elc	80.53 KB	-rw-r--r--
reftex.elc	56.79 KB	-rw-r--r--
remember.elc	12.73 KB	-rw-r--r--
rst.elc	72.23 KB	-rw-r--r--
sgml-mode.elc	80.43 KB	-rw-r--r--
spell.elc	4.04 KB	-rw-r--r--
table.elc	161.74 KB	-rw-r--r--
tex-mode.elc	87.19 KB	-rw-r--r--
texinfmt.elc	83.84 KB	-rw-r--r--
texinfo.elc	35.12 KB	-rw-r--r--
texnfo-upd.elc	45.86 KB	-rw-r--r--
text-mode.elc	7.39 KB	-rw-r--r--
tildify.elc	8.47 KB	-rw-r--r--
two-column.elc	12.86 KB	-rw-r--r--
underline.elc	1.4 KB	-rw-r--r--

Code Editor : bibtex.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:17 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/textmodes/bibtex.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`bibtex.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\303\310\314&\207" [require button custom-declare-group bibtex nil "BibTeX mode." :group tex :prefix "bibtex-" bibtex-autokey "Generate automatically a key from the author/editor and the title field." "bibtex-autokey-"] 8)
#@52 List of functions to call on entry to BibTeX mode.
(custom-declare-variable 'bibtex-mode-hook 'nil '(#$ . 920) :group 'bibtex :type 'hook)
#@76 Type of field delimiters.  Allowed values are `braces' or `double-quotes'.
(custom-declare-variable 'bibtex-field-delimiters ''braces '(#$ . 1065) :group 'bibtex :type '(choice (const braces) (const double-quotes)))
#@74 Type of entry delimiters.  Allowed values are `braces' or `parentheses'.
(custom-declare-variable 'bibtex-entry-delimiters ''braces '(#$ . 1287) :group 'bibtex :type '(choice (const braces) (const parentheses)))
#@55 List of BibTeX entries that get an OPTcrossref field.
(custom-declare-variable 'bibtex-include-OPTcrossref ''("InProceedings" "InCollection") '(#$ . 1505) :group 'bibtex :type '(repeat string))
#@182 If non-nil, all newly created entries get an OPTkey field.
If this is a string, use it as the initial field text.
If this is a function, call it to generate the initial field text.
(custom-declare-variable 'bibtex-include-OPTkey 't '(#$ . 1706) :group 'bibtex :type '(choice (const :tag "None" nil) (string :tag "Initial text") (function :tag "Initialize Function") (const :tag "Default" t)))
(put 'bibtex-include-OPTkey 'risky-local-variable t)
#@186 List of optional fields the user wants to have always present.
Entries should be of the same form as the OPTIONAL and
CROSSREF-OPTIONAL lists in `bibtex-entry-field-alist' (which see).
(custom-declare-variable 'bibtex-user-optional-fields ''(("annote" "Personal annotation (ignored)")) '(#$ . 2159) :group 'bibtex :type '(repeat (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" (const nil) string function)))))
(put 'bibtex-user-optional-fields 'risky-local-variable t)
#@1762 Type of formatting performed by `bibtex-clean-entry'.
It may be t, nil, or a list of symbols out of the following:
opts-or-alts        Delete empty optional and alternative fields and
                      remove OPT and ALT prefixes from used fields.
required-fields     Signal an error if a required field is missing.
numerical-fields    Delete delimiters around numeral fields.
page-dashes         Change double dashes in page field to single dash
                      (for scribe compatibility).
whitespace          Delete whitespace at the beginning and end of fields.
inherit-booktitle   If entry contains a crossref field and the booktitle
                      field is empty, set the booktitle field to the content
                      of the title field of the crossreferenced entry.
realign             Realign entries, so that field texts and perhaps equal
                      signs (depending on the value of
                      `bibtex-align-at-equal-sign') begin in the same column.
                      Also fill fields.
last-comma          Add or delete comma on end of last field in entry,
                      according to value of `bibtex-comma-after-last-field'.
delimiters          Change delimiters according to variables
                      `bibtex-field-delimiters' and `bibtex-entry-delimiters'.
unify-case          Change case of entry types and field names.
braces              Enclose parts of field entries by braces according to
                      `bibtex-field-braces-alist'.
strings             Replace parts of field entries by string constants
                      according to `bibtex-field-strings-alist'.

The value t means do all of the above formatting actions.
The value nil means do no formatting at all.
(custom-declare-variable 'bibtex-entry-format ''(opts-or-alts required-fields numerical-fields) '(#$ . 2669) :group 'bibtex :type '(choice (const :tag "None" nil) (const :tag "All" t) (set :menu-tag "Some" (const opts-or-alts) (const required-fields) (const numerical-fields) (const page-dashes) (const whitespace) (const inherit-booktitle) (const realign) (const last-comma) (const delimiters) (const unify-case) (const braces) (const strings))))
(put 'bibtex-entry-format 'safe-local-variable #[(x) "\302=\206$�\302:\203�\211A@\303>\204�\304\202�\203\"�\304	)\207" [x OK t (opts-or-alts required-fields numerical-fields page-dashes whitespace inherit-booktitle realign last-comma delimiters unify-case braces strings) nil] 2])
#@236 Alist of field regexps that \[bibtex-clean-entry] encloses by braces.
Each element has the form (FIELDS REGEXP), where FIELDS is a list
of BibTeX field names and REGEXP is a regexp.
Whitespace in REGEXP will be replaced by "[ \t\n]+".
(custom-declare-variable 'bibtex-field-braces-alist 'nil '(#$ . 5177) :group 'bibtex :type '(repeat (list (repeat (string :tag "field name")) (choice (regexp :tag "regexp") (sexp :tag "sexp")))))
#@311 Alist of regexps that \[bibtex-clean-entry] replaces by string constants.
Each element has the form (FIELDS REGEXP TO-STR), where FIELDS is a list
of BibTeX field names.  In FIELDS search for REGEXP, which are replaced
by the BibTeX string constant TO-STR.
Whitespace in REGEXP will be replaced by "[ \t\n]+".
(custom-declare-variable 'bibtex-field-strings-alist 'nil '(#$ . 5615) :group 'bibtex :type '(repeat (list (repeat (string :tag "field name")) (regexp :tag "From regexp") (regexp :tag "To string constant"))))
#@157 List of functions to call when entry has been cleaned.
Functions are called with point inside the cleaned entry, and the buffer
narrowed to just the entry.
(custom-declare-variable 'bibtex-clean-entry-hook 'nil '(#$ . 6141) :group 'bibtex :type 'hook)
#@598 If non-nil, BibTeX mode maintains all entries in sorted order.
Allowed non-nil values are:
plain or t   All entries are sorted alphabetically.
crossref     All entries are sorted alphabetically unless an entry has a
             crossref field.  These crossrefed entries are placed in
             alphabetical order immediately preceding the main entry.
entry-class  The entries are divided into classes according to their
             entry type, see `bibtex-sort-entry-class'.  Within each class
             the entries are sorted alphabetically.
See also `bibtex-sort-ignore-string-entries'.
(custom-declare-variable 'bibtex-maintain-sorted-entries 'nil '(#$ . 6400) :group 'bibtex :type '(choice (const nil) (const plain) (const crossref) (const entry-class) (const t)))
(put 'bibtex-maintain-sorted-entries 'safe-local-variable '(lambda (a) (memq a '(nil t plain crossref entry-class))))
#@304 List of classes of BibTeX entry types, used for sorting entries.
If value of `bibtex-maintain-sorted-entries' is `entry-class'
entries are ordered according to the classes they belong to.  Each
class contains a list of entry types.  An entry `catch-all' applies
to all entries not explicitly mentioned.
(custom-declare-variable 'bibtex-sort-entry-class ''(("String") (catch-all) ("Book" "Proceedings")) '(#$ . 7302) :group 'BibTeX :type '(repeat (choice :tag "Class" (const :tag "catch-all" (catch-all)) (repeat :tag "Entry type" string))))
(put 'bibtex-sort-entry-class 'safe-local-variable #[(x) "\304	:\2033�	\211A@\n:\203)�\n\211A@\211;\204%�\305=\204%�\306)\202
�\n\203/�\306)\202�	\2039�\306)\207" [OK x y z t catch-all nil] 3])
#@201 If non-nil, BibTeX @String entries are not sort-significant.
That means they are ignored when determining ordering of the buffer
(e.g., sorting, locating alphabetical position for new entries, etc.).
(custom-declare-variable 'bibtex-sort-ignore-string-entries 't '(#$ . 8055) :group 'bibtex :type 'boolean)
#@75 Max length of `bibtex-field-kill-ring' before discarding oldest elements.
(custom-declare-variable 'bibtex-field-kill-ring-max '20 '(#$ . 8368) :group 'bibtex :type 'integer)
#@75 Max length of `bibtex-entry-kill-ring' before discarding oldest elements.
(custom-declare-variable 'bibtex-entry-kill-ring-max '20 '(#$ . 8549) :group 'bibtex :type 'integer)
#@137 Time interval in seconds for parsing BibTeX buffers during idle time.
Parsing initializes `bibtex-reference-keys' and `bibtex-strings'.
(custom-declare-variable 'bibtex-parse-keys-timeout '60 '(#$ . 8731) :group 'bibtex :type 'integer)
#@123 If non-nil, use fast but simplified algorithm for parsing BibTeX keys.
If parsing fails, try to set this variable to nil.
(custom-declare-variable 'bibtex-parse-keys-fast 't '(#$ . 8974) :group 'bibtex :type 'boolean)
#@1057 List of BibTeX entry types and their associated fields.
List elements are triples
(ENTRY-TYPE (REQUIRED OPTIONAL) (CROSSREF-REQUIRED CROSSREF-OPTIONAL)).
ENTRY-TYPE is the type of a BibTeX entry.  The remaining pairs contain
the required and optional fields of the BibTeX entry.
The second pair is used if a crossref field is present
and the first pair is used if a crossref field is absent.
If the second pair is nil, the first pair is always used.
REQUIRED, OPTIONAL, CROSSREF-REQUIRED and CROSSREF-OPTIONAL are lists.
Each element of these lists is a list of the form
(FIELD-NAME COMMENT-STRING INIT ALTERNATIVE-FLAG).
COMMENT-STRING, INIT, and ALTERNATIVE-FLAG are optional.
FIELD-NAME is the name of the field, COMMENT-STRING is the comment that
appears in the echo area, INIT is either the initial content of the
field or a function, which is called to determine the initial content
of the field, and ALTERNATIVE-FLAG (either nil or t) marks if the
field is an alternative.  ALTERNATIVE-FLAG may be t only in the
REQUIRED or CROSSREF-REQUIRED lists.
(custom-declare-variable 'bibtex-entry-field-alist ''(("Article" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article (BibTeX converts it to lowercase)") ("journal" "Name of the journal (use string, remove braces)") ("year" "Year of publication")) (("volume" "Volume of the journal") ("number" "Number of the journal (only allowed if entry contains volume)") ("pages" "Pages in the journal") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article (BibTeX converts it to lowercase)")) (("pages" "Pages in the journal") ("journal" "Name of the journal (use string, remove braces)") ("year" "Year of publication") ("volume" "Volume of the journal") ("number" "Number of the journal") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Book" ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book")) (("publisher" "Publishing company") ("year" "Year of publication") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Booklet" ((("title" "Title of the booklet (BibTeX converts it to lowercase)")) (("author" "Author1 [and Author2 ...] [and others]") ("howpublished" "The way in which the booklet was published") ("address" "Address of the publisher") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InBook" ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("chapter" "Chapter in the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("pages" "Pages in the book") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("chapter" "Chapter in the book")) (("pages" "Pages in the book") ("publisher" "Publishing company") ("year" "Year of publication") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InCollection" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in book (BibTeX converts it to lowercase)") ("booktitle" "Name of the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("chapter" "Chapter in the book") ("pages" "Pages in the book") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in book (BibTeX converts it to lowercase)") ("booktitle" "Name of the book")) (("pages" "Pages in the book") ("publisher" "Publishing company") ("year" "Year of publication") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("chapter" "Chapter in the book") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InProceedings" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in proceedings (BibTeX converts it to lowercase)") ("booktitle" "Name of the conference proceedings") ("year" "Year of publication")) (("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("pages" "Pages in the conference proceedings") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in proceedings (BibTeX converts it to lowercase)")) (("booktitle" "Name of the conference proceedings") ("pages" "Pages in the conference proceedings") ("year" "Year of publication") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Manual" ((("title" "Title of the manual")) (("author" "Author1 [and Author2 ...] [and others]") ("organization" "Publishing organization of the manual") ("address" "Address of the organization") ("edition" "Edition of the manual as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("MastersThesis" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the master's thesis (BibTeX converts it to lowercase)") ("school" "School where the master's thesis was written") ("year" "Year of publication")) (("type" "Type of the master's thesis (if other than \"Master's thesis\")") ("address" "Address of the school (if not part of field \"school\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Misc" (nil (("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the work (BibTeX converts it to lowercase)") ("howpublished" "The way in which the work was published") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("PhdThesis" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the PhD. thesis") ("school" "School where the PhD. thesis was written") ("year" "Year of publication")) (("type" "Type of the PhD. thesis") ("address" "Address of the school (if not part of field \"school\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Proceedings" ((("title" "Title of the conference proceedings") ("year" "Year of publication")) (("booktitle" "Title of the proceedings for cross references") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem")))) ("TechReport" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the technical report (BibTeX converts it to lowercase)") ("institution" "Sponsoring institution of the report") ("year" "Year of publication")) (("type" "Type of the report (if other than \"technical report\")") ("number" "Number of the technical report") ("address" "Address of the institution (if not part of field \"institution\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Unpublished" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the unpublished work (BibTeX converts it to lowercase)") ("note" "Remarks to be put at the end of the \\bibitem")) (("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication"))))) '(#$ . 9200) :group 'bibtex :type '(repeat (group (string :tag "Entry type") (group (repeat :tag "Required fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" (const :tag "No" nil) (const :tag "Yes" t))))) (repeat :tag "Optional fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function))))) (option :extra-offset -4 (group (repeat :tag "Crossref: required fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" (const :tag "No" nil) (const :tag "Yes" t))))) (repeat :tag "Crossref: optional fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function)))))))))
(put 'bibtex-entry-field-alist 'risky-local-variable t)
#@35 String starting a BibTeX comment.
(custom-declare-variable 'bibtex-comment-start '"@Comment" '(#$ . 21831) :group 'bibtex :type 'string)
#@64 List of functions to call when BibTeX entry has been inserted.
(custom-declare-variable 'bibtex-add-entry-hook 'nil '(#$ . 21974) :group 'bibtex :type 'hook)
#@129 Alist of month string definitions used in the BibTeX style files.
Each element is a pair of strings (ABBREVIATION . EXPANSION).
(custom-declare-variable 'bibtex-predefined-month-strings ''(("jan" . "January") ("feb" . "February") ("mar" . "March") ("apr" . "April") ("may" . "May") ("jun" . "June") ("jul" . "July") ("aug" . "August") ("sep" . "September") ("oct" . "October") ("nov" . "November") ("dec" . "December")) '(#$ . 22139) :group 'bibtex :type '(repeat (cons (string :tag "Month abbreviation") (string :tag "Month expansion"))))
#@123 Alist of string definitions used in the BibTeX style files.
Each element is a pair of strings (ABBREVIATION . EXPANSION).
(custom-declare-variable 'bibtex-predefined-strings '(append bibtex-predefined-month-strings '(("acmcs" . "ACM Computing Surveys") ("acta" . "Acta Informatica") ("cacm" . "Communications of the ACM") ("ibmjrd" . "IBM Journal of Research and Development") ("ibmsj" . "IBM Systems Journal") ("ieeese" . "IEEE Transactions on Software Engineering") ("ieeetc" . "IEEE Transactions on Computers") ("ieeetcad" . "IEEE Transactions on Computer-Aided Design of Integrated Circuits") ("ipl" . "Information Processing Letters") ("jacm" . "Journal of the ACM") ("jcss" . "Journal of Computer and System Sciences") ("scp" . "Science of Computer Programming") ("sicomp" . "SIAM Journal on Computing") ("tcs" . "Theoretical Computer Science") ("tocs" . "ACM Transactions on Computer Systems") ("tods" . "ACM Transactions on Database Systems") ("tog" . "ACM Transactions on Graphics") ("toms" . "ACM Transactions on Mathematical Software") ("toois" . "ACM Transactions on Office Information Systems") ("toplas" . "ACM Transactions on Programming Languages and Systems"))) '(#$ . 22686) :group 'bibtex :type '(repeat (cons (string :tag "String") (string :tag "String expansion"))))
#@176 List of BibTeX files containing string definitions.
List elements can be absolute file names or file names relative
to the directories specified in `bibtex-string-file-path'.
(custom-declare-variable 'bibtex-string-files 'nil '(#$ . 23981) :group 'bibtex :type '(repeat file))
#@69 *Colon separated list of paths to search for `bibtex-string-files'.
(defvar bibtex-string-file-path (getenv "BIBINPUTS") (#$ . -24264))
#@340 List of BibTeX files that are searched for entry keys.
List elements can be absolute file names or file names relative to the
directories specified in `bibtex-file-path'.  If an element is a directory,
check all BibTeX files in this directory.  If an element is the symbol
`bibtex-file-path', check all BibTeX files in `bibtex-file-path'.
(custom-declare-variable 'bibtex-files 'nil '(#$ . 24407) :group 'bibtex :type '(repeat (choice (const :tag "bibtex-file-path" bibtex-file-path) directory file)))
#@62 *Colon separated list of paths to search for `bibtex-files'.
(defvar bibtex-file-path (getenv "BIBINPUTS") (#$ . -24915))
#@74 If non-nil print help messages in the echo area on entering a new field.
(custom-declare-variable 'bibtex-help-message 't '(#$ . 25043) :group 'bibtex :type 'boolean)
#@102 String prefix for automatically generated reference keys.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-prefix-string '"" '(#$ . 25217) :group 'bibtex-autokey :type 'string)
#@233 Number of names to use for the automatically generated reference key.
Possibly more names are used according to `bibtex-autokey-names-stretch'.
If this variable is nil, all names are used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-names '1 '(#$ . 25436) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer))
#@165 Number of names that can additionally be used for reference keys.
These names are used only, if all names are used then.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-names-stretch '0 '(#$ . 25812) :group 'bibtex-autokey :type 'integer)
#@114 String to append to the generated key if not all names could be used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-additional-names '"" '(#$ . 26094) :group 'bibtex-autokey :type 'string)
#@118 If non-nil, expand strings when extracting the content of a BibTeX field.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-expand-strings 'nil '(#$ . 26328) :group 'bibtex-autokey :type 'boolean)
#@283 Alist of (OLD-REGEXP . NEW-STRING) pairs.
Used by the default values of `bibtex-autokey-name-change-strings' and
`bibtex-autokey-titleword-change-strings'.  Defaults to translating some
language specific characters to their ASCII transcriptions, and
removing any character accents.
(defvar bibtex-autokey-transcriptions '(("\\\\aa" . "a") ("\\\\AA" . "A") ("\\\"a\\|\\\\\\\"a\\|\\\\ae" . "ae") ("\\\"A\\|\\\\\\\"A\\|\\\\AE" . "Ae") ("\\\\i" . "i") ("\\\\j" . "j") ("\\\\l" . "l") ("\\\\L" . "L") ("\\\"o\\|\\\\\\\"o\\|\\\\o\\|\\\\oe" . "oe") ("\\\"O\\|\\\\\\\"O\\|\\\\O\\|\\\\OE" . "Oe") ("\\\"s\\|\\\\\\\"s\\|\\\\3" . "ss") ("\\\"u\\|\\\\\\\"u" . "ue") ("\\\"U\\|\\\\\\\"U" . "Ue") ("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b" . #1="") ("[`'\"{}#]" . #1#) ("\\\\?[ 	\n]+\\|~" . " ")) (#$ . 26566))
#@257 Alist of (OLD-REGEXP . NEW-STRING) pairs.
Any part of a name matching OLD-REGEXP is replaced by NEW-STRING.
Case is significant in OLD-REGEXP.  All regexps are tried in the
order in which they appear in the list.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-name-change-strings 'bibtex-autokey-transcriptions '(#$ . 27436) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New"))))
#@102 Function called for each name to perform case conversion.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-name-case-convert-function ''downcase '(#$ . 27892) :group 'bibtex-autokey :type '(choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function")))
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put bibtex-autokey-name-case-convert-function safe-local-variable #[(x) "\301>\207" [x (upcase downcase capitalize identity)] 2] defvaralias bibtex-autokey-name-case-convert] 4)
#@166 Number of characters from name to incorporate into key.
If this is set to anything but a number, all characters are used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-name-length ''infty '(#$ . 28541) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer))
#@96 String that comes between any two names in the key.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-name-separator '"" '(#$ . 28860) :group 'bibtex-autokey :type 'string)
#@116 Number of rightmost digits from the year field to incorporate into key.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-year-length '2 '(#$ . 29074) :group 'bibtex-autokey :type 'integer)
#@242 If non-nil use fields from crossreferenced entry if necessary.
If this variable is non-nil and some field has no entry, but a
valid crossref entry, the field from the crossreferenced entry is used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-use-crossref 't '(#$ . 29305) :group 'bibtex-autokey :type 'boolean)
#@281 Number of title words to use for the automatically generated reference key.
If this is set to anything but a number, all title words are used.
Possibly more words from the title are used according to
`bibtex-autokey-titlewords-stretch'.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titlewords '5 '(#$ . 29663) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer))
#@140 Regexp defining the termination of the main part of the title.
Case of the regexps is ignored.  See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-title-terminators '"[.!?:;]\\|--" '(#$ . 30092) :group 'bibtex-autokey :type 'regexp)
#@181 Number of words that can additionally be used from the title.
These words are used only, if a sentence from the title can be ended then.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titlewords-stretch '2 '(#$ . 30365) :group 'bibtex-autokey :type 'integer)
#@275 Determines words from the title that are not to be used in the key.
Each item of the list is a regexp.  If a word of the title matches a
regexp from that list, it is not included in the title part of the key.
Case is significant.  See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-ignore ''("A" "An" "On" "The" "Eine?" "Der" "Die" "Das" "[^[:upper:]].*" ".*[^[:upper:][:lower:]0-9].*") '(#$ . 30668) :group 'bibtex-autokey :type '(repeat regexp))
#@107 Function called for each titleword to perform case conversion.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-case-convert-function ''downcase '(#$ . 31166) :group 'bibtex-autokey :type '(choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function")))
(defvaralias 'bibtex-autokey-titleword-case-convert 'bibtex-autokey-titleword-case-convert-function)
#@234 Determines exceptions to the usual abbreviation mechanism.
An alist of (OLD-REGEXP . NEW-STRING) pairs.  Case is ignored
in matching against OLD-REGEXP, and the first matching pair is used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-abbrevs 'nil '(#$ . 31693) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New"))))
#@263 Alist of (OLD-REGEXP . NEW-STRING) pairs.
Any part of title word matching a OLD-REGEXP is replaced by NEW-STRING.
Case is significant in OLD-REGEXP.  All regexps are tried in the
order in which they appear in the list.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-change-strings 'bibtex-autokey-transcriptions '(#$ . 32098) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New"))))
#@173 Number of characters from title words to incorporate into key.
If this is set to anything but a number, all characters are used.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-length '5 '(#$ . 32565) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer))
#@86 String to be put between the title words.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-titleword-separator '"_" '(#$ . 32891) :group 'bibtex-autokey :type 'string)
#@101 String to be put between name part and year part of key.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-name-year-separator '"" '(#$ . 33101) :group 'bibtex-autokey :type 'string)
#@102 String to be put between year part and title part of key.
See `bibtex-generate-autokey' for details.
(custom-declare-variable 'bibtex-autokey-year-title-separator '":_" '(#$ . 33325) :group 'bibtex-autokey :type 'string)
#@74 If non-nil, user is allowed to edit the generated key before it is used.
(custom-declare-variable 'bibtex-autokey-edit-before-use 't '(#$ . 33552) :group 'bibtex-autokey :type 'boolean)
#@179 If non-nil, function to call before generated key is presented.
The function must take one argument (the automatically generated key),
and must return a string (the key to use).
(custom-declare-variable 'bibtex-autokey-before-presentation-function 'nil '(#$ . 33745) :group 'bibtex-autokey :type '(choice (const nil) function))
#@95 Offset for BibTeX entries.
Added to the value of all other variables which determine columns.
(custom-declare-variable 'bibtex-entry-offset '0 '(#$ . 34079) :group 'bibtex :type 'integer)
#@53 Starting column for the name part in BibTeX fields.
(custom-declare-variable 'bibtex-field-indentation '2 '(#$ . 34273) :group 'bibtex :type 'integer)
#@116 Starting column for the text part in BibTeX fields.
Should be equal to the space needed for the longest name part.
(custom-declare-variable 'bibtex-text-indentation '(+ bibtex-field-indentation (length "organization = ")) '(#$ . 34431) :group 'bibtex :type 'integer)
#@58 Starting column for continuation lines of BibTeX fields.
(custom-declare-variable 'bibtex-contline-indentation '(+ bibtex-text-indentation 1) '(#$ . 34704) :group 'bibtex :type 'integer)
#@157 If non-nil, align fields at equal sign instead of field text.
If non-nil, the column for the equal sign is the value of
`bibtex-text-indentation', minus 2.
(custom-declare-variable 'bibtex-align-at-equal-sign 'nil '(#$ . 34898) :group 'bibtex :type 'boolean)
#@72 If non-nil, a comma is put at end of last field in the entry template.
(custom-declare-variable 'bibtex-comma-after-last-field 'nil '(#$ . 35163) :group 'bibtex :type 'boolean)
#@70 If non-nil automatically add missing commas at end of BibTeX fields.
(custom-declare-variable 'bibtex-autoadd-commas 't '(#$ . 35346) :group 'bibtex :type 'boolean)
#@69 Automatically fill fields if possible for those BibTeX entry types.
(custom-declare-variable 'bibtex-autofill-types ''("Proceedings") '(#$ . 35517) :group 'bibtex :type '(repeat string))
#@207 Function to call for generating a summary of current BibTeX entry.
It takes no arguments.  Point must be at beginning of entry.
Used by `bibtex-complete-crossref-cleanup' and `bibtex-copy-summary-as-kill'.
(custom-declare-variable 'bibtex-summary-function ''bibtex-summary '(#$ . 35711) :group 'bibtex :type '(choice (const :tag "Default" bibtex-summary) (function :tag "Personalized function")))
#@1403 List of schemes for generating the URL of a BibTeX entry.
These schemes are used by `bibtex-url'.

Each scheme should have one of these forms:

((FIELD . REGEXP))
  ((FIELD . REGEXP) STEP...)
  ((FIELD . REGEXP) STRING STEP...)

FIELD is a field name as returned by `bibtex-parse-entry'.
REGEXP is matched against the text of FIELD.  If the match succeeds,
then this scheme is used.  If no STRING and STEPs are specified
the matched text is used as the URL, otherwise the URL is built
by evaluating STEPs.  If no STRING is specified the STEPs must result
in strings which are concatenated.  Otherwise the resulting objects
are passed through `format' using STRING as format control string.

A STEP is a list (FIELD REGEXP REPLACE).  The text of FIELD
is matched against REGEXP, and is replaced with REPLACE.
REPLACE can be a string, or a number (which selects the corresponding
submatch), or a function called with the field's text as argument
and with the `match-data' properly set.

Case is always ignored.  Always remove the field delimiters.
If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded
for generating the URL.

The following is a complex example, see http://link.aps.org/linkfaq.html.

((("journal" . "\\=<$PR[ABCDEL]?\|RMP$\\=>")
     "http://link.aps.org/abstract/%s/v%s/p%s"
     ("journal" ".*" downcase)
     ("volume" ".*" 0)
     ("pages" "\`[A-Z]?[0-9]+" 0)))
(custom-declare-variable 'bibtex-generate-url-list ''((("url" . ".*:.*"))) '(#$ . 36116) :group 'bibtex :type '(repeat (cons :tag "Scheme" (cons :tag "Matcher" :extra-offset 4 (string :tag "BibTeX field") (regexp :tag "Regexp")) (choice (const :tag "Take match as is" nil) (cons :tag "Formatted" (string :tag "Format control string") (repeat :tag "Steps to generate URL" (list (string :tag "BibTeX field") (regexp :tag "Regexp") (choice (string :tag "Replacement") (integer :tag "Sub-match") (function :tag "Filter"))))) (repeat :tag "Concatenated" (list (string :tag "BibTeX field") (regexp :tag "Regexp") (choice (string :tag "Replacement") (integer :tag "Sub-match") (function :tag "Filter"))))))))
(put 'bibtex-generate-url-list 'risky-local-variable t)
#@265 Alist of rules to identify cited keys in a BibTeX entry.
Each rule should be of the form (REGEXP . SUBEXP), where SUBEXP
specifies which parenthesized expression in REGEXP is a cited key.
Case is significant.
Used by `bibtex-search-crossref' and for font-locking.
(custom-declare-variable 'bibtex-cite-matcher-alist ''(("\\\\cite[ 	\n]*{\$[^}]+\$}" . 1)) '(#$ . 38283) :group 'bibtex :type '(repeat (cons (regexp :tag "Regexp") (integer :tag "Number"))) :version "23.1")
#@75 If non-nil, expand strings when extracting the content of a BibTeX field.
(custom-declare-variable 'bibtex-expand-strings 'nil '(#$ . 38762) :group 'bibtex :type 'boolean)
#@43 Syntax table used in BibTeX mode buffers.
(defvar bibtex-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\324#\210)\207" [st make-syntax-table modify-syntax-entry 34 "\"" 36 "$$  " 37 "<   " 39 "w   " 64 92 "\\" 12 ">   " 10 61 "." 126 " "] 4) (#$ . 38940))
#@29 Keymap used in BibTeX mode.
(defvar bibtex-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\312#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@�#\210\302\201A�\201B�#\210\302\201C�\201D�#\210\302\201E�\201F�#\210\302\201G�\201H�#\210\302\201I�\201J�#\210\302\201K�\201H�#\210\302\201L�\201M�#\210\302\201N�\201O�#\210\302\201P�\201F�#\210\302\201Q�\201R�#\210\302\201S�\201T�#\210\302\201U�\201V�#\210\302\201W�\201D�#\210\302\201X�\201Y�#\210\302\201Z�\201[�#\210\302\201\\�\201]�#\210\302\201^�\201_�#\210\302\201`�\201a�#\210\302\201b�\201c�#\210)\207" [km make-sparse-keymap define-key "	" bibtex-find-text "\n" bibtex-next-field "\211" bibtex-complete "\"" bibtex-remove-delimiters "{" "}" "" bibtex-clean-entry "" bibtex-fill-entry "" bibtex-search-entry "" bibtex-search-crossref "" bibtex-copy-summary-as-kill "?" bibtex-print-help-message "" bibtex-pop-previous "" bibtex-pop-next "" bibtex-kill-field "\353" bibtex-copy-field-as-kill "" bibtex-kill-entry "\367" bibtex-copy-entry-as-kill "" bibtex-yank "\371" bibtex-yank-pop "" bibtex-empty-field "" bibtex-make-field "" bibtex-entry-update "$" bibtex-ispell-abstract "\201" bibtex-beginning-of-entry "\205" bibtex-end-of-entry "\214" bibtex-reposition-window "\210" bibtex-mark-entry "" bibtex-entry "n" bibtex-narrow-to-entry "w" widen "\f" bibtex-url "" bibtex-remove-OPT-or-ALT "	" bibtex-InProceedings "i" bibtex-InCollection "I" bibtex-InBook "" bibtex-Article "" "b" bibtex-Book "B" bibtex-Booklet "" "
" bibtex-Manual "m" bibtex-MastersThesis "M" bibtex-Misc "" "p" bibtex-Proceedings "P" bibtex-PhdThesis "\360" bibtex-Preamble "" bibtex-String "" bibtex-TechReport "" bibtex-Unpublished] 4) (#$ . 39364))
#@33 BibTeX-Edit Menu in BibTeX mode
(defvar bibtex-edit-menu nil (#$ . 41651))
(easy-menu-do-define 'bibtex-edit-menu bibtex-mode-map "BibTeX-Edit Menu in BibTeX mode" '("BibTeX-Edit" ("Moving inside an Entry" ["End of Field" bibtex-find-text t] ["Next Field" bibtex-next-field t] ["Beginning of Entry" bibtex-beginning-of-entry t] ["End of Entry" bibtex-end-of-entry t] "--" ["Make Entry Visible" bibtex-reposition-window t]) ("Moving in BibTeX Buffers" ["Search Entry" bibtex-search-entry t] ["Search Crossref Entry" bibtex-search-crossref t]) "--" ("Operating on Current Field" ["Fill Field" fill-paragraph t] ["Remove Delimiters" bibtex-remove-delimiters t] ["Remove OPT or ALT Prefix" bibtex-remove-OPT-or-ALT t] ["Clear Field" bibtex-empty-field t] "--" ["Kill Field" bibtex-kill-field t] ["Copy Field to Kill Ring" bibtex-copy-field-as-kill t] ["Paste Most Recently Killed Field" bibtex-yank t] ["Paste Previously Killed Field" bibtex-yank-pop t] "--" ["Make New Field" bibtex-make-field t] "--" ["Snatch from Similar Following Field" bibtex-pop-next t] ["Snatch from Similar Preceding Field" bibtex-pop-previous t] "--" ["String or Key Complete" bibtex-complete t] "--" ["Help about Current Field" bibtex-print-help-message t]) ("Operating on Current Entry" ["Fill Entry" bibtex-fill-entry t] ["Clean Entry" bibtex-clean-entry t] ["Update Entry" bibtex-entry-update t] "--" ["Kill Entry" bibtex-kill-entry t] ["Copy Entry to Kill Ring" bibtex-copy-entry-as-kill t] ["Paste Most Recently Killed Entry" bibtex-yank t] ["Paste Previously Killed Entry" bibtex-yank-pop t] "--" ["Copy Summary to Kill Ring" bibtex-copy-summary-as-kill t] ["Browse URL" bibtex-url t] "--" ["Ispell Entry" bibtex-ispell-entry t] ["Ispell Entry Abstract" bibtex-ispell-abstract t] "--" ["Narrow to Entry" bibtex-narrow-to-entry t] ["Mark Entry" bibtex-mark-entry t] "--" ["View Cite Locations (RefTeX)" reftex-view-crossref-from-bibtex (fboundp 'reftex-view-crossref-from-bibtex)]) ("Operating on Buffer or Region" ["Validate Entries" bibtex-validate t] ["Sort Entries" bibtex-sort-buffer t] ["Reformat Entries" bibtex-reformat t] ["Count Entries" bibtex-count-entries t] "--" ["Convert Alien Buffer" bibtex-convert-alien t]) ("Operating on Multiple Buffers" ["(Re)Initialize BibTeX Buffers" bibtex-initialize t] ["Validate Entries" bibtex-validate-globally t])))
#@33 Entry-Types Menu in BibTeX mode
(defvar bibtex-entry-menu nil (#$ . 44000))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\257$\207" [bibtex-mode-map easy-menu-do-define bibtex-entry-menu "Entry-Types Menu in BibTeX mode" "Entry-Types" ["Article in Journal" bibtex-Article t] ["Article in Conference Proceedings" bibtex-InProceedings t] ["Article in a Collection" bibtex-InCollection t] ["Chapter or Pages in a Book" bibtex-InBook t] ["Conference Proceedings" bibtex-Proceedings t] ["Book" bibtex-Book t] ["Booklet (Bound, but no Publisher/Institution)" bibtex-Booklet t] ["PhD. Thesis" bibtex-PhdThesis t] ["Master's Thesis" bibtex-MastersThesis t] ["Technical Report" bibtex-TechReport t] ["Technical Manual" bibtex-Manual t] ["Unpublished" bibtex-Unpublished t] ["Miscellaneous" bibtex-Misc t] "--" ["String" bibtex-String t] ["Preamble" bibtex-Preamble t]] 21)
#@133 Optimized value of `bibtex-field-braces-alist'.
Created by `bibtex-field-re-init'.
It is a an alist with elements (FIELD . REGEXP).
(defvar bibtex-field-braces-opt nil (#$ . 44920))
#@179 Optimized value of `bibtex-field-strings-alist'.
Created by `bibtex-field-re-init'.
It is a an alist with elements (FIELD RULE1 RULE2 ...),
where each RULE is (REGEXP . TO-STR).
(defvar bibtex-field-strings-opt nil (#$ . 45109))
#@76 Next point where `bibtex-pop-previous' starts looking for a similar entry.
(defvar bibtex-pop-previous-search-point nil (#$ . 45344))
#@72 Next point where `bibtex-pop-next' starts looking for a similar entry.
(defvar bibtex-pop-next-search-point nil (#$ . 45484))
#@97 Ring of least recently killed fields.
At most `bibtex-field-kill-ring-max' items are kept here.
(defvar bibtex-field-kill-ring nil (#$ . 45616))
#@73 The tail of `bibtex-field-kill-ring' whose car is the last item yanked.
(defvar bibtex-field-kill-ring-yank-pointer nil (#$ . 45767))
#@98 Ring of least recently killed entries.
At most `bibtex-entry-kill-ring-max' items are kept here.
(defvar bibtex-entry-kill-ring nil (#$ . 45907))
#@73 The tail of `bibtex-entry-kill-ring' whose car is the last item yanked.
(defvar bibtex-entry-kill-ring-yank-pointer nil (#$ . 46059))
#@58 Type of the last kill command (either 'field or 'entry).
(defvar bibtex-last-kill-command nil (#$ . 46199))
#@114 Completion table for BibTeX string keys.
Initialized from `bibtex-predefined-strings' and `bibtex-string-files'.
(defvar bibtex-strings (completion-table-dynamic #[(#1=#:string) "\301!\203�\302\303 !\207" [bibtex-strings functionp bibtex-parse-strings bibtex-string-files-init] 2]) (#$ . 46314))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local bibtex-strings put risky-local-variable t] 4)
#@119 Completion table for BibTeX reference keys.
The CDRs of the elements are t for header keys and nil for crossref keys.
(defvar bibtex-reference-keys (completion-table-dynamic #[(#1=#:string) "\301!\203�\302\303\304\"\207" [bibtex-reference-keys functionp bibtex-parse-keys nil t] 3]) (#$ . 46743))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local bibtex-reference-keys put risky-local-variable t] 4)
#@71 Value of `buffer-modified-tick' last time buffer was parsed for keys.
(defvar bibtex-buffer-last-parsed-tick nil (#$ . 47179))
#@39 Stores if timer is already installed.
(defvar bibtex-parse-idle-timer nil (#$ . 47312))
#@52 Last reported percentage for the progress message.
(defvar bibtex-progress-lastperc nil (#$ . 47406))
#@33 Last reported progress message.
(defvar bibtex-progress-lastmes nil (#$ . 47514))
#@33 Interval for progress messages.
(defvar bibtex-progress-interval nil (#$ . 47602))
#@32 History list for reading keys.
(defvar bibtex-key-history nil (#$ . 47691))
#@39 History list for reading entry types.
(defvar bibtex-entry-type-history nil (#$ . 47773))
#@39 History list for reading field names.
(defvar bibtex-field-history nil (#$ . 47869))
#@30 Last reformat options given.
(defvar bibtex-reformat-previous-options nil (#$ . 47960))
#@44 Last reformat reference keys option given.
(defvar bibtex-reformat-previous-reference-keys nil (#$ . 48054))
#@45 Regexp matching the name of a BibTeX field.
(defconst bibtex-field-name "[^\"#%'(),={} 	\n0-9][^\"#%'(),={} 	\n]*" (#$ . 48169))
#@50 Regexp matching the name part of a BibTeX field.
(defconst bibtex-name-part (concat ",[ 	\n]*\$" bibtex-field-name "\$") (#$ . 48304))
#@59 Regexp matching the reference key part of a BibTeX entry.
(defconst bibtex-reference-key "[][[:alnum:].:;?!`'/*@+|()<>&_^$-]+" (#$ . 48447))
#@42 Regexp matching a BibTeX field constant.
(defconst bibtex-field-const "[][[:alnum:].:;?!`'/*@+=|<>&_^$-]+" (#$ . 48594))
#@45 Regexp matching the type of a BibTeX entry.
(defvar bibtex-entry-type (byte-code "\301\302\303\304\"!\305Q\207" [bibtex-entry-field-alist "@[ 	]*\$?:" regexp-opt mapcar car "\$"] 5) (#$ . 48721))
#@68 Regexp matching the header line of a BibTeX entry (including key).
(defvar bibtex-entry-head (concat "^[ 	]*\$" bibtex-entry-type "\$[ 	]*[({][ 	\n]*\$" bibtex-reference-key "\$") (#$ . 48926))
#@75 Regexp matching the header line of a BibTeX entry (possibly without key).
(defvar bibtex-entry-maybe-empty-head (concat bibtex-entry-head "?") (#$ . 49130))
#@77 Regexp matching the header line of any BibTeX entry (possibly without key).
(defconst bibtex-any-entry-maybe-empty-head (concat "^[ 	]*\$@[ 	]*" bibtex-field-name "\$[ 	]*[({][ 	\n]*\$" bibtex-reference-key "\$?") (#$ . 49293))
#@73 Regexp matching any valid BibTeX entry (including String and Preamble).
(defvar bibtex-any-valid-entry-type (byte-code "\301\302\303\304\305\306\"\"!\307Q\207" [bibtex-entry-field-alist "^[ 	]*@[ 	]*\$?:" regexp-opt append ("String" "Preamble") mapcar car "\$"] 7) (#$ . 49531))
#@70 Regexp subexpression number of the type part in `bibtex-entry-head'.
(defconst bibtex-type-in-head 1 (#$ . 49819))
#@69 Regexp subexpression number of the key part in `bibtex-entry-head'.
(defconst bibtex-key-in-head 2 (#$ . 49940))
#@52 Regexp matching the name of a BibTeX String entry.
(defconst bibtex-string-type "^[ 	]*\$@[ 	]*String\$[ 	]*[({][ 	\n]*" (#$ . 50059))
#@59 Regexp matching the header line of a BibTeX String entry.
(defconst bibtex-string-maybe-empty-head (concat bibtex-string-type "\$" bibtex-reference-key "\$?") (#$ . 50202))
#@61 Regexp matching the prefix part of a BibTeX Preamble entry.
(defconst bibtex-preamble-prefix "[ 	]*\$@[ 	]*Preamble\$[ 	]*[({][ 	\n]*" (#$ . 50383))
(byte-code "\302B\303\304	\305\306O\307	\306\310O\311\260\312BC!\207" [current-load-list bibtex-comment-start bibtex-font-lock-syntactic-keywords (lambda (#1=#:defconst-tmp-var) (defconst bibtex-font-lock-syntactic-keywords #1#)) "^[ 	]*\$" 0 1 "\$" nil "\\>" (1 '(11))] 7)
#@51 *Default expressions to highlight in BibTeX mode.
(defvar bibtex-font-lock-keywords (byte-code "	\305B\n\306BE\307\310Q\311B\312\310Q\313B\314\315\316\317\f\"BBBBB\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head bibtex-key-in-head bibtex-field-name bibtex-cite-matcher-alist (font-lock-function-name-face) (font-lock-constant-face nil t) "^[ 	]*\$OPT" "\$[ 	]*=" (1 font-lock-comment-face) "^[ 	]*\\(" (1 font-lock-variable-name-face) (bibtex-font-lock-url) (bibtex-font-lock-crossref) mapcar #[(matcher) "\301\302\303\304D\305BBEC\207" [matcher lambda (bound) bibtex-font-lock-cite quote (bound)] 5]] 8) (#$ . -50819))
#@76 Regexp for `bibtex-font-lock-url' derived from `bibtex-generate-url-list'.
(defvar bibtex-font-lock-url-regexp (byte-code "\301\302\303\304\305\"!\306\"\307Q\207" [bibtex-generate-url-list "^[ 	]*" regexp-opt delete-dups mapcar caar t "[ 	]*=[ 	]*"] 6) (#$ . 51463))
#@54 If non-nil, `bibtex-parse-string' accepts empty key.
(defvar bibtex-string-empty-key nil (#$ . 51737))
#@159 Alist mapping entry types to their sorting index.
Auto-generated from `bibtex-sort-entry-class'.
Used when `bibtex-maintain-sorted-entries' is `entry-class'.
(defvar bibtex-sort-entry-class-alist nil (#$ . 51847))
#@337 Parse a string of the format <left-hand-side = right-hand-side>.
The functions PARSE-LHS and PARSE-RHS are used to parse the corresponding
substrings.  These functions are expected to return nil if parsing is not
successful.  If the returned values of both functions are non-nil,
return a cons pair of these values.  Do not move point.
(defalias 'bibtex-parse-association #[(parse-lhs parse-rhs) "\305 \306\216\212	 \307\211\205%�\310\311!\205%�\312\225b\205%�\f \211\205%�\nB-\207" [save-match-data-internal parse-lhs right left parse-rhs match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil looking-at "[ 	\n]*=[ 	\n]*" 0] 3 (#$ . 52068)])
#@367 Parse the name part of a BibTeX field.
If the field name is found, return a triple consisting of the position of the
very first character of the match, the actual starting position of the name
part and end position of the match.  Move point to end of field name.
If `bibtex-autoadd-commas' is non-nil add missing comma at end of preceding
BibTeX field as necessary.
(defalias 'bibtex-parse-field-name #[nil "\304!\203�\305\225b\210\305\224\306\224\305\225E\207	\2054�\304\307\n\310Q!\2054�\311\312x\210\203,�\313\314`\"\210\315c\210\316u\210\317 \207" [bibtex-name-part bibtex-autoadd-commas bibtex-field-name buffer-read-only looking-at 0 1 "[ 	\n]*\$?:" "\$[ 	\n]*=" " 	\n" nil error "Comma missing at buffer position %s" "," -1 bibtex-parse-field-name] 4 (#$ . 52770)])
#@39 Syntax-table to parse matched braces.
(defconst bibtex-braced-string-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\310#\210\302\313\310#\210\302\314\310#\210\302\315\310#\210)\207" [st make-syntax-table modify-syntax-entry 123 "(}" 125 "){" 91 "." 93 40 41 92 34] 4) (#$ . 53554))
#@39 Syntax-table to parse matched quotes.
(defconst bibtex-quoted-string-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 34 "\""] 4) (#$ . 53912))
#@215 Parse a BibTeX field string enclosed by braces or quotes.
If a syntactically correct string is found, a pair containing the start and
end position of the field string is returned, nil otherwise.
Do not move point.
(defalias 'bibtex-parse-field-string #[nil "g\306=\203�\212\307 p\310\216\311\n!\210\312\313!\210+`)\2065�g\314=\2055�\212\307 p\315\216\311
!\210\312\313!\210+`)\211\205?�`B)\207" [#1=#:buffer #2=#:table bibtex-quoted-string-syntax-table #3=#:buffer #4=#:table bibtex-braced-string-syntax-table 34 syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table forward-sexp 1 123 ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) end-point] 3 (#$ . 54139)])
#@323 Parse the text part of a BibTeX field.
The text part is either a string, or an empty string, or a constant followed
by one or more <# (string|constant)> pairs.  If a syntactically correct text
is found, a pair containing the start and end position of the text is
returned, nil otherwise.  Move point to end of field text.
(defalias 'bibtex-parse-field-text #[nil "`\305\211\211\n\204@�	\204@�\306\f!\203�\307\225b\210\202-�\310 \211\203+�Ab\210\202-�\311\306\312!\203:�\307\225b\210\202�`\211\203\f�\313\305w\210	?\205Q�\n\205Q�\n`E,\207" [boundaries failure end-point starting-point bibtex-field-const nil looking-at 0 bibtex-parse-field-string t "[ 	\n]*#[ 	\n]*" " 	\n"] 5 (#$ . 54889)])
#@209 Parse the BibTeX field beginning at the position of point.
If a syntactically correct field is found, return a cons pair containing
the boundaries of the name and text parts of the field.  Do not move point.
(defalias 'bibtex-parse-field #[nil "\300\301\302\"\207" [bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text] 3 (#$ . 55598)])
(defalias 'bibtex-start-of-field #[(bounds) "@@\207" [bounds] 1])
(put 'bibtex-start-of-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-start-of-name-in-field #[(bounds) "@A@\207" [bounds] 1])
(put 'bibtex-start-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-name-in-field #[(bounds) "\301@8\207" [bounds 2] 2])
(put 'bibtex-end-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-start-of-text-in-field #[(bounds) "A@\207" [bounds] 1])
(put 'bibtex-start-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-text-in-field #[(bounds) "\3018\207" [bounds 2] 2])
(put 'bibtex-end-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-field #[(bounds) "\3018\207" [bounds 3] 2])
(put 'bibtex-end-of-field 'byte-optimizer 'byte-compile-inline-expand)
#@313 Search forward to find a BibTeX field of name NAME.
If a syntactically correct field is found, return a pair containing
the boundaries of the name and text parts of the field.  The search
is limited by optional arg BOUND.  If BOUND is t the search is limited
by the end of the current entry.  Do not move point.
(defalias 'bibtex-search-forward-field #[(name &optional bound) "\306 \307\216\212	\310=\203�\n\311Q\310\312\313\314\215+\202V�\315\316Q\310\312\211\204K�\317	\310#\203K�\320\224\321\224\321\225E\322 \211\2031�\205U�B,+\207" [save-match-data-internal bound bibtex-name-part bibtex-any-entry-maybe-empty-head bounds case-fold-search match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t "[ 	\n]*=\\|" nil done (byte-code "\303\304!\203\n�\305\225b\210\204.�\306	\307\310#\203.�\311\224\203#�\312\313\307\"\210\202\n�\305\224b\210\314 \211\203�\205V�\211@A@)b\210\303\n!\203F�\312\313\"\210\3158)b\210\314 \211\2042�\307\207" [bounds regexp name looking-at "[ 	]*@" 0 re-search-forward nil t 2 throw done bibtex-parse-field 3] 5) ",[ 	\n]*\$" "\$[ 	\n]*=[ 	\n]*" re-search-forward 0 1 bibtex-parse-field-text regexp name right left name-part] 5 (#$ . 56871)])
#@324 Search backward to find a BibTeX field of name NAME.
If a syntactically correct field is found, return a pair containing
the boundaries of the name and text parts of the field.  The search
is limited by the optional arg BOUND.  If BOUND is t the search is
limited by the beginning of the current entry.  Do not move point.
(defalias 'bibtex-search-backward-field #[(name &optional bound) "\306 \307\216	\310=\203�\212\311 )\312\n\313Q\310\314\211\212\315\316	\310#\205i�\212\317!\205=�\320\224\321\224\321\225E\320\225b\210\322 \211)\204b�\204b�\323	\310#\203b�\320\224\321\224\321\225E\212\320\225b\210\322 )\202A�\205i�\fB.\207" [save-match-data-internal bound name right left case-fold-search match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t bibtex-beginning-of-entry ",[ 	\n]*\$" "\$[ 	\n]*=[ 	\n]*" nil search-backward "," looking-at 0 1 bibtex-parse-field-text re-search-backward name-part] 4 (#$ . 58136)])
#@123 Get content of name in BibTeX field defined via BOUNDS.
If optional arg REMOVE-OPT-ALT is non-nil remove "OPT" and "ALT".
(defalias 'bibtex-name-in-field #[(bounds &optional remove-opt-alt) "\303\211@A@)\304@8)\"\n\203#�\305\306	\"\203#�	\307\310O\202$�	)\207" [bounds name remove-opt-alt buffer-substring-no-properties 2 string-match "\\`\$OPT\\|ALT\$" 3 nil] 5 (#$ . 59129)])
#@242 Get text in BibTeX field defined via BOUNDS.
If optional arg CONTENT is non-nil extract content of field
by removing field delimiters and concatenating the resulting string.
If `bibtex-expand-strings' is non-nil, also expand BibTeX strings.
(defalias 'bibtex-text-in-field-bounds #[(bounds &optional content) "\203h�\212	\211A@)b\210	\306	8)\307\211`\211W\203a�\310\f!\203E�\311\312!\2039�\313
\314 \315#A\206:�
B\312\225b\210)\202X�\316 \317	@T	AS\"B	Ab\210)\320\321\307\315#\210\202�\322\323\237\",\207\317	\211A@)	\306	8)\"\207" [content bounds opoint epoint bibtex-field-const mtch 2 nil looking-at match-string-no-properties 0 assoc-string bibtex-strings t bibtex-parse-field-string buffer-substring-no-properties re-search-forward "\\=[ 	\n]*#[ 	\n]*" apply concat bibtex-expand-strings] 5 (#$ . 59522)])
#@139 Get content of field FIELD of current BibTeX entry.
Return nil if not found.
If optional arg FOLLOW-CROSSREF is non-nil, follow crossref.
(defalias 'bibtex-text-in-field #[(field &optional follow-crossref) "\212\203\n�\306 \202�\307\310 \311	\"\211\203�\312\f\307\"\202>�\205>�\nb\210\311\313	\"\211\205>�\312\f\307\"\314
!\205=�\315!),\207" [follow-crossref end beg field bounds crossref-field bibtex-end-of-entry t bibtex-beginning-of-entry bibtex-search-forward-field bibtex-text-in-field-bounds "\$OPT\$?crossref" bibtex-search-crossref bibtex-text-in-field] 4 (#$ . 60360)])
#@340 Parse the prefix part of a BibTeX string entry, including reference key.
If the string prefix is found, return a triple consisting of the position of
the very first character of the match, the actual starting position of the
reference key and the end position of the match.
If `bibtex-string-empty-key' is non-nil accept empty string key.
(defalias 'bibtex-parse-string-prefix #[nil "\305\306	!\2054�`\307\225b\210\306!\203!�\307\225b\210\n\307\224\307\225E\2023�\f\2053�\306\310!\2053�\311\312x\210\n``E))\207" [case-fold-search bibtex-string-type start bibtex-reference-key bibtex-string-empty-key t looking-at 0 "=" " 	\n" nil] 3 (#$ . 60960)])
#@287 Parse the postfix part of a BibTeX string entry, including the text.
If the string postfix is found, return a triple consisting of the position of
the actual starting and ending position of the text and the very last
character of the string entry.  Move point past BibTeX string entry.
(defalias 'bibtex-parse-string-postfix #[nil "\302\303 \211\205 �	A@b\210\304\305!\205 �\306\225b\210	@	A@\306\225E*\207" [case-fold-search bounds t bibtex-parse-field-text looking-at "[ 	\n]*[})]" 0] 4 (#$ . 61618)])
#@266 Parse a BibTeX string entry beginning at the position of point.
If a syntactically correct entry is found, return a cons pair containing
the boundaries of the reference key and text parts of the entry.
If EMPTY-KEY is non-nil, key may be empty.  Do not move point.
(defalias 'bibtex-parse-string #[(&optional empty-key) "\302\303\304\")\207" [empty-key bibtex-string-empty-key bibtex-parse-association bibtex-parse-string-prefix bibtex-parse-string-postfix] 3 (#$ . 62131)])
#@249 Search forward to find a BibTeX string entry.
If a syntactically correct entry is found, a pair containing the boundaries of
the reference key and text parts of the string is returned.
If EMPTY-KEY is non-nil, key may be empty.  Do not move point.
(defalias 'bibtex-search-forward-string #[(&optional empty-key) "\212\305 \306\216\307\310	\204#�\311\310\307#\203#�\212\312\224b\210\313\f!)\202\n�	-\207" [save-match-data-internal bounds case-fold-search bibtex-string-type empty-key match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t nil search-forward-regexp 0 bibtex-parse-string] 4 (#$ . 62615)])
#@60 Return the key part of a BibTeX string defined via BOUNDS.
(defalias 'bibtex-reference-key-in-string #[(bounds) "\301@A@\302@8\"\207" [bounds buffer-substring-no-properties 2] 4 (#$ . 63274)])
#@240 Get text in BibTeX string field defined via BOUNDS.
If optional arg CONTENT is non-nil extract content
by removing field delimiters and concatenating the resulting string.
If `bibtex-expand-strings' is non-nil, also expand BibTeX strings.
(defalias 'bibtex-text-in-string #[(bounds &optional content) "\302	\"\207" [bounds content bibtex-text-in-field-bounds] 3 (#$ . 63476)])
(defalias 'bibtex-start-of-text-in-string #[(bounds) "A@\207" [bounds] 1])
(put 'bibtex-start-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-text-in-string #[(bounds) "AA@\207" [bounds] 1])
(put 'bibtex-end-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-string #[(bounds) "\301A8\207" [bounds 2] 2])
(put 'bibtex-end-of-string 'byte-optimizer 'byte-compile-inline-expand)
#@30 Extract BibTeX type in head.
(defalias 'bibtex-type-in-head #[nil "\301\224T\225\"\207" [bibtex-type-in-head buffer-substring-no-properties] 3 (#$ . 64317)])
(put 'bibtex-type-in-head 'byte-optimizer 'byte-compile-inline-expand)
#@73 Extract BibTeX key in head.  Return optional arg EMPTY if key is empty.
(defalias 'bibtex-key-in-head #[(&optional empty) "\302!\206�	\207" [bibtex-key-in-head empty match-string-no-properties] 2 (#$ . 64554)])
(put 'bibtex-key-in-head 'byte-optimizer 'byte-compile-inline-expand)
#@84 Parse BibTeX preamble.
Point must be at beginning of preamble.  Do not move point.
(defalias 'bibtex-parse-preamble #[nil "\305\306	!\205!�\307\224\310\224\212\307\225b\210\311 )\n\205 �\fD\nB+)\207" [case-fold-search bibtex-preamble-prefix bounds pref-start start t looking-at 0 1 bibtex-parse-string-postfix] 3 (#$ . 64843)])
#@53 Return t if STR1 and STR2 are equal, ignoring case.
(defalias 'bibtex-string= #[(str1 str2) "\302\303\304	\303\304\305&\305=\207" [str1 str2 compare-strings 0 nil t] 8 (#$ . 65182)])
(put 'bibtex-string= 'byte-optimizer 'byte-compile-inline-expand)
#@42 Delete all whitespace starting at point.
(defalias 'bibtex-delete-whitespace #[nil "\300\301!\205\n�`\302\225|\207" [looking-at "[ 	\n]+" 0] 2 (#$ . 65439)])
#@73 Compute line number of point regardless whether the buffer is narrowed.
(defalias 'bibtex-current-line #[nil "\300\301`\"n\203\f�\301\202
�\302\\\207" [count-lines 1 0] 3 (#$ . 65603)])
#@448 Parse a valid BibTeX entry (maybe without key if EMPTY-KEY is t).
A valid entry is a syntactical correct one with type contained in
`bibtex-entry-field-alist'.  Ignore @String and @Preamble entries.
Return a cons pair with buffer positions of beginning and end of entry
if a valid entry is found, nil otherwise.  Do not move point.
After a call to this function `match-data' corresponds to the header
of the entry, see regexp `bibtex-entry-head'.
(defalias 'bibtex-valid-entry #[(&optional empty-key) "\306\307\310\n\203
�\202�\f!\205a�\212\311 \312\216\313\225b\210\212\225b\210\310\314!)\203-�\315\202.�\316\307\317\307w\210\320 \211\203M�\3218)b\210\2027�\310!\203W�\313\225,\205`�\313\224B)*\207" [end case-fold-search empty-key bibtex-entry-maybe-empty-head bibtex-entry-head save-match-data-internal t nil looking-at match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 "[ 	]*(" ",?[ 	\n]*)" ",?[ 	\n]*}" " 	\n" bibtex-parse-field 3 bibtex-type-in-head bounds entry-closer] 2 (#$ . 65796)])
#@493 Move point to beginning of the next valid BibTeX entry.
Do not move if we are already at beginning of a valid BibTeX entry.
With optional argument BACKWARD non-nil, move backward to
beginning of previous valid one.  A valid entry is a syntactical correct one
with type contained in `bibtex-entry-field-alist' or, if
`bibtex-sort-ignore-string-entries' is nil, a syntactical correct string
entry.  Return buffer position of beginning and end of entry if a valid
entry is found, nil otherwise.
(defalias 'bibtex-skip-to-valid-entry #[(&optional backward) "\305\306\211\307 \210	\204Y�\203�o\202�m\204Y�\310 \2068�\f?\2058�\311 \211\2058�\211@@)\312A8)B\211\204	�\203J�\313\314\306\315#\210\202	�\316\317\306\315#\203	�\320\224b\210\202	�	+\207" [bounds found case-fold-search backward bibtex-sort-ignore-string-entries t nil beginning-of-line bibtex-valid-entry bibtex-parse-string 2 re-search-backward "^[ 	]*@" move re-search-forward "\n\$[ 	]*@\$" 1] 5 (#$ . 66870) "P"])
#@394 Call FUN for each BibTeX entry in buffer (possibly narrowed).
FUN is called with three arguments, the key of the entry and the buffer
positions of beginning and end of entry.  Also, point is at beginning of
entry and `match-data' corresponds to the header of the entry,
see regexp `bibtex-entry-head'.  If `bibtex-sort-ignore-string-entries'
is non-nil, FUN is not called for @String entries.
(defalias 'bibtex-map-entries #[(fun) "\306\307\212eb\210\310 \211\205+�\311\n!\210\312\313
!\206�\f)@A#\210Ab\210\202�+\207" [found case-fold-search bibtex-any-entry-maybe-empty-head fun empty bibtex-key-in-head t nil bibtex-skip-to-valid-entry looking-at "" match-string-no-properties] 4 (#$ . 67866)])
#@367 Echo a message about progress of current buffer.
If FLAG is a string, the message is initialized (in this case a
value for INTERVAL may be given as well (if not this is set to 5)).
If FLAG is `done', the message is deinitialized.
If FLAG is nil, a message is echoed if point was incremented at least
`bibtex-progress-interval' percent since last message was echoed.
(defalias 'bibtex-progress-message #[(&optional flag interval) ";\203�\n\206\f�\306\307\211\207\310=\203 �\311\312	\"\210\313\211\207deZ\211\307U\203.�\314\2025�`eZ\314_
\245\211\f\\Y\205H�\311\315	#*\207" [flag bibtex-progress-lastmes interval bibtex-progress-interval bibtex-progress-lastperc size 5 0 done message "%s (done)" nil 100 "%s (%d%%)" perc] 5 (#$ . 68581)])
#@57 Return a string dependent on `bibtex-field-delimiters'.
(defalias 'bibtex-field-left-delimiter #[nil "\301=\203�\302\207\303\207" [bibtex-field-delimiters braces "{" "\""] 2 (#$ . 69342)])
#@57 Return a string dependent on `bibtex-field-delimiters'.
(defalias 'bibtex-field-right-delimiter #[nil "\301=\203�\302\207\303\207" [bibtex-field-delimiters braces "}" "\""] 2 (#$ . 69539)])
#@57 Return a string dependent on `bibtex-entry-delimiters'.
(defalias 'bibtex-entry-left-delimiter #[nil "\301=\203�\302\207\303\207" [bibtex-entry-delimiters braces "{" "("] 2 (#$ . 69737)])
#@57 Return a string dependent on `bibtex-entry-delimiters'.
(defalias 'bibtex-entry-right-delimiter #[nil "\301=\203�\302\207\303\207" [bibtex-entry-delimiters braces "}" ")"] 2 (#$ . 69933)])
#@56 Flash at BibTeX entry head before point, if it exists.
(defalias 'bibtex-flash-head #[(prompt) "\306`\212\307 \210\310\n!\2054�`W\2054�\224b\210\311\fW\203*�\312`!\203*�\313\f!\2024�\314\315
\316`\225\"#+\207" [pnt case-fold-search bibtex-any-entry-maybe-empty-head bibtex-type-in-head blink-matching-delay prompt t bibtex-beginning-of-entry looking-at 0 pos-visible-in-window-p sit-for message "%s%s" buffer-substring-no-properties bibtex-key-in-head] 6 (#$ . 70130)])
#@61 Make an optional field named FIELD in current BibTeX entry.
(defalias 'bibtex-make-optional-field #[(field) ":\203�\301\302@PAB!\207\301\302P!\207" [field bibtex-make-field "OPT"] 3 (#$ . 70612)])
#@47 Make sure point is outside of a BibTeX entry.
(defalias 'bibtex-move-outside-of-entry #[nil "`\301 \210`W\203$�b\210\302\303!\210`SSf\304U\204$�\305\306\307\310#\210\311u\210\312\307w)\207" [orig-point bibtex-end-of-entry beginning-of-line 1 10 re-search-forward "^[ 	]*[@\n]" nil move -1 " 	\n"] 4 (#$ . 70820)])
#@152 Go to beginning of line of first BibTeX entry in buffer.
If `bibtex-sort-ignore-string-entries' is non-nil, @String entries
are ignored.  Return point
(defalias 'bibtex-beginning-of-first-entry #[nil "eb\210\300 \210`\207" [bibtex-skip-to-valid-entry] 1 (#$ . 71144)])
#@399 Search for BibTeX field enclosing point.
For `bibtex-mode''s internal algorithms, a field begins at the comma
following the preceding field.  Usually, this is not what the user expects.
Thus if COMMA is non-nil, the "current field" includes the terminating comma.
Unless NOERR is non-nil, signal an error if no enclosing field is found.
On success return bounds, nil otherwise.  Do not move point.
(defalias 'bibtex-enclosing-field #[(&optional comma noerr) "\212\203�\304\210\305\304x\210h\306U\203�\307u\210\310	\311\"\211\2038�\n\211@@)`X\2038�\n\312\n8)`Y\2038�\n\202@�?\205@�\313\314!*\207" [comma bibtex-field-name bounds noerr nil " 	" 44 -1 bibtex-search-backward-field t 3 error "Can't find enclosing BibTeX field"] 4 (#$ . 71420)])
#@81 Move point to beginning of first field.
Optional arg BEG is beginning of entry.
(defalias 'bibtex-beginning-first-field #[(&optional beg) "\203\n�b\210\202
�\302 \210\303	!\210\304\225b\207" [beg bibtex-any-entry-maybe-empty-head bibtex-beginning-of-entry looking-at 0] 2 (#$ . 72176)])
#@120 Reinsert the Nth stretch of killed BibTeX text (field or entry).
Optional arg COMMA is as in `bibtex-enclosing-field'.
(defalias 'bibtex-insert-kill #[(n &optional comma) "\204�\306\307!\210\310\311=\203)�\312\n!\3138)b\210\314 \210\315	\316\f\"\317\320\317$\2024�\321 \210\314 \210	\322
\"c)\207" [bibtex-last-kill-command fun comma bounds bibtex-field-kill-ring bibtex-entry-kill-ring error "BibTeX kill ring is empty" #[(kryp kr) "\303	\304!GZ\nG\"\n\233L@\207" [kryp n kr mod eval] 5] field bibtex-enclosing-field 3 push-mark bibtex-make-field bibtex-field-kill-ring-yank-pointer t nil bibtex-skip-to-valid-entry bibtex-entry-kill-ring-yank-pointer] 5 (#$ . 72472)])
#@110 Helper function for `bibtex-clean-entry'.
Formats current entry according to variable `bibtex-entry-format'.
(defalias 'bibtex-format-entry #[nil "\203
�	\204
�\306\307\"\n\203�\204�\306\n\310\"\311\f\311=\203%�\312\202&�\f\313\314 !\315\211\211\211\211\211\211@ABCDEFGH\316\216\317 \315I\211\315JKLMN\320\216\321N!\210\212\214\322 \210eb\210\323O\315\311#\204s�\324\325!\210\326\224TP\326\225Q\327\330PQ\"R\311#S\331G>\203\233�PQ|\210S@c\210\332G>\203\262�Qb\210\333\315w\210\334\335!\210\336 c\210eb\210\337\340!\211E\203\320�\341E\311\"\211T\342\232\204\317�TD)D\203\344�\343S8\203\344�\343S8@\202\351�SA@@C\344SA@@SA@A@U#B+\345e!\210\346 \211E\203s\347E\211E@@)!V\347EE\350E8)\311\"W\347E\211E@A@)!X\347EE\343E@8)!Y\347E\211EA@)!Z\347EE\343E8)\311\"[\351\352\330X\211\350\\\"\"\\\330\\\203qX\350\\\202sXY\"]\341E\311\"\342\232^\315_\350\327]C\311#8\203\227]@B@\353G>\203\327^\203\312\\\204\276\327]C\311#\211`?\206\272\350`8)\203\312VW|\210\311_\202\327\\\203\327Xb\210\334\350!\210_\204n]ABA\354G>\203Zb\210\355\356!\203[b\210\334\357!\210Zb\210\334\335!\210\332G>\203[Zb\210`[W\203[\355a!\203$\326\225b\210\202N\360 b\355F!\2037bAb\210\202M\334\335!\210\314 c\210bASb\210\334\335!\210\361 c\210)\355\362!\203\326\225b\210\202\363G>\203\211]\364cd\365d\326\315c\326\315\311&*\311=\203\211Zb\210\355\366!\203\211\367\370!\210\371G>\203\257Zb\210\355\372!\203\236\367\373!\210[b\210\374\375Z\311#\203\257\367\373!\210\315\211eH\307G>\203&\327]	\311#A\211e\203&Zb\210\323e[\311#\203&\326\224\376\315\311\"Ef\377E8\204\"`\343E8SW\203EA@TfW\203\355\201o�!\203\212fSb\210\355\201p�!)\204\"\201o�c\210fb\210\201p�c\210*\202\315\310G>\203\277\327]\311#A\211e\203\277Zb\210e\315g\211h\203\276h@g\323g@[\311#\203\265\201q� i\201r�\216\376\315\311\"*E\377E8\204\261\326\225\343E8SW\203\207\201s�\314 \261\210\202\213\334\335!\210\367gA!\210\326\224b\210EA@T\326\224W\203\253\361 \201s�\261\210\202\261\201t�\335!\210)\202NhA\211h\204I**\201u�G>\203^\203]\201v�cd\365d\326\315c\326\315\311&*\311=\203D\203\212\214~\210\201w�D\311\"\205\201x�\201y�!*\211j\203\315^ZTb\210jc\210)^\203:\201z�G>\203:\327]C\311#\203:]\324\201{�]\"\210\331G>\203j\327]B\311#@\211k\203`XY|\210Xb\210kc\210\202i\201|�XY\"\210)Wb\210.\n\202\201z�G>\203\326\315lmC\315k\211h\203\327h@k\350k8\203\265k@lBl\201}�k@A\"\203\316mTm\202\316\201}�k@A\"\204\316k@\324\201~�k@\"\210hA\211h\204\215*l\203m\326U\203\374@\203\361\201�@!@\324\201\200�l\"\210\202m\335V\203@\203\201�@!@\324\201\201�lm#\210*\201\202�G>\203Jn\2039\355\201\203�!\2049\201\203�c\210\202Jn\204J\355\201\203�!\203J\334\335!\210\355\201\203�!\203U\315u\210\332G>\203j\333\315w\210\334\335!\210\201\204� c\210\201\205�G>\203x\201\206� \210*\311\211J.\207" [bibtex-field-braces-alist bibtex-field-braces-opt bibtex-field-strings-alist bibtex-field-strings-opt bibtex-entry-format error-field-name bibtex-field-re-init braces strings t (realign opts-or-alts required-fields numerical-fields page-dashes whitespace inherit-booktitle last-comma delimiters unify-case braces strings) regexp-quote bibtex-field-left-delimiter nil ((byte-code "\203\"�\302\212\303 \210\304\305P\306\"\211)\203!�	\211A@)b\210\307 \210)\302\207" [error-field-name bounds nil bibtex-beginning-of-entry bibtex-search-forward-field "\$OPT\\|ALT\$?" t bibtex-find-text] 4)) prepare-change-group ((byte-code "\203�\302	!\210\202�\303	!\210\302\207" [#1=#:--change-group-success-- #2=#:--change-group-handle-- accept-change-group cancel-change-group] 2)) activate-change-group bibtex-narrow-to-entry re-search-forward error "Not inside a BibTeX entry" 0 assoc-string buffer-substring-no-properties unify-case delimiters " 	\n" delete-char 1 bibtex-entry-left-delimiter bibtex-search-forward-field "\$OPT\$?crossref" bibtex-text-in-field-bounds "" 2 append bibtex-beginning-first-field bibtex-parse-field copy-marker 3 string-match "OPT\\|ALT" opts-or-alts numerical-fields looking-at "\$\"[0-9]+\"\$\\|\${[0-9]+}\$" -1 bibtex-parse-field-string bibtex-field-right-delimiter "[ 	\n]*#[ 	\n]*" page-dashes "pages" compare-strings "\$[\"{][0-9]+\$[ 	\n]*--?[ 	\n]*\$[0-9]+[\"}]\$" replace-match "\\1-\\2" whitespace "\$[{\"]\$[ 	\n]+" "\\1" looking-back "[ 	\n]+\$[}\"]\$" bibtex-find-text-internal 4 alt-fields field-list default-field-list req-field-list crossref-key bounds left-delim-re format case-fold-search most-positive-fixnum #1# undo-strong-limit undo-limit undo-outer-limit #2# bibtex-entry-type beg-type end-type bibtex-entry-field-alist entry-list text bibtex-user-optional-fields beg-field end-field beg-name end-name beg-text end-text opt-alt field-name empty-field deleted field bibtex-field-const boundaries str2 str1 temp beg re --dolist-tail-- save-match-data-internal title fname alt-list found bibtex-comma-after-last-field "}" "{" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) " # " delete-backward-char inherit-booktitle "booktitle" bibtex-search-entry bibtex-text-in-field "title" required-fields "Mandatory field `%s' is empty" downcase-region member-ignore-case "Mandatory field `%s' is missing" last "Alternative mandatory field `%s' is missing" "Alternative fields `%s' are defined %s times" last-comma "," bibtex-entry-right-delimiter realign bibtex-fill-entry] 11 (#$ . 73158)])
#@194 Calculate optimized value for bibtex-regexp-TYPE-opt.
This value is based on bibtex-regexp-TYPE-alist.  TYPE is 'braces or 'strings.
Return optimized value to be used by `bibtex-format-entry'.
(defalias 'bibtex-field-re-init #[(regexp-alist type) "\306\307\"\310\311\312\313\306\314\"\"!\310\211\203`�@\310\310\211\203A�@\315\n
@\316#\203:�
A@\317
8B\fBA\211\204$�*\320=\203R�\321\322\314\f\323#\324Q\n\fB	B)A\211\204�*	)\207" [regexp-alist opt-list field --dolist-tail-- rules e mapcar #[(e) "@\301\302\211A@#\3038E\207" [e replace-regexp-in-string "[ 	\n]+" 2] 5] nil delete-dups apply append car assoc-string t 2 braces "\$?:" mapconcat "\\|" "\$" type] 7 (#$ . 78788)])
#@298 Return an abbreviation of STRING with at least LEN characters.
If LEN is positive the abbreviation is terminated only after a consonant
or at the word end.  If LEN is negative the abbreviation is strictly
enforced using abs (LEN) characters.  If LEN is not a number, STRING
is returned unchanged.
(defalias 'bibtex-autokey-abbrev #[(string len) "\247\203�	G\304!X\203�	\207\305\232\203�\306\207\305W\203%�	\305\304!O\207\307\310\311	S#\211\203:�	\305TO\202;�	*\207" [len string case-fold-search abort-char abs 0 "" t string-match "[^aeiou]"] 5 (#$ . 79498)])
#@226 Get content of BibTeX field FIELD.  Return empty string if not found.
Optional arg CHANGE-LIST is a list of substitution patterns that is
applied to the content of FIELD.  It is an alist with pairs
(OLD-REGEXP . NEW-STRING).
(defalias 'bibtex-autokey-get-field #[(field &optional change-list) "\306\n\"\307\f\204�\310\307\f\211
\2033�
@\f\311\f@\fA\f\312$
A\211
\204�\307\f\f-\207" [bibtex-autokey-expand-strings bibtex-expand-strings field bibtex-autokey-use-crossref content case-fold-search bibtex-text-in-field nil "" replace-regexp-in-string t change-list pattern --dolist-tail--] 6 (#$ . 80076)])
#@232 Get contents of the name field of the current entry.
Do some modifications based on `bibtex-autokey-name-change-strings'.
Return the names as a concatenated string obeying `bibtex-autokey-names'
and `bibtex-autokey-names-stretch'.
(defalias 'bibtex-autokey-get-names #[nil "\306\307\"\211\310\230\203�	\202?�\311\312\313\314	\315\"\"\316
\247\2036�G
\\X\2046�G
Z\237\233\237\317\320#\fP+)\207" [bibtex-autokey-name-change-strings names case-fold-search name-list additional-names bibtex-autokey-names bibtex-autokey-get-field "author\\|editor" "" t mapcar bibtex-autokey-demangle-name split-string "[ 	\n]+and[ 	\n]+" nil mapconcat identity bibtex-autokey-names-stretch bibtex-autokey-additional-names bibtex-autokey-name-separator] 6 (#$ . 80706)])
#@74 Get the last part from a well-formed FULLNAME and perform abbreviations.
(defalias 'bibtex-autokey-demangle-name #[(fullname) "\305\306\307	\"\203�\310\311	\"\202>�\306\312	\"\203�\310\311	\"\202>�\306\313	\"\203,�\310\314	\"\202>�\306\315	\"\203:�\310\311	\"\202>�\316\317	\"\320\n\f\"!*\207" [case-fold-search fullname name bibtex-autokey-name-case-convert-function bibtex-autokey-name-length nil string-match "\$[[:upper:]][^, ]*\$[^,]*," match-string 1 "\$[^, ]*\$," "\$\\<[[:lower:]][^ ]* +\$+\$[[:upper:]][^ ]*\$" 2 "\$[^ ]+\$ *\\'" error "Name `%s' is incorrectly formed" bibtex-autokey-abbrev] 4 (#$ . 81480)])
#@78 Return year field contents as a string obeying `bibtex-autokey-year-length'.
(defalias 'bibtex-autokey-get-year #[nil "\302\303!\211\304G	Z]\305O)\207" [yearfield bibtex-autokey-year-length bibtex-autokey-get-field "year" 0 nil] 5 (#$ . 82120)])
#@76 Get title field contents up to a terminator.
Return the result as a string
(defalias 'bibtex-autokey-get-title #[nil "\306\307\310\"\311	\"\203�	\312\211\224O\312\313\314\315\f\316#\317Q\320\211\211\247\203:�\\W\203|�\311\321	\"\203|�\322\312	\"	\312\225\320O\320\311
\")\204)�T\247\203j�X\203s�
B\202)�
B\202)�\311\321	\"\204\213�\323\"\314\324\237#.\207" [bibtex-autokey-titleword-change-strings titlestring case-fold-search bibtex-autokey-title-terminators bibtex-autokey-titleword-ignore word t bibtex-autokey-get-field "title" string-match 0 "\\`\$?:" mapconcat identity "\\|" "\$\\'" nil "\\b\\w+" match-string append bibtex-autokey-demangle-title titlewords-extra titlewords ignore-re counter bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-separator] 6 (#$ . 82374)])
#@136 Do some abbreviations on TITLEWORD.
The rules are defined in `bibtex-autokey-titleword-abbrevs'
and `bibtex-autokey-titleword-length'.
(defalias 'bibtex-autokey-demangle-title #[(titleword) "\306	\203�\307\310	\211@@)\311Q\f\"\204�	A\211\204�	\203+�	\211@A)\2022�
\312\f\"!*\207" [bibtex-autokey-titleword-abbrevs alist case-fold-search x titleword bibtex-autokey-titleword-case-convert-function t string-match "\\`\$?:" "\$\\'" bibtex-autokey-abbrev bibtex-autokey-titleword-length] 5 (#$ . 83253)])
#@3533 Generate automatically a key for a BibTeX entry.
Use the author/editor, the year and the title field.
The algorithm works as follows.

The name part:
 1. Use the author or editor field to generate the name part of the key.
    Expand BibTeX strings if `bibtex-autokey-expand-strings' is non-nil.
 2. Change the content of the name field according to
    `bibtex-autokey-name-change-strings' (see there for further detail).
 3. Use the first `bibtex-autokey-names' names in the name field.  If there
    are up to `bibtex-autokey-names' + `bibtex-autokey-names-stretch' names,
    use all names.
 4. Use only the last names to form the name part.  From these last names,
    take at least `bibtex-autokey-name-length' characters (truncate only
    after a consonant or at a word end).
 5. Convert all last names using the function
    `bibtex-autokey-name-case-convert-function'.
 6. Build the name part of the key by concatenating all abbreviated last
    names with the string `bibtex-autokey-name-separator' between any two.
    If there are more names in the name field than names used in the name
    part, append the string `bibtex-autokey-additional-names'.

The year part:
 1. Build the year part of the key by truncating the content of the year
    field to the rightmost `bibtex-autokey-year-length' digits (useful
    values are 2 and 4).
 2. If the year field (or any other field required to generate the key)
    is absent, but the entry has a valid crossref field and
    `bibtex-autokey-use-crossref' is non-nil, use the field of the
    crossreferenced entry instead.

The title part
 1. Change the content of the title field according to
    `bibtex-autokey-titleword-change-strings' (see there for further detail).
 2. Truncate the title before the first match of
    `bibtex-autokey-title-terminators' and delete those words which appear
    in `bibtex-autokey-titleword-ignore'.  Build the title part using the
    first `bibtex-autokey-titlewords' words from this truncated title.
    If the truncated title ends after up to `bibtex-autokey-titlewords' +
    `bibtex-autokey-titlewords-stretch' words, use all words from the
    truncated title.
 3. For every title word that appears in `bibtex-autokey-titleword-abbrevs'
    use the corresponding abbreviation (see documentation of this variable
    for further detail).
 4. From every title word not generated by an abbreviation, take at least
    `bibtex-autokey-titleword-length' characters (truncate only after
    a consonant or at a word end).
 5. Convert all title words using the function
    `bibtex-autokey-titleword-case-convert-function'.
 6. Build the title part by concatenating all abbreviated title words with
    the string `bibtex-autokey-titleword-separator' between any two.

Concatenate the key:
 1. Concatenate `bibtex-autokey-prefix-string', the name part, the year
    part and the title part.  If the name part and the year part are both
    non-empty insert `bibtex-autokey-name-year-separator' between the two.
    If the title part and the year (or name) part are non-empty, insert
    `bibtex-autokey-year-title-separator' between the two.
 2. If `bibtex-autokey-before-presentation-function' is non-nil, it must be
    a function taking one argument.  Call this function with the generated
    key as the argument.  Use the return value of this function (a string)
    as the key.
 3. If `bibtex-autokey-edit-before-use' is non-nil, present the key in the
    minibuffer to the user for editing.  Insert the key given by the user.
(defalias 'bibtex-generate-autokey #[nil "\306 \307 \310 \211\311\232\206�	\311\232?\205�\f	\311\232\203&�	\311\232\206)�\n\311\232?\205.�
\n\260\n\203@�\n!\202B�\n,\207" [names year title bibtex-autokey-prefix-string bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator bibtex-autokey-get-names bibtex-autokey-get-year bibtex-autokey-get-title "" autokey bibtex-autokey-before-presentation-function] 6 (#$ . 83775)])
#@50 Return global key alist based on `bibtex-files'.
(defalias 'bibtex-global-key-alist #[nil "\203�\303\304\305\306\307	\310=!\"\"\207	\310=\205�\n\207" [bibtex-files major-mode bibtex-reference-keys apply append mapcar #[(buf) "rq\210	)\207" [buf bibtex-reference-keys] 1] bibtex-initialize bibtex-mode] 7 (#$ . 87765)])
#@176 Read BibTeX key from minibuffer using PROMPT and default KEY.
If optional arg GLOBAL is non-nil, completion is based on the keys in
`bibtex-reference-keys' of `bibtex-files',
(defalias 'bibtex-read-key #[(prompt &optional key global) "\305\306	\n\203
�\307 \202�\305\211\f\310&)\207" [completion-ignore-case prompt global bibtex-reference-keys key nil completing-read bibtex-global-key-alist bibtex-key-history] 7 (#$ . 88095)])
#@59 Read BibTeX string key from minibuffer using default KEY.
(defalias 'bibtex-read-string-key #[(&optional key) "\303\304\305	\306\211\n\307&)\207" [completion-ignore-case bibtex-strings key t completing-read "String key: " nil bibtex-key-history] 7 (#$ . 88534)])
#@428 Set `bibtex-reference-keys' to the keys used in the whole buffer.
Find both entry keys and crossref entries.  If ABORTABLE is non-nil abort
on user input.  If VERBOSE is non-nil give messages about progress.
Return alist of keys if parsing was completed, `aborted' otherwise.
If `bibtex-parse-keys-fast' is non-nil, use fast but simplified algorithm
for parsing BibTeX keys.  If parsing fails, try to set this variable to nil.
(defalias 'bibtex-parse-keys #[(&optional abortable verbose) "\305=\205�\306\211\212\307 \310\216\f\203�\311\312 \313P!\210\314\315\215-\207" [major-mode crossref-keys ref-keys save-match-data-internal verbose bibtex-mode nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) bibtex-progress-message buffer-name ": parsing reference keys" userkey (byte-code "eb\210\203}�\306	\307\310\311R\312\n\313\306#\203y�\f\203%�\314 \203%�\315\316\317\"\210\320\225\203F�\321\320\224T\320\225S\"\322
\"\204B�
CB)\202�\323\321\224T\225\"\306#\203�\313\324!\206c�)\322
\"\204u�
\306BB)\202�*\202\210�\306\313 \325\326!\210*\313\211!\203\256�!@\322
@\"\204\245�
B!A\211!\204\222�*\"\203\270�\327\330!\210\211#\207" [bibtex-parse-keys-fast bibtex-entry-head re case-fold-search abortable key t "\\|" ",[ 	\n]*crossref[ 	\n]*=[ 	\n]*" "\$\"[^\"]*\"\\|{[^}]*}\$[ 	\n]*[,})]" re-search-forward nil input-pending-p throw userkey aborted 3 buffer-substring-no-properties assoc assoc-string match-string-no-properties bibtex-map-entries #[(key beg end) "\203�\306 \203�\307\310\311\"\210	\203�\312 \210\313\n\"\204\"�\n\314BB\315\316\f\"\211\205E�\317
\314\"\211\205E�\313\n\"?\205E�\nCB\211\207" [abortable verbose key ref-keys end bounds input-pending-p throw userkey aborted bibtex-progress-message assoc t bibtex-search-forward-field "crossref" bibtex-text-in-field-bounds crossref-keys] 3] bibtex-progress-message done crossref-keys bibtex-type-in-head bibtex-entry-field-alist empty bibtex-key-in-head ref-keys bounds bibtex-sort-ignore-string-entries --dolist-tail-- verbose bibtex-reference-keys] 6)] 3 (#$ . 88806)])
#@342 Set `bibtex-strings' to the string definitions in the whole buffer.
If ADD is non-nil add the new strings to `bibtex-strings' instead of
simply resetting it.  If ADD is an alist of strings, also add ADD to
`bibtex-strings'.  If ABORTABLE is non-nil abort on user input.
Return alist of strings if parsing was completed, `aborted' otherwise.
(defalias 'bibtex-parse-strings #[(&optional add abortable) "\212\306 \307\216eb\210	\205�\310\n!?\205�\n\311\211	<\203G�	\311\211\203F�@\312@
\313#\204=�
BA\211\204)�*\314\315\215.\207" [save-match-data-internal add bibtex-strings key bounds strings match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) functionp nil assoc-string t userkey (byte-code "\305 \211\2036�	\203�\306 \203�\307\310\311\"\210\312!\313\n\314#\204*�\n\315\314\"BB\211AA@)b\210\202��\211\207" [bounds abortable key strings bibtex-strings bibtex-search-forward-string input-pending-p throw userkey aborted bibtex-reference-key-in-string assoc-string t bibtex-text-in-string] 5) string --dolist-tail--] 5 (#$ . 90969)])
#@66 Return `bibtex-strings'.  Initialize this variable if necessary.
(defalias 'bibtex-strings #[nil "\301!\203�\302\303 !\207\207" [bibtex-strings functionp bibtex-parse-strings bibtex-string-files-init] 2 (#$ . 92089)])
#@117 Return initialization for `bibtex-strings'.
Use `bibtex-predefined-strings' and BibTeX files `bibtex-string-files'.
(defalias 'bibtex-string-files-init #[nil "\306 \307\216\310	\206�\n\311\"\312\211\211\211\211\211 !\"\312#\211$\203\241�$@#\313\314#\"\204<�#\315P#\316#!\203]�\317#!\203T�#B\202\230�\320\321#\"\210\202\230�!\312%\211$\203\215�$@%\317\322#%\"\211!\203\204�B\323$A\211$\204h�*\204\230�\320\324#\"\210$A\211$\204)�*\312#\211$\203\356�$@#\325\326!&r&q\210\327\216\330#!\210eb\210\331 \211\203\344�\332\f!\333\f\323\"B
B\f\334\fA8)b\210\202\306�+$A\211$\204\255�*\335'
\237\".	\207" [save-match-data-internal bibtex-string-file-path default-directory found bounds compl match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string ":+" nil string-match "\\.bib\\'" ".bib" file-name-absolute-p file-readable-p error "BibTeX strings file %s not found" expand-file-name t "File %s not in paths defined via bibtex-string-file-path" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents bibtex-search-forward-string bibtex-reference-key-in-string bibtex-text-in-string 2 append fullfilename string-files case-fold-search dirlist bibtex-string-files filename --dolist-tail-- dir #1# bibtex-predefined-strings] 8 (#$ . 92317)])
#@290 Parse buffer in the background during idle time.
Called by `run-with-idle-timer'.  Whenever Emacs has been idle
for `bibtex-parse-keys-timeout' seconds, parse all BibTeX buffers
which have been modified after last parsing.
Parsing initializes `bibtex-reference-keys' and `bibtex-strings'.
(defalias 'bibtex-parse-buffers-stealthily #[nil "\212\304 \305 \211\205@�\306 ?\205@�	@q\210\n\307=\2038�\310 =\2048�\214~\210\311\312!<\2037�\313\312\"<\2037�\310 )	A\211\204�\314+\207" [strings-init buffers major-mode bibtex-buffer-last-parsed-tick buffer-list bibtex-string-files-init input-pending-p bibtex-mode buffer-modified-tick bibtex-parse-keys t bibtex-parse-strings nil] 4 (#$ . 93760)])
#@556 (Re)Initialize BibTeX buffers.
Visit the BibTeX files defined by `bibtex-files' and return a list
of corresponding buffers.
Initialize in these buffers `bibtex-reference-keys' if not yet set.
List of BibTeX buffers includes current buffer if CURRENT is non-nil.
If FORCE is non-nil, (re)initialize `bibtex-reference-keys' even if
already set.  If SELECT is non-nil interactively select a BibTeX buffer.
When called interactively, FORCE is t, CURRENT is t if current buffer uses
`bibtex-mode', and SELECT is t if current buffer does not use `bibtex-mode',
(defalias 'bibtex-initialize #[(&optional current force select) "\306\206�	\307\"\310\211\211#\310$\211%\203\243�%@\211$\300=\203-�\311
\"\202\232�\312$!\203<�$B\202\232�\313\314$\"\204J�$\315P$\316$!\203Y�$\fB\202\232�\310\211&'
\310(\211%\203\215�%@(\317\320$(\"\211'!\203\204�'\fB\321&%A\211%\204i�*&\204\231�\322\323$\"\210*%A\211%\204�*\f\310$\211%\203\311�%@$\317$!\204\300�\322\324$\"\210%A\211%\204\256�*\310(\211%\203\355�%@(\311\f\325(\321\314\321$\"%A\211%\204\324�*\326\f!\210\f\310$\211%\203%@$\317$!\203\327$!\nB%A\211%\204\374�*)\203%*\330=\204(\310))\203:p\n>\204:p\nB\202J)\204Jp\n>\203J\331p\n\"\n\310+\211%\203w%@+r+q\210,\204j\332-!\203m\333 \210)%A\211%\204T*.\203\234\n\203\230\334\335\336\337\340\n\"\310\321)\205\222\340p!%!\210\202\234\341\342!\210\n,\207" [bibtex-file-path default-directory buffer-list dir-list file-list file-path split-string ":+" nil append file-accessible-directory-p string-match "\\.bib\\'" ".bib" file-name-absolute-p file-readable-p expand-file-name t error "File `%s' not in paths defined via bibtex-file-path" "BibTeX file `%s' not found" directory-files delete-dups find-file-noselect bibtex-mode delq functionp bibtex-parse-keys switch-to-buffer completing-read "Switch to BibTeX buffer: " mapcar buffer-name message "No BibTeX buffers defined" bibtex-files file --dolist-tail-- found expanded-file-name dir current major-mode buffer force bibtex-reference-keys select] 9 (#$ . 94464) (list (eq major-mode 'bibtex-mode) t (not (eq major-mode 'bibtex-mode)))])
#@194 Complete word fragment before point to longest prefix of COMPLETIONS.
COMPLETIONS is an alist of strings.  If point is not after the part
of a word, all strings are listed.  Return completion.
(defalias 'bibtex-complete-internal #[(completions) "\306\212\307\310!\210\311u\210`)`\312	\n\"\313\f\"\211\204$�\314\315\"\202\212�
\306=\203.�\202\212�
\230\204b�	\n|\210
c\210\316\317\320\"\211!\203]�\321 \322\323\324 \"\"#r\325\216\326!\327\"\210\330 \210,)
\202\212�\331 \321 =\211$\204q�\332\333!\210\317\220\334\335\336\f\"\337\"\"\221\210$\204\210�\332\340!\210)\311-\207" [case-fold-search beg end pattern completions completion t re-search-backward "[ 	{\"]" nil buffer-substring-no-properties try-completion error "Can't find completion for `%s'" get-buffer-window "*Completions*" 0 selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030�\n@\306	@!\203)�\307	\211A@)!\203)�\310	@	\211A@)\311#\210\nA\211\204�*\307\f!\203<�\312\f\311\"\210\305\207" [save-selected-window-alist elt --dolist-tail-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord bury-buffer minibuffer-window message "Making completion list..." display-completion-list sort all-completions string< "Making completion list...done" win save-selected-window-alist save-selected-window-window minibuf-is-in-use] 7 (#$ . 96647)])
#@147 Cleanup after inserting string STR.
Remove enclosing field delimiters for STR.  Display message with
expansion of STR using expansion list COMPL.
(defalias 'bibtex-complete-string-cleanup #[(str compl) "\212;\205�\303	\304#A\211\203�\305\306\n\"\210\307 *\207" [str compl abbr assoc-string t message "Abbreviation for `%s'" bibtex-remove-delimiters] 5 (#$ . 98127)])
#@125 Display summary message on entry KEY after completion of a crossref key.
Use `bibtex-summary-function' to generate summary.
(defalias 'bibtex-complete-crossref-cleanup #[(key) "\212;\205�\302\303\"\205�\304\305	 \")\207" [key bibtex-summary-function bibtex-search-entry t message "Ref: %s"] 3 (#$ . 98506)])
#@208 Push summery of current BibTeX entry to kill ring.
Use `bibtex-summary-function' to generate summary.
If prefix ARG is non-nil push BibTeX entry's URL to kill ring
that is generated by calling `bibtex-url'.
(defalias 'bibtex-copy-summary-as-kill #[(&optional arg) "\203�\304\305\306\"\211\203�\307\310\311	\"!\202�\310\312!)\207\212\313 \210\314\n!\203/�\307\310\311 \"!\2022�\315\316!)\207" [arg url bibtex-entry-maybe-empty-head bibtex-summary-function bibtex-url nil t kill-new message "%s" "No URL known" bibtex-beginning-of-entry looking-at error "No entry found"] 5 (#$ . 98825) "P"])
#@93 Return summary of current BibTeX entry.
Used as default value of `bibtex-summary-function'.
(defalias 'bibtex-summary #[nil "\306!\203d�\307\310\311\312\313\314 \315 !\316\"\317 #\320$\321%\307&\320'\313(\322 )\323\324*\"+\323\325!,\323\326\327\"-\330\331\313!B\313#B\332)B\333+B\313,B\334-B\257\335#.\207\336\337!\207" [bibtex-entry-maybe-empty-head bibtex-autokey-name-case-convert-function bibtex-autokey-name-length bibtex-autokey-names bibtex-autokey-names-stretch bibtex-autokey-name-separator looking-at identity infty 1 0 " " " etal" bibtex-autokey-get-names 4 bibtex-autokey-get-year 5 2 bibtex-autokey-get-title bibtex-autokey-get-field "journal" "volume" "pages" (("-.*\\'" . #1="")) mapconcat #[(arg) "A\301\230?\205
�@AP\207" [arg #1#] 2] ": " ", " ":" #1# error "Entry not found" bibtex-autokey-additional-names names bibtex-autokey-year-length year bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-length bibtex-autokey-titleword-separator title bibtex-autokey-transcriptions journal volume pages] 9 (#$ . 99428)])
#@137 Fill current field from the ARGth same field's text in DIRECTION.
Generic function used by `bibtex-pop-previous' and `bibtex-pop-next'.
(defalias 'bibtex-pop #[(arg direction) "\306\307!\211\211@@)\211A@)\3108)\311\307\"\312\212\313=\203;� \314=\2034�!\2026�\"b\210\202K� \314=\203H�\315 \210\202K�\316 \210
\204\223�#S\211#\317Y\203\223� \314=\203z�\320\f!\211\203t�\211@@)b\210\202K�\307\211\202L�\321\f!\211\203\215�\3228)b\210\202K�\307\211\203O�
\203\252�\323\324 \314=\203\244�\325\202\245�\326\"\210\202\360�\327!\330\211@@)!\330\3228)!$%&\331\332!\210b\210\n|\210%	U\203\337�\333 \334 \261\210\202\343�&c\210\335%!!\335$!\"+.\336\312\211\211\307$\210\313\211'\207" [bounds start-old-field start-old-text end-old-text field-name failure bibtex-enclosing-field t 2 bibtex-name-in-field nil bibtex-pop previous bibtex-beginning-of-entry bibtex-end-of-entry 0 bibtex-search-backward-field bibtex-search-forward-field 3 error "No %s matching BibTeX field" "previous" "next" bibtex-text-in-field-bounds copy-marker bibtex-flash-head "From: " bibtex-field-left-delimiter bibtex-field-right-delimiter marker-position bibtex-find-text last-command direction bibtex-pop-previous-search-point bibtex-pop-next-search-point arg nend nbeg new-text this-command] 6 (#$ . 100579)])
#@187 Move point backward to beginning of field.
This function uses a simple, fast algorithm assuming that the field
begins at the beginning of a line.  We use this function for font-locking.
(defalias 'bibtex-beginning-of-field #[nil "\302\303Q\304 \210\305	!?\205�\306	\307\310#)\207" [bibtex-field-name field-reg "^[ 	]*" "[ 	]*=" beginning-of-line looking-at re-search-backward nil t] 4 (#$ . 101912)])
#@96 Font-lock for URLs.  BOUND limits the search.
If NO-BUTTON is non-nil do not generate buttons.
(defalias 'bibtex-font-lock-url #[(bound &optional no-button) "\306`\307\211\211\211\211\310 \210\204\262�`X\203\262�\311\306#\312\313!\203\262�\314 \211\203\262�@A@\211Sf\315>\203D�	S\nf\316>\203N�\nT\n
W\203X�
	^\nX\203\262�
\nX\203\250�\307\204\247�\211A@@\211\203\247�\nb\210\f@\317\320\307\320\307\306&*\306=\205\242�\311A	\306#\211\203p�*\204�	b\210\202�\203\305�\204\305�\321\320\224\320\225\322\320\224$\210.\207" [found end start bounds name pnt t nil bibtex-beginning-of-field re-search-forward match-string-no-properties 1 bibtex-parse-field-text (125 34) (123 34) compare-strings 0 bibtex-button bibtex-url case-fold-search bound bibtex-font-lock-url-regexp bibtex-generate-url-list url lst str2 str1 no-button] 9 (#$ . 102322)])
#@58 Font-lock for crossref fields.  BOUND limits the search.
(defalias 'bibtex-font-lock-crossref #[(bound) "\306`\307\310\211\211\311 \210\204,�\312\306#\203,�\313\224T\313\225S\n\fY\211\203�\203=�\314\n	\315\316\n	\"\n\306&\210.\207" [found end start crossref-reg pnt case-fold-search t "^[ 	]*crossref[ 	]*=[ 	\n]*\$\"[^\"]*\"\\|{[^}]*}\$[ 	\n]*[,})]" nil bibtex-beginning-of-field re-search-forward 1 bibtex-button bibtex-search-crossref buffer-substring-no-properties bound] 8 (#$ . 103226)])
#@119 Font-lock for cited keys.
MATCHER identifies the cited key, see `bibtex-cite-matcher-alist'.
BOUND limits the search.
(defalias 'bibtex-font-lock-cite #[(matcher bound) "\305\306	@\n\307#\205#�	A\224	A\225\310\f\311\312\f\"\f\307\211&\210*\307)\207" [case-fold-search matcher bound end start nil re-search-forward t bibtex-button bibtex-search-crossref buffer-substring-no-properties] 8 (#$ . 103747)])
#@32 Call BUTTON's BibTeX function.
(defalias 'bibtex-button-action #[(button) "\301\302\303\"\302\304\"\"\207" [button apply button-get bibtex-function bibtex-args] 5 (#$ . 104162)])
(byte-code "\300\301\302\303\304\301\305\306\307!&\210\300\310\302\303\304\310\305\306\311!&\207" [define-button-type bibtex-url action bibtex-button-action bibtex-function help-echo purecopy "mouse-2, RET: follow URL" bibtex-search-crossref "mouse-2, RET: follow crossref"] 9)
#@74 Make a BibTeX button from BEG to END of type TYPE in the current buffer.
(defalias 'bibtex-button #[(beg end type &rest args) "\304	\302\n\305&\207" [beg end type args make-text-button bibtex-args] 7 (#$ . 104629)])
#@2596 Major mode for editing BibTeX files.

General information on working with BibTeX mode:

Use commands such as \<bibtex-mode-map>\[bibtex-Book] to get a template for a specific entry.
Then fill in all desired fields using \[bibtex-next-field] to jump from field
to field.  After having filled in all desired fields in the entry, clean the
new entry with the command \[bibtex-clean-entry].

Some features of BibTeX mode are available only by setting the variable
`bibtex-maintain-sorted-entries' to non-nil.  However, then BibTeX mode
works only with buffers containing valid (syntactical correct) and sorted
entries.  This is usually the case, if you have created a buffer completely
with BibTeX mode and finished every new entry with \[bibtex-clean-entry].

For third party BibTeX files, call the command \[bibtex-convert-alien]
to fully take advantage of all features of BibTeX mode.

Special information:

A command such as \[bibtex-Book] outlines the fields for a BibTeX book entry.

The names of optional fields start with the string OPT, and are thus ignored
by BibTeX.  The names of alternative fields from which only one is required
start with the string ALT.  The OPT or ALT string may be removed from
the name of a field with \[bibtex-remove-OPT-or-ALT].
\[bibtex-make-field] inserts a new field after the current one.
\[bibtex-kill-field] kills the current field entirely.
\[bibtex-yank] yanks the last recently killed field after the current field.
\[bibtex-remove-delimiters] removes the double-quotes or braces around the text of the current field.
\[bibtex-empty-field] replaces the text of the current field with the default "" or {}.
\[bibtex-find-text] moves point to the end of the current field.
\[bibtex-complete] completes word fragment before point according to context.

The command \[bibtex-clean-entry] cleans the current entry, i.e. it removes OPT/ALT
from the names of all non-empty optional or alternative fields, checks that
no required fields are empty, and does some formatting dependent on the value
of `bibtex-entry-format'.  Furthermore, it can automatically generate a key
for the BibTeX entry, see `bibtex-generate-autokey'.
Note: some functions in BibTeX mode depend on entries being in a special
format (all fields beginning on separate lines), so it is usually a bad
idea to remove `realign' from `bibtex-entry-format'.

BibTeX mode supports Imenu and hideshow minor mode (`hs-minor-mode').

----------------------------------------------------------
Entry to BibTeX mode calls the value of `bibtex-mode-hook'
if that value is non-nil.

\{bibtex-mode-map}
(defalias 'bibtex-mode #[nil "\306 \210\307!\210\310\311\312!\210\313\314!\210\f\204�\315
\316\317#\313\320!\210\321\313\322!\210(\313\323!\210\324(!\325P\313\326!\210\327\313\330!\210\331\313\332!\210\333\313\334!\210\335\313\336!\210\337)*\\\340\"\313\341!\210\342!\343+,EC-\316.\313\344!\210\345/!\210\3450!\210\346\347!\207" [bibtex-mode-map major-mode mode-name bibtex-mode-syntax-table bibtex-parse-idle-timer bibtex-parse-keys-timeout kill-all-local-variables use-local-map bibtex-mode "BibTeX" set-syntax-table make-local-variable bibtex-buffer-last-parsed-tick run-with-idle-timer t bibtex-parse-buffers-stealthily paragraph-start "[ \f\n	]*$" comment-start comment-start-skip regexp-quote "\\>[ 	]*" comment-column 0 defun-prompt-regexp "^[ 	]*@[[:alnum:]]+[ 	]*" outline-regexp "[ 	]*@" fill-paragraph-function bibtex-fill-field fill-prefix make-string 32 font-lock-defaults (bibtex-font-lock-keywords nil t ((36 . "\"") (34 . ".")) nil (font-lock-syntactic-keywords . bibtex-font-lock-syntactic-keywords) (font-lock-extra-managed-props category) (font-lock-mark-block-function lambda nil (set-mark (bibtex-end-of-entry)) (bibtex-beginning-of-entry))) nil choose-completion-string-functions easy-menu-add run-mode-hooks bibtex-mode-hook bibtex-comment-start bibtex-entry-offset bibtex-contline-indentation bibtex-entry-head bibtex-key-in-head imenu-generic-expression imenu-case-fold-search bibtex-edit-menu bibtex-entry-menu] 4 (#$ . 104856) nil])
#@352 Return list of allowed fields for entry ENTRY-TYPE.
More specifically, the return value is a cons pair (REQUIRED . OPTIONAL),
where REQUIRED and OPTIONAL are lists of the required and optional field
names for ENTRY-TYPE according to `bibtex-entry-field-alist',
`bibtex-include-OPTkey', `bibtex-include-OPTcrossref',
and `bibtex-user-optional-fields'.
(defalias 'bibtex-field-list #[(entry-type) "\306	\307#\310\211\211\204�\311\312\"\210\313
\"\203.�\314\f8\203.�\314\f8@\314\f8A@\2029�\fA@@\fA@A@\203S�\315\316;\204M�\317!\205O�E\nB\313
\"\203^�\320\nB\321\n\"\n+B\207" [entry-type bibtex-entry-field-alist optional required e bibtex-include-OPTcrossref assoc-string t nil error "Fields for BibTeX entry type %s not defined" member-ignore-case 2 "key" "Used for reference key creation if author and editor fields are missing" functionp ("crossref" "Reference key of the cross-referenced entry") append bibtex-include-OPTkey bibtex-user-optional-fields] 5 (#$ . 108951)])
#@131 Insert a new BibTeX entry of type ENTRY-TYPE.
After insertion call the value of `bibtex-add-entry-hook' if that value
is non-nil.
(defalias 'bibtex-entry #[(entry-type) "\205\n�\306\307\310	\"!\311	!\312\313	E!\204�\314\315\"\210\fj\210\316	\317 \261\210\203.�c\210\212\320\321\n@\"\210\320\322\nA\"\210
\203B�\323c\210\324c\210\fj\210\325 \326\261\210)\327\330!\210\331	\"\203^�\332 \210\333\334!*\207" [bibtex-maintain-sorted-entries entry-type field-list key bibtex-entry-offset bibtex-comma-after-last-field bibtex-read-key format "%s key: " bibtex-field-list bibtex-prepare-new-entry nil error "Entry with key `%s' already exists" "@" bibtex-entry-left-delimiter mapc bibtex-make-field bibtex-make-optional-field "," "\n" bibtex-entry-right-delimiter "\n\n" bibtex-next-field t member-ignore-case bibtex-autofill-entry run-hooks bibtex-add-entry-hook bibtex-autofill-types] 4 (#$ . 109956) (let ((completion-ignore-case t)) (list (completing-read "Entry Type: " bibtex-entry-field-alist nil t nil 'bibtex-entry-type-history)))])
#@389 Update an existing BibTeX entry.
In the BibTeX entry at point, make new fields for those items that may occur
according to `bibtex-field-list', but are not yet present.
Also, add field delimiters to numerical fields if they are not present.
If ENTRY-TYPE is non-nil, change first the entry type to ENTRY-TYPE.
When called interactively with a prefix arg, query for a value of ENTRY-TYPE.
(defalias 'bibtex-entry-update #[(&optional entry-type) "\212\306 \210\307!\205\334�\310\225b\210	\203!�\212\311\312	P\313\211\211\314%\210)\202)�\315\n\224T\n\225\"\316	!\317@!\317A!\313 \320 \211 \203\232�\321 \322\"\323  \324 8)\322\"!\"\325\326\"\f\322#\f\"\325\326\"
\322#
\"\327\330\331 !\"\203\222�  \332 8)b\210\333 c\210 \211 A@)b\210\334 c\210!b\210*\202:�\335\313x\210\f\313#\211$\203\273�$@#\336#!\210$A\211$\204\250�*
\313#\211$\205\332�$@#\337#!\210$A\211$\204\306�\313.)\207" [bibtex-entry-maybe-empty-head entry-type bibtex-type-in-head field-list required optional bibtex-beginning-of-entry looking-at 0 replace-match "@" nil 1 buffer-substring-no-properties bibtex-field-list copy-tree bibtex-parse-field bibtex-name-in-field t copy-marker 3 delete assoc-string string-match "\\`[0-9]+\\'" bibtex-text-in-field-bounds 2 bibtex-field-right-delimiter bibtex-field-left-delimiter " 	\n" bibtex-make-field bibtex-make-optional-field bounds end fname field --dolist-tail--] 7 (#$ . 111009) (list (if current-prefix-arg (let ((completion-ignore-case t)) (completing-read "New entry type: " bibtex-entry-field-alist nil t nil 'bibtex-entry-type-history))))])
#@339 Parse entry at point, return an alist.
The alist elements have the form (FIELD . TEXT), where FIELD can also be
the special strings "=type=" and "=key=".  For the FIELD "=key="
TEXT may be nil.  Remove "OPT" and "ALT" from FIELD.
Move point to the end of the last field.
If optional arg CONTENT is non-nil extract content of text fields.
(defalias 'bibtex-parse-entry #[(&optional content) "\306\211\307\n!\203H�\310\311\224T\225\"B	B\312\306\313
!\206 �\f)B	B\314\225b\210\315 \211\203H�\316\317\"\320\"B	B\3218)b\210\202)�	*\207" [bounds alist bibtex-entry-maybe-empty-head bibtex-type-in-head empty bibtex-key-in-head nil looking-at "=type=" buffer-substring-no-properties "=key=" match-string-no-properties 0 bibtex-parse-field bibtex-name-in-field t bibtex-text-in-field-bounds 3 content] 4 (#$ . 112615)])
#@487 Try to fill fields of current BibTeX entry based on neighboring entries.
The current entry must have a key.  Determine the neighboring entry
(previouse or next) whose key is more similar to the key of the current
entry.  For all empty fields of the current entry insert the corresponding
field contents of the neighboring entry.  Finally try to update the text
based on the difference between the keys of the neighboring and the current
entry (for example, the year parts of the keys).
(defalias 'bibtex-autofill-entry #[nil "\306 \210\307!\205w\310	\224T	\225\"\311\312!\206�\n)\225\313\211\311\211\211\211 !\"#$%#b\210\212\314\224Sb\210\306 \210\307!\203}�%\310	\224T	\225\"&'\315'\314\311&\314\311\313&*\313=\203}�$\311\312!\206o�\n)\211 \232\204}� `)\212\316 \210\317 \210\307!\203\336�%\310	\224T	\225\"&'\315'\314\311&\314\311\313&*\313=\203\336�$\311\312!\206\265�\n)\211 \232\204\336�\203\330�\320\321$D\"G\320\321$ D\"GW\203\336� `)
\205u\212
b\210\322 )`#\323 \211\2031\324\325\f\313\"
\313#\211(\203\f\326\f\313\"\321\232\204\f\327\f8)b\210\202-\f\211A@)b\210`\f\330\f8)|\210(Ac\210)\202\356�\320\321$D\")\331\332)\"\205L)\314\211\224O\211)*$)G\311O+)G\311O,\333\334,!#\335#\205t\336+!\210\202`,.	\207" [bibtex-entry-head bibtex-type-in-head empty bibtex-key-in-head bounds other bibtex-beginning-of-entry looking-at buffer-substring-no-properties nil match-string-no-properties t 0 compare-strings bibtex-end-of-entry bibtex-skip-to-valid-entry try-completion "" bibtex-parse-entry bibtex-parse-field assoc-string bibtex-name-in-field bibtex-text-in-field-bounds 3 2 string-match "[0-9]+\\'" re-search-backward regexp-quote move replace-match other-key tmp bibtex-sort-ignore-string-entries case-fold-search key-end key type str2 str1 text prefix _ suffix other-suffix] 10 (#$ . 113450) nil])
#@158 Print helpful information about current FIELD in current BibTeX entry.
Optional arg COMMA is as in `bibtex-enclosing-field'.  It is t for
interactive calls.
(defalias 'bibtex-print-help-message #[(&optional field comma) "\204�\306\307\211	#@\310\311\"\203F�\312\313\314\307\n\314\307\315&*\315=\203*�\316\317!\207\320\313\314\307\n\314\307\315&*\315=\203B�\316\321!\207\316\322!\207\315\212\323 \210\324
!\210\325\224T\225\")\326!\327\330@A\"\315#\211\203~�\316\331A@\"\202\201�\316\332!,\207" [field comma str2 str1 case-fold-search bibtex-entry-maybe-empty-head bibtex-find-text-internal nil string-match "@" "@string" compare-strings 0 t message "String definition" "@preamble" "Preamble definition" "Entry key" bibtex-beginning-of-entry looking-at buffer-substring-no-properties bibtex-field-list assoc-string append "%s" "No comment available" bibtex-type-in-head type field-list comment] 9 (#$ . 115351) (list nil t)])
#@496 Make a field named FIELD in current BibTeX entry.
FIELD is either a string or a list of the form
(FIELD-NAME COMMENT-STRING INIT ALTERNATIVE-FLAG) as in
`bibtex-entry-field-alist'.
If MOVE is non-nil, move point past the present field before making
the new field.  If INTERACTIVE is non-nil, move point to the end of
the new field.  Otherwise move point past the new field.
MOVE and INTERACTIVE are t when called interactively.
INIT is surrounded by field delimiters, unless NODELIM is non-nil.
(defalias 'bibtex-make-field #[(field &optional move interactive nodelim) ":\204�C	\203�\306 \210\307\310!\203�\311u\210\312c\210\n\\j\210\3138\203)�\314c\210@\315\261\210\f\203:�\n
\316Z\\j\210\317c\210\f\204F�\n
\\j\210\3168\211\204U�\320\202m�\321!\203a� ;\204m�\322\323\"\210\203y�c\210\202\202�\324 \325 \261\210)\205\232�h\326>\203\221�\327u\210\205\232�\330@!\207" [field move bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation bibtex-find-text looking-at "[}\"]" nil ",\n" 3 "ALT" " " 2 "= " "" functionp error "`%s' is not a string" bibtex-field-left-delimiter bibtex-field-right-delimiter (125 34) -1 bibtex-print-help-message init nodelim interactive bibtex-help-message] 4 (#$ . 116317) (list (let ((completion-ignore-case t) (field-list (bibtex-field-list (save-excursion (bibtex-beginning-of-entry) (looking-at bibtex-any-entry-maybe-empty-head) (bibtex-type-in-head))))) (completing-read "BibTeX field name: " (append (car field-list) (cdr field-list)) nil nil nil bibtex-field-history)) t t)])
#@275 Move to beginning of BibTeX entry (beginning of line).
If inside an entry, move to the beginning of it, otherwise move to the
beginning of the previous entry.  If point is ahead of all BibTeX entries
move point to the beginning of buffer.  Return the new location of point.
(defalias 'bibtex-beginning-of-entry #[nil "\300\301w\210\302\303!\203
�\301u\210\304\305\301\306#\210`\207" [" 	" nil looking-at "@" re-search-backward "^[ 	]*@" move] 4 (#$ . 117911) nil])
#@219 Move to end of BibTeX entry (past the closing brace).
If inside an entry, move to the end of it, otherwise move to the end
of the previous entry.  Do not move if ahead of first entry.
Return the new location of point.
(defalias 'bibtex-end-of-entry #[nil "\305`\306 \307\305!\203�Ab\210\202G�\310\305!\206�\311 \211\203/�\312A8)b\210\202G�\313\f!\203<�\314\315!\210\202G�t\203D�\316\317!\210\nb\210`,\207" [bounds _ pnt case-fold-search bibtex-any-valid-entry-type t bibtex-beginning-of-entry bibtex-valid-entry bibtex-parse-string bibtex-parse-preamble 2 looking-at error "Syntactically incorrect BibTeX entry starts here" message "Not on a known BibTeX entry."] 5 (#$ . 118383) nil])
#@62 Goto line ARG, counting from beginning of (narrowed) buffer.
(defalias 'bibtex-goto-line #[(arg) "eb\210\302=\203�\303\304\305\306	S$\207	Sy\207" [selective-display arg t re-search-forward "[\n
]" nil end] 5 (#$ . 119087)])
#@158 Make the current BibTeX entry visible.
If entry is smaller than `window-body-height', entry is centered in window.
Otherwise display the beginning of entry.
(defalias 'bibtex-reposition-window #[nil "`\303\304 !\303\305 !\306 	ZV\203'�\307\310\311	#\312\245!\210\313 \210\nb\202C�\307	!\210\313\314!\210\303\n!	ZT\306 V\203A�\307	!\202C�\nb+\207" [end beg pnt line-number-at-pos bibtex-beginning-of-entry bibtex-end-of-entry window-body-height bibtex-goto-line + 1 2 recenter 0] 5 (#$ . 119320) nil])
#@62 Put mark at beginning, point at end of current BibTeX entry.
(defalias 'bibtex-mark-entry #[nil "\300\301 !\210\302 \207" [push-mark bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 119832) nil])
#@234 Count number of entries in current buffer or region.
With prefix argument COUNT-STRING-ENTRIES count all entries,
otherwise count all entries except @String entries.
If mark is active count entries in region, if not in whole buffer.
(defalias 'bibtex-count-entries #[(&optional count-string-entries) "\304?\214\203�\305 \306 }\210\307\310!\210)\311\312\203�\313\202 �\314\n#*\207" [count-string-entries bibtex-sort-ignore-string-entries number mark-active 0 region-beginning region-end bibtex-map-entries #[(key beg end) "T\211\207" [number] 2] message "%s contains %d entries." "Region" "Buffer"] 4 (#$ . 120041) "P"])
#@41 Check BibTeX entry for spelling errors.
(defalias 'bibtex-ispell-entry #[nil "\300\212\301 )\212\302 )\"\207" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 120676) nil])
#@53 Check abstract of BibTeX entry for spelling errors.
(defalias 'bibtex-ispell-abstract #[nil "\212\301 \210\302\303\304\")\211\203�\305\211A@)\3068)\"\202\"�\307\310!)\207" [bounds bibtex-beginning-of-entry bibtex-search-forward-field "abstract" t ispell-region 2 error "No abstract in entry"] 5 (#$ . 120876) nil])
#@40 Narrow buffer to current BibTeX entry.
(defalias 'bibtex-narrow-to-entry #[nil "\212~\210\300 \301 })\207" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 121204) nil])
#@349 Return index of BibTeX entry head at or past position of point.
The index is a list (KEY CROSSREF-KEY ENTRY-TYPE) that is used for sorting
the entries of the BibTeX buffer.  CROSSREF-KEY is nil unless the value
of `bibtex-maintain-sorted-entries' is `crossref'.  Move point to the end
of the head of the entry found.  Return nil if no entry found.
(defalias 'bibtex-entry-index #[nil "\306\307	\310\306#\205D�\310\311!\206�\n)\312\f\224T\f\225\"\227\313=\203>�\314\315\306\"\2058�\316\306\"
E)\202C�\310
E*)\207" [case-fold-search bibtex-entry-maybe-empty-head empty bibtex-key-in-head bibtex-type-in-head entry-type t re-search-forward nil match-string-no-properties buffer-substring-no-properties crossref bibtex-search-forward-field "\$OPT\$?crossref" bibtex-text-in-field-bounds key bibtex-maintain-sorted-entries bounds] 4 (#$ . 121388)])
#@60 Initialize `bibtex-sort-entry-class-alist' (buffer-local).
(defalias 'bibtex-init-sort-entry-class-alist #[nil "\306\307!?\205N�\310\307!\210\311\312\n\312\211\203G�\f@	T\312\211\203?�\f@\211;\2032�
\227\2023�
	BB\fA\211\204%�*\fA\211\204�\312,\211\207" [alist i bibtex-sort-entry-class class --dolist-tail-- entry local-variable-p bibtex-sort-entry-class-alist make-local-variable -1 nil] 3 (#$ . 122259)])
#@233 Predicate for sorting BibTeX entries with indices INDEX1 and INDEX2.
Each index is a list (KEY CROSSREF-KEY ENTRY-TYPE).
The predicate depends on the variable `bibtex-maintain-sorted-entries'.
If its value is nil use plain sorting.
(defalias 'bibtex-lessp #[(index1 index2) "\204�	?\207	\204
�\306\207\n\307=\203r�A@\203U�\310A@\"A\203U�	A@\203M�\310	A@\"A\203M�A@	A@\231\206\270�A@	A@\230\205q�@	@\231\207	@A@\231?\207	A@\203l�\310	A@\"A\203l�@	A@\231\207@	@\231\207\n\311=\203\263�\312\3138\f\"\206\211�\312\314\f\"\206\211�\315A\312\313	8\f\"\206\233�\312\314\f\"\206\233�\316A\211
W\206\261�
U\205\261�@	@\231*\207@	@\231\207" [index1 index2 bibtex-maintain-sorted-entries bibtex-reference-keys bibtex-sort-entry-class-alist n2 nil crossref assoc-string entry-class assoc 2 catch-all (nil . 1000) (nil . 1000) n1] 5 (#$ . 122693)])
#@287 Sort BibTeX buffer alphabetically by key.
The predicate for sorting is defined via `bibtex-maintain-sorted-entries'.
If its value is nil use plain sorting.  Text outside of BibTeX entries is not
affected.  If `bibtex-sort-ignore-string-entries' is non-nil, @String entries
are ignored.
(defalias 'bibtex-sort-buffer #[nil "\302 \210\303 \210\304=\203�\305	!\203�\306 \210\307\310\311\312\313\310\314&\207" [bibtex-maintain-sorted-entries bibtex-reference-keys bibtex-beginning-of-first-entry bibtex-init-sort-entry-class-alist crossref functionp bibtex-parse-keys sort-subr nil bibtex-skip-to-valid-entry bibtex-end-of-entry bibtex-entry-index bibtex-lessp] 7 (#$ . 123557) nil])
#@837 Move point to the beginning of BibTeX entry CROSSREF-KEY.
If `bibtex-files' is non-nil, search all these files.
Otherwise the search is limited to the current buffer.
Return position of entry if CROSSREF-KEY is found or nil otherwise.
If CROSSREF-KEY is in the same buffer like current entry but before it
an error is signaled.  If NOERRER is non-nil this error is suppressed.
Optional arg PNT is the position of the referencing entry.  It defaults
to position of point.  If optional arg SPLIT is non-nil, split window
so that both the referencing and the crossrefed entry are displayed.

If called interactively, CROSSREF-KEY defaults to either the crossref key
of current entry or a key matched by `bibtex-cite-matcher-alist',
whatever is nearer to the position of point.  SPLIT is t.  NOERROR is nil
for a crossref key, t otherwise.
(defalias 'bibtex-search-crossref #[(crossref-key &optional pnt split noerror) "\306\211\211\212\307\310\"p)\np=	\204#�\f\203\204�\311\312\"\210\202\204�\f\203t�
\204-�`
b\210\203E�	\212\313 )U\203E�\311\314\"\210\202\204�\203Q�\315\316 !\210\202U�\317\n!\210	b\210\320 \210\321 \210\203\204�
	V\203\204�\204\204�\322\323!\210\202\204�\203~�	b\210\202\204�\nq\210	b\210	+\207" [eqb pos buffer crossref-key split pnt nil bibtex-search-entry t message "Crossref key `%s' not found" bibtex-beginning-of-entry "Key `%s' is current entry" select-window split-window pop-to-buffer bibtex-reposition-window beginning-of-line error "The referencing entry must precede the crossrefed entry!" noerror] 3 (#$ . 124248) (save-excursion (let* ((pnt (point)) (_ (bibtex-beginning-of-entry)) (end (cdr (bibtex-valid-entry t))) (_ (unless end (error "Not inside valid entry"))) (beg (match-end 0)) (bounds (bibtex-search-forward-field "\$OPT\$?crossref" end)) case-fold-search best temp crossref-key) (if bounds (setq crossref-key (bibtex-text-in-field-bounds bounds t) best (cons (bibtex-dist pnt (bibtex-end-of-field bounds) (bibtex-start-of-field bounds)) crossref-key))) (dolist (matcher bibtex-cite-matcher-alist) (goto-char beg) (while (re-search-forward (car matcher) end t) (setq temp (bibtex-dist pnt (match-end (cdr matcher)) (match-beginning (cdr matcher)))) (if (or (not best) (< temp (car best))) (setq best (cons temp (match-string-no-properties (cdr matcher))))))) (goto-char pnt) (setq temp (bibtex-read-key "Find crossref key: " (cdr best) t)) (list temp (point) t (not (and crossref-key (string= temp crossref-key))))))])
(defalias 'bibtex-find-crossref 'bibtex-search-crossref)
#@66 Return distance between POS and region delimited by BEG and END.
(defalias 'bibtex-dist #[(pos beg end) "	X\203�	\nX\203�\303\207	W\203�	Z\207	\nZ\207" [beg pos end 0] 2 (#$ . 126789)])
#@566 Move point to the beginning of BibTeX entry named KEY.
Return position of entry if KEY is found or nil if not found.
With GLOBAL non-nil, search KEY in `bibtex-files'.  Otherwise the search
is limited to the current buffer.  Optional arg START is buffer position
where the search starts.  If it is nil, start search at beginning of buffer.
If DISPLAY is non-nil, display the buffer containing KEY.
Otherwise, use `set-buffer'.
When called interactively, GLOBAL is t if there is a prefix arg or the current
mode is not `bibtex-mode', START is nil, and DISPLAY is t.
(defalias 'bibtex-search-entry #[(key &optional global start display) "\203f�	\203f�\306\307!\310\211\n\2043�\f\211A@\211\2033�rq\210\311
\"A\203/�\312
!)\202�\n\203O�\203O�\313!B\314!\210\315 \210)\202c�\n\203Y�q\210\202c�\203c�\316\317
\"\210\n+\207\307\212\206p�eb\210\320\321\322\323
!\324\260\310\307#\205\205�\325\224)\211\203\233�b\210\203\245�\315 \210\202\245�\203\245�\316\317
\"\210*\207" [global bibtex-files found buffer buffer-list key bibtex-initialize t nil assoc-string bibtex-search-entry buffer-name pop-to-buffer bibtex-reposition-window message "Key `%s' not found" re-search-forward "^[ 	]*\$" "\$[ 	]*[({][ 	\n]*\$" regexp-quote "\$[ 	\n]*[,=]" 0 bibtex-reference-keys display same-window-buffer-names case-fold-search start bibtex-entry-type pnt] 7 (#$ . 126988) (let ((global (or current-prefix-arg (not (eq major-mode 'bibtex-mode))))) (list (bibtex-read-key "Find key: " nil global) global nil t))])
(defalias 'bibtex-find-entry 'bibtex-search-entry)
#@377 Prepare a new BibTeX entry with index INDEX.
INDEX is a list (KEY CROSSREF-KEY ENTRY-TYPE).
Move point where the entry KEY should be placed.
If `bibtex-maintain-sorted-entries' is non-nil, perform a binary
search to look for place for KEY.  This requires that buffer is sorted,
see `bibtex-validate'.
Return t if preparation was successful or nil if entry KEY already exists.
(defalias 'bibtex-prepare-new-entry #[(index) "\306 \210\307=\203�\310	!\203�\311 \210\n@\312\211\2032�\f;\203&�\f\313\230\2042�\314\f!\211\2048�\2048�\315 \210\202\362�\204\362�\316\212\317 )\212db\210\320\316!)\211\203X�A\202Y�eY\205e�\312\211\212\204\307�\\\321\245b\210\320\316!\210\322 \323\n\"\203\247�\324 \232\203\240�\211\202p�\202n�\325 \210\320 \210`\232\203\300�\211\202p�\202n�)b\210\324 \210\212\322 )\211\203\341�\323\n\"\203\360�\325 \210o\204\355�\326\321y!\210\327 \210.?\205\370�\316*\207" [bibtex-maintain-sorted-entries bibtex-reference-keys index key-exist key case-fold-search bibtex-init-sort-entry-class-alist crossref functionp bibtex-parse-keys nil "" bibtex-search-entry bibtex-move-outside-of-entry t bibtex-beginning-of-first-entry bibtex-skip-to-valid-entry 2 bibtex-entry-index bibtex-lessp bibtex-beginning-of-entry bibtex-end-of-entry newline beginning-of-line left bounds right found actual-index new] 4 (#$ . 128581)])
#@482 Validate if buffer or region is syntactically correct.
Check also for duplicate keys and correct sort order provided
`bibtex-maintain-sorted-entries' is non-nil.
With optional argument TEST-THOROUGHLY non-nil check also for
the absence of required fields and for questionable month fields.
If mark is active, validate current region, if not the whole buffer.
Only check known entry types, so you can put comments outside of entries.
Return t if test was successful, nil otherwise.
(defalias 'bibtex-validate #[(&optional test-thoroughly) "\306\307\211\212\214\203�\310 \311 }\210eb\210\312\313!\210\307\211\314\315\307\306#\211\203o�\312 \210\316\224b\210\317 \211\203<�
Ab\210\202�\320 \206C�\321 \211\203T�
\322
A8)b\210\202�\323:!\203i�\324 \325B	B\316\225b\210\202�\fb\210\202�*\312\326!\210	\203}�\306\202\327 \210\330 \210\307\211\211;<=\312\331!\210\332\333!\210\312\326!\210+\334\307\306\"\307>\211?\203\374�?@>r>q\210@)\307A\211?\203\362�?@\211AA\203\351�\335A@@\"A\203\351�\336A@!\210\324 \337\340A@\341\342>!!#B	B?A\211?\204\274�*?A\211?\204\246�*B\203\312\343!\210\306C\332\344!\210)\312\326!\210*	\203\220\345\342 !D\346EFG\347	\350\"r\351E!q\210FDH\352=\204>\352 \210\353\354!\210ed|\210\355\n\203O\356\202P\357\261\210	\307I\211?\203x?@I\337\360GI@IA$c\210?A\211?\204]*\361\307!\210\353\362!\210\363\364!\210)\365E!\210+\307\202\236\366\367\203\232\370\202\233\371\"\210\306+\207" [case-fold-search error-list syntax-error mark-active end bounds t nil region-beginning region-end bibtex-progress-message "Checking syntactical structure" re-search-forward "^[ 	]*@" 0 bibtex-valid-entry bibtex-parse-string bibtex-parse-preamble 2 looking-at bibtex-current-line "Syntax error (check esp. commas, braces, and quotes)" done bibtex-init-sort-entry-class-alist bibtex-parse-keys "Checking for duplicate keys" bibtex-map-entries #[(key beg end) "\306 \210\307 	\203/�\n\235\203�\310 \311\312\n\"B\fB\202/�
\203/�\313	\"\204/�\310 \314B\fB\nB\211\207" [current previous key key-list error-list bibtex-maintain-sorted-entries bibtex-progress-message bibtex-entry-index bibtex-current-line format "Duplicate key `%s'" bibtex-lessp "Entries out of order"] 4] bibtex-initialize assoc-string bibtex-search-entry format "Duplicate key `%s' in %s" abbreviate-file-name buffer-file-name "Checking required fields and month fields" #[(key beg end) "\306 \210\307\310\224T\225\"	\311#\312\n\313\234\314\234!\312\n\315\234\314\234!\316\211 \316\211!\"\317#!\210\320 \211 \203\324�\321 !\211$\322%&\323&\314\316%\314\316\311&*\311=\203w�\324 !'\325\326'\"\206j�\307'(\311#)\204w�\327 \330B)B)\307$\311#\"\331\"\"\331\307$\f\311#\f\"\332\"8\203\252�!\203\247�\327 \333B)B)\202\252�\311!$\334%&\323&\314\316%\314\316\311&*\311=\203\305�\311)  \332 8)b\210\202/�
\203\332�\f\316*\316\"\211+\203+@\"\332\"8\203\376�\"@*B*\202\212#b\210\327 )\335\336\"@\"B)B)+A\211+\204\347�**A\205?\212#b\210\327 )\335\337*@*\211,A@)#B)B\211).\207" [bibtex-type-in-head bibtex-entry-field-alist entry-list req creq crossref-there bibtex-progress-message assoc-string buffer-substring-no-properties t copy-sequence 1 0 2 nil bibtex-beginning-first-field bibtex-parse-field bibtex-name-in-field "month" compare-strings bibtex-text-in-field-bounds string-match "\\`[\"{].+[\"}]\\'" bibtex-current-line "Questionable month field" delete 3 "More than one non-empty alternative" "crossref" format "Required field `%s' missing" "Alternative fields `%s'/`%s' missing" bounds alt-there field beg field-name str2 str1 month bibtex-predefined-month-strings error-list alt --dolist-tail-- x] 9] file-name-nondirectory "*BibTeX validation errors*" sort car-less-than-car get-buffer-create compilation-mode toggle-read-only -1 "BibTeX mode command `bibtex-validate'\n" "Maybe undetected errors due to syntax errors.  Correct and validate again.\n" "\n" "%s:%d: %s\n" set-buffer-modified-p 1 goto-line 3 display-buffer message "%s is syntactically correct" "Region" "Buffer" bibtex-any-valid-entry-type key-list current previous buffer --dolist-tail-- bibtex-reference-keys key test-thoroughly bibtex-sort-ignore-string-entries default-directory err-buf dir file major-mode err] 8 (#$ . 129994) "P"])
#@161 Check for duplicate keys in `bibtex-files'.
With optional prefix arg STRINGS, check for duplicate strings, too.
Return t if test was successful, nil otherwise.
(defalias 'bibtex-validate-globally #[(&optional strings) "\306\307!\310\211\211\211\211\310\211&\203\246�&@\212
q\210\310\211\211'()eb\210\311*\310\307#\203\225�\312+\224T+\225\")\310,\313-!\206I�,)(.\203j�)\314/0\3150\316\310/\316\310\307&*\307=\204t�\317)1\307#\203)�('\235\203\213�\320\321\322 \323 ($B\202)�('B'\202)�
'BB,&A\211&\204�*\f\211A@\211\203\n\236Ar\nq\210\f\310\211&\203\n&@\211\236A\310(\211&\203�&@(\317(	\"\203\367�\324(!\210\320\325\322 \323 (\326\322
!!%B&A\211&\204\324�*&A\211&\204\303�+\202\247�\203g\3272r\3302!q\2103\331=\204&\331 \210\332\333!\210ed|\210\334c\210\335\336\"\3104\211&\203O&@\2114c\210&A\211&\204>*\337\310!\210\332\340!\210\341\342!\210)\3432!\210)\310\202l\344\345!\210\307-\207" [error-list current-keys current-buf buffer-key-list buffer-list buffer bibtex-initialize t nil re-search-forward buffer-substring-no-properties match-string-no-properties "string" compare-strings 0 assoc-string format "%s:%d: Duplicate key `%s'\n" buffer-file-name bibtex-current-line bibtex-search-entry "%s:%d: Duplicate key `%s' in %s\n" abbreviate-file-name "*BibTeX validation errors*" get-buffer-create compilation-mode toggle-read-only -1 "BibTeX mode command `bibtex-validate-globally'\n\n" sort string-lessp set-buffer-modified-p 1 goto-line 3 display-buffer message "No duplicate keys." --dolist-tail-- key-list key entry-type bibtex-entry-head bibtex-type-in-head empty bibtex-key-in-head strings str2 str1 bibtex-entry-field-alist err-buf major-mode err] 9 (#$ . 134328) "P"])
#@206 Move point to end of text of next BibTeX field or entry head.
With prefix BEGIN non-nil, move point to its beginning.  Optional arg COMMA
is as in `bibtex-enclosing-field'.  It is t for interactive calls.
(defalias 'bibtex-next-field #[(begin &optional comma) "\306\307\310#\310\211\204�\307\2026�\311\n8b\210\312\n@\313\307#\203$�\307\2026�\314\315!\203.�\316\225b\210\314\317!\2036�\307	\203F�\320\310\307#\203F�\316\224b\210\321\f\310
#*\207" [comma end-of-entry bounds bibtex-any-entry-maybe-empty-head begin bibtex-help-message bibtex-find-text-internal t nil 3 assoc-string ("@String" "@Preamble") looking-at ",[ 	\n]*" 0 "[)}][ 	\n]*" re-search-forward bibtex-find-text] 5 (#$ . 136095) (list current-prefix-arg t)])
#@424 Move point to end of text of current BibTeX field or entry head.
With optional prefix BEGIN non-nil, move point to its beginning.
Unless NOERROR is non-nil, an error is signaled if point is not
on a BibTeX field.  If optional arg HELP is non-nil print help message.
When called interactively, the value of HELP is `bibtex-help-message'.
Optional arg COMMA is as in `bibtex-enclosing-field'.  It is t for
interactive calls.
(defalias 'bibtex-find-text #[(&optional begin noerror help comma) "\305\306\307#\211\2038�\n\203�	A@b\210\310\311!\203-�\307u\210\202-�\312	8b\210h\313>\203-�\314u\210\205@�\315	@!\202@�\f?\205@�\316\317!)\207" [comma bounds begin help noerror bibtex-find-text-internal t nil looking-at "[{\"]" 2 (125 34) -1 bibtex-print-help-message error "Not on BibTeX field"] 5 (#$ . 136834) (list current-prefix-arg nil bibtex-help-message t)])
#@615 Find text part of current BibTeX field or entry head.
Return list (NAME START-TEXT END-TEXT END STRING-CONST) with field name
or entry type, start and end of text, and end of field or entry head.
STRING-CONST is a flag which is non-nil if current subfield delimited by #
is a BibTeX string constant.  Return value is nil if field or entry head
are not found.
If optional arg NOERROR is non-nil, an error message is suppressed
if text is not found.  If optional arg SUBFIELD is non-nil START-TEXT
and END-TEXT correspond to the current subfield delimited by #.
Optional arg COMMA is as in `bibtex-enclosing-field'.
(defalias 'bibtex-find-text-internal #[(&optional noerror subfield comma) "\212`\306\307\"\307\310\211\211\211\211\211\211\211 !\"\311 \210!\203Q�\312!\307\"!\211!A@)!!\313!8)!!\314!8)\202#\315\307!\211!\203\225�\"!!\313!A8)X\203\220�\316!\211!A@)!\211!AA@)!!\313!A8)\202#\307\202#\317 \211!\203\330�\"!!\313!A8)X\203\323�\320!\211!A@)!\211!AA@)!!\313!A8)\202#\307\202#\321#!\203!\322\225b\210\203\364�\323 $\324\216\325\326\310\307#\210*\"`X\203\327%!&\224\206	\322\225&\225\206\322\225\211\307\202#\307\202#\307'\203\203\f\204\203\n\211\204\203b\210\204\203\321(!\322\225\307\204U\330 \211!\211A\310\203|\"X\203j\"X\203j\307\202nb\210\321\331!\2036\322\225b\2026\307\211\2026\f\204\224
	\257\202\254\n\203\243)\204\243\332\333!\202\254)?\205\254\332\334!.\f\207" [comma string-const no-sub done failure end bibtex-enclosing-field t nil bibtex-beginning-of-entry bibtex-name-in-field 2 3 bibtex-parse-string "@String" bibtex-parse-preamble "@Preamble" looking-at 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "\\=[ 	\n]*," match-string-no-properties bibtex-parse-field-string "[ 	\n]*#[ 	\n]*" error "Not on text part of BibTeX field" "Not on BibTeX field" end-text start-text name case-fold-search bounds pnt bibtex-entry-maybe-empty-head save-match-data-internal bibtex-type-in-head bibtex-key-in-head subfield bibtex-field-const noerror] 12 (#$ . 137703)])
#@189 Remove the string starting optional/alternative fields.
Align text and go thereafter to end of text.  Optional arg COMMA
is as in `bibtex-enclosing-field'.  It is t for interactive calls.
(defalias 'bibtex-remove-OPT-or-ALT #[(&optional comma) "\305\306!\212	\211@A@)b\210\307\310!\205G�\311\224\311\225|\210\312\313!\210\314u\210\315 \210\2032�\f\316Zj\210\2025�\317c\210\312\313!\210\315 \210\203E�\317c\202G�\fj+\207" [comma bounds case-fold-search bibtex-align-at-equal-sign bibtex-text-indentation t bibtex-enclosing-field looking-at "OPT\\|ALT" 0 search-forward "=" -1 delete-horizontal-space 2 " "] 4 (#$ . 139911) (list t)])
#@137 Remove "" or {} around current BibTeX field text.
Optional arg COMMA is as in `bibtex-enclosing-field'.  It is t for
interactive calls.
(defalias 'bibtex-remove-delimiters #[(&optional comma) "\302\303\304#\305	8?\205�\306	8S\306	8|\210	A@	A@T|)\207" [comma bounds bibtex-find-text-internal nil t 4 2] 4 (#$ . 140557) (list t)])
#@236 Kill the entire enclosing BibTeX field.
With prefix arg COPY-ONLY, copy the current field to `bibtex-field-kill-ring',
but do not actually kill it.  Optional arg COMMA is as in
`bibtex-enclosing-field'.  It is t for interactive calls.
(defalias 'bibtex-kill-field #[(&optional copy-only comma) "\212\306\307	!\211\310\n8)\n\211@@)b\210\311\312w\210\313\n!\312\314\n!E
B\211GV\2037�S
\233\312\241\210
\204C�\f|\210-\315\211\207" [case-fold-search comma bounds end beg bibtex-field-kill-ring t bibtex-enclosing-field 3 "," nil bibtex-name-in-field bibtex-text-in-field-bounds field bibtex-field-kill-ring-max bibtex-field-kill-ring-yank-pointer copy-only bibtex-last-kill-command] 5 (#$ . 140896) (list current-prefix-arg t)])
#@147 Copy the BibTeX field at point to `bibtex-field-kill-ring'.
Optional arg COMMA is as in `bibtex-enclosing-field'.  It is t for
interactive calls.
(defalias 'bibtex-copy-field-as-kill #[(&optional comma) "\301\302\"\207" [comma bibtex-kill-field t] 3 (#$ . 141647) (list t)])
#@149 Kill the entire enclosing BibTeX entry.
With prefix arg COPY-ONLY, copy the current entry to `bibtex-entry-kill-ring',
but do not actually kill it.
(defalias 'bibtex-kill-entry #[(&optional copy-only) "\212\306\307 \310 \210\311\n\312\313#\203�\314\224b\210`\315	\"\fB\211G
V\203,�
S\f\233\312\241\210\f\2048�	|\210,\316\211\207" [case-fold-search beg bibtex-any-entry-maybe-empty-head end bibtex-entry-kill-ring bibtex-entry-kill-ring-max t bibtex-beginning-of-entry bibtex-end-of-entry re-search-forward nil move 0 buffer-substring-no-properties entry bibtex-entry-kill-ring-yank-pointer copy-only bibtex-last-kill-command] 5 (#$ . 141930) "P"])
#@69 Copy the entire enclosing BibTeX entry to `bibtex-entry-kill-ring'.
(defalias 'bibtex-copy-entry-as-kill #[nil "\300\301!\207" [bibtex-kill-entry t] 2 (#$ . 142597) nil])
#@217 Reinsert the last BibTeX item.
More precisely, reinsert the field or entry killed or yanked most recently.
With argument N, reinsert the Nth most recently killed BibTeX item.
See also the command \[bibtex-yank-pop].
(defalias 'bibtex-yank #[(&optional n) "\302S\303\"\210\304\211\207" [n this-command bibtex-insert-kill t bibtex-yank] 3 (#$ . 142775) "*p"])
#@554 Replace just-yanked killed BibTeX item with a different item.
This command is allowed only immediately after a `bibtex-yank' or a
`bibtex-yank-pop'.  In this case, the region contains a reinserted
previously killed BibTeX item.  `bibtex-yank-pop' deletes that item
and inserts in its place a different killed BibTeX item.

With no argument, the previous kill is inserted.
With argument N, insert the Nth previous kill.
If N is negative, this is a more recent kill.

The sequence of kills wraps around, so that after the oldest one
comes the newest one.
(defalias 'bibtex-yank-pop #[(n) "\304=\204\n�\305\306!\210\304\307`\310\307!|\210\311\307\")\207" [last-command this-command inhibit-read-only n bibtex-yank error "Previous command was not a BibTeX yank" t mark bibtex-insert-kill] 3 (#$ . 143142) "*p"])
#@155 Delete the text part of the current field, replace with empty text.
Optional arg COMMA is as in `bibtex-enclosing-field'.  It is t for
interactive calls.
(defalias 'bibtex-empty-field #[(&optional comma) "\303!\211\211A@)b\210`	\304	8)|\210\305 \306 \261\210\307\310\311\n#)\207" [comma bounds bibtex-help-message bibtex-enclosing-field 2 bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-find-text t nil] 5 (#$ . 143961) (list t)])
#@200 Replace text of current field with the similar field in previous entry.
With arg, goes up ARG entries.  Repeated, goes up so many times.  May be
intermixed with \[bibtex-pop-next] (bibtex-pop-next).
(defalias 'bibtex-pop-previous #[(arg) "\301\302\"\207" [arg bibtex-pop previous] 3 (#$ . 144420) "p"])
#@216 Replace text of current field with the text of similar field in next entry.
With arg, goes down ARG entries.  Repeated, goes down so many times.  May be
intermixed with \[bibtex-pop-previous] (bibtex-pop-previous).
(defalias 'bibtex-pop-next #[(arg) "\301\302\"\207" [arg bibtex-pop next] 3 (#$ . 144731) "p"])
#@600 Finish editing the current BibTeX entry and clean it up.
Check that no required fields are empty and format entry dependent
on the value of `bibtex-entry-format'.
If the reference key of the entry is empty or a prefix argument is given,
calculate a new reference key.  (Note: this works only if fields in entry
begin on separate lines prior to calling `bibtex-clean-entry' or if
'realign is contained in `bibtex-entry-format'.)
Don't call `bibtex-clean-entry' on @Preamble entries.
At end of the cleaning process, the functions in
`bibtex-clean-entry-hook' are called with region narrowed to entry.
(defalias 'bibtex-clean-entry #[(&optional new-key called-by-reformat) "\306\307 \310!\206\f�\311\312!\313	\224T	\225\"\314\315!\206�\n)./0
\31612\3172\320\3141\320\314\306&*\306=\203D�\311\321!\210\202d�
\32212\3172\320\3141\320\314\306&*\306=\203a�\323\202d�\324 \2103\204m�\f\204\254�\325 4\204{�\f\326\230\203\214�
\323=\203\207�\327\f!\202\213�\330\331\f\"\212\332
\323=\203\231�5\202\233�6!\210\224\203\250�\224\225|\210\fc\210)7?\205\315\212\333 \210\3326\314\334#\203\303�\320\224b\210`)8/8{9\335:\336 );\314	:\203<\203\351�
\323=\204/8|\210\337;!?	`/\2129c\210)\202\340\f!\210`/U?\206\340\f\3148#		\203\311\341!\210\342 \314=\211>\203M>@=r=q\210\343\f?\"A\203C\311\344\345 \"\210)>A\211>\204**
\323=\203r\346@!\204\276\347\f@\"\204\276\f\350\351 \306\"B@B@\202\276\346?!\204\276\347\f?\"\211A\204\217\f\306B?B?\202\241AA\204\241\f\306B\352\fC?\"B?);A@\203\276\347;A@?\"\204\276;A@C?B?,-\205\315\212\214\353 \210\354\355!*-\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head empty bibtex-key-in-head key entry-type t bibtex-beginning-of-entry looking-at error "Not inside a BibTeX entry" buffer-substring-no-properties nil match-string-no-properties "preamble" compare-strings 0 "No clean up of @Preamble entries" "string" string bibtex-format-entry bibtex-generate-autokey "" bibtex-read-string-key bibtex-read-key "Key to use: " re-search-forward bibtex-end-of-entry move crossref bibtex-entry-index bibtex-prepare-new-entry bibtex-search-entry "New inserted entry yields duplicate key" bibtex-initialize assoc-string "Duplicate key in %s" buffer-file-name functionp assoc bibtex-text-in-string bibtex-parse-string delete bibtex-narrow-to-entry run-hooks bibtex-clean-entry-hook _ start case-fold-search str2 str1 new-key bibtex-autokey-edit-before-use bibtex-string-maybe-empty-head bibtex-entry-maybe-empty-head called-by-reformat end entry bibtex-maintain-sorted-entries index bibtex-sort-ignore-string-entries buffer --dolist-tail-- bibtex-reference-keys bibtex-strings found] 9 (#$ . 145050) "P"])
#@139 Fill BibTeX field delimited by BOUNDS.
If JUSTIFY is non-nil justify as well.
If optional arg MOVE is non-nil move point to end of field.
(defalias 'bibtex-fill-field-bounds #[(bounds justify &optional move) "\306\3078)!\n\204�\211A@)b\210\202d�\211@@)b\210\310u\210\311 \210\312\313!\210\310u\210\f\\j\210\314\315	\"\210\316\317!\210\320u\210
\203M�\321Z\\j\210\202P�\322c\210\310u\210\311 \210
\203`�\322c\210\202d�j\210\323\324 	\310`%\210\205u�	b)\207" [bounds end-field justify bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign copy-marker 3 nil bibtex-delete-whitespace open-line 1 re-search-forward "[ 	\n]*=" replace-match "=" -1 2 " " fill-region-as-paragraph line-beginning-position bibtex-text-indentation default-justification move] 7 (#$ . 147780)])
#@179 Like \[fill-paragraph], but fill current BibTeX field.
If optional prefix JUSTIFY is non-nil justify as well.
In BibTeX mode this function is bound to `fill-paragraph-function'.
(defalias 'bibtex-fill-field #[(&optional justify) "\303`!\304\305!\306\n\"\210	b*\207" [bounds pnt justify copy-marker bibtex-enclosing-field t bibtex-fill-field-bounds] 3 (#$ . 148591) "*P"])
#@310 Fill current BibTeX entry.
Realign entry, so that every field starts on a separate line.  Field
names appear in column `bibtex-field-indentation', field text starts in
column `bibtex-text-indentation' and continuation lines start here, too.
If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too.
(defalias 'bibtex-fill-entry #[nil "\305`!\305\306 !\307 \310\311 \210\fj\210\312	!\210\313 \211\203(�\314\315\211#\210\202�\316\317!\2031�\310u\210\320\310x\210\311 \210\321\322!\210\310u\210\fj\210b,\207" [bounds beg end pnt bibtex-entry-offset copy-marker bibtex-end-of-entry bibtex-beginning-of-entry nil bibtex-delete-whitespace bibtex-beginning-first-field bibtex-parse-field bibtex-fill-field-bounds t looking-at "," " 	\n" open-line 1] 4 (#$ . 148973) "*"])
#@72 Realign BibTeX entries such that they are separated by one blank line.
(defalias 'bibtex-realign #[nil "eb\210\303\304\305Q\306	!\203�\307\310!\210\311	\312\303#\203#�\307\313!\210\202�\314 \210\311\312\303#\205?�\315 \210\316 \210\317m\203=�\320\202>�\321!*\207" [bibtex-entry-type entry-type case-fold-search t "[ 	\n]*\$" "\$" looking-at replace-match "\\1" re-search-forward nil "\n\n\\1" beginning-of-line bibtex-end-of-entry bibtex-delete-whitespace open-line 1 2] 4 (#$ . 149762)])
#@367 Reformat all BibTeX entries in buffer or region.
Without prefix argument, reformatting is based on `bibtex-entry-format'.
With prefix argument, read options for reformatting from minibuffer.
With \[universal-argument] \[universal-argument] prefix argument, reuse previous answers (if any) again.
If mark is active reformat entries in region, if not in whole buffer.
(defalias 'bibtex-reformat #[(&optional read-options) "`\306	!\307\232\205�\n\206�	\2039�\f\203�\n\202N�\310\311\312\313\314
\203)�\315\202*�\316\317P\320B\321BBBB\"\211\202N�'\322=\203D�\323\202N�\324\325\326'B\211'\"'	\205a�\f\203\\�\202a�\327\330!\211(\322)\331*\214+\203u�\332 \333 }\210\326'>\203�\334 \210\335\336\337\"\210\340\341!\210\335\342!\210)(\203\247�\343\344!\210,\203\247�\335\345\337\"\210\346 \210\335\342!\210b.\207" [pnt read-options bibtex-reformat-previous-options bibtex-reformat-previous-reference-keys use-previous-options bibtex-comma-after-last-field prefix-numeric-value 16 mapcar #[(option) "\301@!\205	�A\207" [option y-or-n-p] 2] ("Realign entries (recommended)? " quote realign) ("Remove empty optional and alternative fields? " quote opts-or-alts) ("Remove delimiters around pure numerical fields? " quote numerical-fields) "Insert" "Remove" " comma at end of entry? " 'last-comma (("Replace double page dashes by single ones? " quote page-dashes) ("Delete whitespace at the beginning and end of fields? " quote whitespace) ("Inherit booktitle? " quote inherit-booktitle) ("Force delimiters? " quote delimiters) ("Unify case of entry types and field names? " quote unify-case) ("Enclose parts of field entries by braces? " quote braces) ("Replace parts of field entries by string constants? " quote strings)) t (realign opts-or-alts numerical-fields delimiters last-comma page-dashes unify-case inherit-booktitle whitespace braces strings) remove required-fields realign y-or-n-p "Generate new reference keys automatically? " nil region-beginning region-end bibtex-realign bibtex-progress-message "Formatting" 1 bibtex-map-entries #[(key beg end) "\301 \210\302\303\"\207" [reformat-reference-keys bibtex-progress-message bibtex-clean-entry t] 3] done kill-local-variable bibtex-reference-keys "Sorting" bibtex-sort-buffer bibtex-entry-format reformat-reference-keys bibtex-sort-ignore-string-entries bibtex-autokey-edit-before-use mark-active bibtex-maintain-sorted-entries] 7 (#$ . 150266) "*P"])
#@368 Make an alien BibTeX buffer fully usable by BibTeX mode.
If a file does not conform with all standards used by BibTeX mode,
some of the high-level features of BibTeX mode are not available.
This function tries to convert current buffer to conform with these standards.
With prefix argument READ-OPTIONS non-nil, read options for reformatting
entries from minibuffer.
(defalias 'bibtex-convert-alien #[(&optional read-options) "\304\305!\210\306\307!\210\310 \210\2037�\311=\204!�\242\312=\203'�A\204'�\313\211\2026�\242\312=\2031�A\313\314\315!\210\313\316 )\204C�\304\317!\207\304\320!\210\306\321!\210\322!\210db\210\304\323!\207" [transient-mark-mode mark-active bibtex-maintain-sorted-entries read-options message "Starting to validate buffer..." sit-for 1 bibtex-realign lambda only nil run-hooks deactivate-mark-hook bibtex-validate "Correct errors and call `bibtex-convert-alien' again" "Starting to reformat entries..." 2 bibtex-reformat "Buffer is now parsable.  Please save it."] 2 (#$ . 152698) "*P"])
#@429 Complete word fragment before point according to context.
If point is inside key or crossref field perform key completion based on
`bibtex-reference-keys'.  Inside a month field perform key completion
based on `bibtex-predefined-month-strings'.  Inside any other field
(including a String or Preamble definition) perform string completion
based on `bibtex-strings'.
An error is signaled if point is outside key or BibTeX field.
(defalias 'bibtex-complete #[nil "`\306\307\211\211\212\310\307\306\"\211\203j�\f\n\211A@)Y\203j�\f\n\311\n8)X\203j�\312\n\306\"\211\313%\314%\315\307
\315\307\306&*\306=\203I�\316\202f�	\317%\314%\315\307
\315\307\306&*\306=\203d�&\202f�\320 \202\371�\321 \210\322\306!\211\203\251�\f\n@A@Y\203\214�\f\311\n@8X\203\214�\323\202\371�\f\n\211A@)Y\203\371�\f\n\211AA@)X\203\371�\320 \202\371�\324 \211\203\315�\f\n\211A@)Y\203\371�\f\n\211AA@)X\203\371�\320 \202\371�\325'!\203\371�(\224\203\352�\f(\224Y\203\352�\f(\225X\204\367�(\224\204\371�\f\315\225U\203\371�\326)\326=\203\307\211)*\327\330 !)\202a\316=\203$\307*\331)\332\327\330 !!)\202a\323=\2038\307)\306*\327!)\202a\203[\306*\333\334\335\336\337\340\341DE\342BBBBB)\337\327!\")\202a\307)\343\344!-\207" [compl name bounds case-fold-search pnt str2 t nil bibtex-enclosing-field 2 bibtex-name-in-field "crossref" compare-strings 0 crossref-key "month" bibtex-strings bibtex-beginning-of-entry bibtex-parse-string string bibtex-parse-preamble looking-at key bibtex-complete-internal bibtex-global-key-alist #[(choice buffer mini-p base-size) "\304\305	\n#\210\306	!\210\307\207" [choose-completion-string-functions choice buffer base-size nil choose-completion-string bibtex-complete-crossref-cleanup t] 4] bibtex-complete-crossref-cleanup lambda (choice buffer mini-p base-size) (setq choose-completion-string-functions nil) (choose-completion-string choice buffer base-size) bibtex-complete-string-cleanup choice quote (t) error "Point outside key or BibTeX field" str1 bibtex-predefined-month-strings bibtex-entry-maybe-empty-head bibtex-key-in-head choose-completion-string-functions completion-ignore-case] 9 (#$ . 153729) nil])
#@62 Insert a new BibTeX @Article entry; see also `bibtex-entry'.
(defalias 'bibtex-Article #[nil "\300\301!\207" [bibtex-entry "Article"] 2 (#$ . 155916) "*"])
#@59 Insert a new BibTeX @Book entry; see also `bibtex-entry'.
(defalias 'bibtex-Book #[nil "\300\301!\207" [bibtex-entry "Book"] 2 (#$ . 156078) "*"])
#@62 Insert a new BibTeX @Booklet entry; see also `bibtex-entry'.
(defalias 'bibtex-Booklet #[nil "\300\301!\207" [bibtex-entry "Booklet"] 2 (#$ . 156231) "*"])
#@61 Insert a new BibTeX @InBook entry; see also `bibtex-entry'.
(defalias 'bibtex-InBook #[nil "\300\301!\207" [bibtex-entry "InBook"] 2 (#$ . 156393) "*"])
#@67 Insert a new BibTeX @InCollection entry; see also `bibtex-entry'.
(defalias 'bibtex-InCollection #[nil "\300\301!\207" [bibtex-entry "InCollection"] 2 (#$ . 156552) "*"])
#@68 Insert a new BibTeX @InProceedings entry; see also `bibtex-entry'.
(defalias 'bibtex-InProceedings #[nil "\300\301!\207" [bibtex-entry "InProceedings"] 2 (#$ . 156729) "*"])
#@61 Insert a new BibTeX @Manual entry; see also `bibtex-entry'.
(defalias 'bibtex-Manual #[nil "\300\301!\207" [bibtex-entry "Manual"] 2 (#$ . 156909) "*"])
#@68 Insert a new BibTeX @MastersThesis entry; see also `bibtex-entry'.
(defalias 'bibtex-MastersThesis #[nil "\300\301!\207" [bibtex-entry "MastersThesis"] 2 (#$ . 157068) "*"])
#@59 Insert a new BibTeX @Misc entry; see also `bibtex-entry'.
(defalias 'bibtex-Misc #[nil "\300\301!\207" [bibtex-entry "Misc"] 2 (#$ . 157248) "*"])
#@64 Insert a new BibTeX @PhdThesis entry; see also `bibtex-entry'.
(defalias 'bibtex-PhdThesis #[nil "\300\301!\207" [bibtex-entry "PhdThesis"] 2 (#$ . 157401) "*"])
#@66 Insert a new BibTeX @Proceedings entry; see also `bibtex-entry'.
(defalias 'bibtex-Proceedings #[nil "\300\301!\207" [bibtex-entry "Proceedings"] 2 (#$ . 157569) "*"])
#@65 Insert a new BibTeX @TechReport entry; see also `bibtex-entry'.
(defalias 'bibtex-TechReport #[nil "\300\301!\207" [bibtex-entry "TechReport"] 2 (#$ . 157743) "*"])
#@66 Insert a new BibTeX @Unpublished entry; see also `bibtex-entry'.
(defalias 'bibtex-Unpublished #[nil "\300\301!\207" [bibtex-entry "Unpublished"] 2 (#$ . 157914) "*"])
#@49 Insert a new BibTeX @String entry with key KEY.
(defalias 'bibtex-String #[(&optional key) "?\205�	\305\306\305\307E!\204�\310\311\"\210\312G!\203 �\305\fj\210\313\314 \261\210\2033�c\210\2025�`\315\316 \261\210\203A�`\317 \320 \321\261\210\nb*\207" [bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries endpos key bibtex-entry-offset nil bibtex-prepare-new-entry "String" error "Entry with key `%s' already exists" zerop "@String" bibtex-entry-left-delimiter " = " bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n"] 4 (#$ . 158088) (list (bibtex-read-string-key))])
#@38 Insert a new BibTeX @Preamble entry.
(defalias 'bibtex-Preamble #[nil "\302 \210j\210\303\304 \305 \261\210`\306 \307 \310\261\210	b)\207" [bibtex-entry-offset endpos bibtex-move-outside-of-entry "@Preamble" bibtex-entry-left-delimiter bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n"] 3 (#$ . 158731) "*"])
#@445 Browse a URL for the BibTeX entry at point.
Optional POS is the location of the BibTeX entry.
The URL is generated using the schemes defined in `bibtex-generate-url-list'
(see there).  If multiple schemes match for this entry, or the same scheme
matches more than once, use the one for which the first step's match is the
closest to POS.  The URL is passed to `browse-url' unless NO-BROWSE is t.
Return the URL or nil if none can be generated.
(defalias 'bibtex-url #[(&optional pos no-browse) "\204�`\212b\210\306 \210\212\307 )\212\310\311!)\311\312\211\211\211\211\211\211()*+,\313,\311\"\203N�\314\315\224\315\225#\315\224\316\315\224\315\225\"E\nB\312u\210\202-�\n\203\325�\317\n\320\"@\211A@b\210\321 \210\322\323!\210\324 -\325-!.\326-\311\"/01\327\330\331\n8!/\"\203\324�/\315\224\312O)(\204\324�1\211A1@\211\203\324�
\2112@@).34\3324\315\3123\315\312\311&*\311=\203\215�\327
\2112@A))\"\203\215�\311(
A\202\215�,(\20401(\2041\211A1@\211\203\333
\2112@@)+\311#A\211)\203\336�\327
\2112@A))\"\203\336�\311(
A\202\336�)(\203\317
\204+\334\315)\"\202\271
@;\2037
\211A@
G\3155656W\203\2465
85\315U\204\\\333	@+\311#A)\327	A@)\"\203\227\335\331	8!\203w\331	8)!\202\221\331	8\247\203\210\334\331	8)\"\202\221\336\331	8\311\312)$\fB\202\235\337\340)\"\2105T\2115\202@*\203\264\341\342\f\237#\202\271\341\343\f\237\"(t\203\305\344\345(\"\2107\204\317\346(!\210(\204\334t\203\334\344\347!\210(.\207" [pos step fl-match fmt obj scheme bibtex-beginning-of-entry bibtex-end-of-entry bibtex-parse-entry t nil bibtex-font-lock-url bibtex-dist 0 buffer-substring-no-properties sort #[(x y) "@	@W\207" [x y] 2] bibtex-beginning-of-field re-search-backward "," bibtex-parse-field bibtex-name-in-field bibtex-text-in-field-bounds string-match regexp-quote 2 compare-strings assoc-string match-string functionp replace-match error "Match failed: %s" apply format concat message "%s" browse-url "No URL known." url text case-fold-search fields-alist end bounds name content bibtex-generate-url-list lst x str2 str1 i --dotimes-limit-- no-browse] 11 (#$ . 159092) nil])
(provide 'bibtex)

${this.title}

Code Editor : bibtex.elc