| Current Path : /usr/share/emacs/24.3/lisp/textmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/textmodes/bibtex.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:47 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/bibtex.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\303\310\314&\210\315\316\317\320\321DD\322\306\303\323\324&\210\315\325\317\320\326DD\327\306\303\323\330&\210\315\331\317\320\332DD\333\306\303\323\334&\210\315\335\317\320\336DD\337\306\303\323\340&\210\315\341\317\320\342DD\343\306\303\323\344&\210\345\341\346\347#\210\315\350\317\320\351DD\352\306\303\323\353&\210\345\350\346\347#\210\315\354\317\320\355DD\356\306\303\323\357&\210\345\354\360\361#\210\315\362\317\320\363DD\364\306\303\323\365&\210\315\366\317\320\367DD\370\306\303\323\371&\210\315\372\317\320\373DD\374\306\303\323\324&\210\315\375\317\320\376DD\377\306\303\323\201@ &\210\345\375\360\201A #\210\315\201B \317\320\201C DD\201D \306\303\323\201E &\210\345\201B \360\201F #\210\315\201G \317\320\201H DD\201I \306\303\323\201J &\210\315\201K \317\320\201L DD\201M \306\303\323\201N &\210\315\201O \317\320\201P DD\201Q \306\303\323\201N &\210\315\201R \317\320\201S DD\201T \306\303\323\201N &\210\315\201U \317\320\201V DD\201W \306\303\323\201J &\210\201X \201Y \201Z \201[ \323\201\\ %\210\201] \201^ \201_ \304#\210\201` \211\203\271\211@\201^ N\203\262\201_ N\204\262\345\201_ \201^ N#\210A\266\202\202\220\210\201a \201^ \201_ \201b #\210\315\201_ \317\320\201c DD\201d \306\201e \201f \201b \323\201Y & \210\345\201_ \346\347#\210\315\201g \317\320\201h DD\201i \306\303\201f \201b \323\201Y & \210\345\201g \346\347#\210\201X \201j \201Z \201[ \323\201k %\210\315\201l \317\320\201m DD\201n \306\303\201f \201b \323\201j & \210\315\201o \317\320\201p DD\201q \306\303\201f \201b \323\201j & \210\315\201r \317\320\201s DD\201t \306\303\201f \201b \323\201u & \210\315\201v \317\320\201w DD\201x \306\303\201f \201b \201y \201z \323\201{ & \210\345\201v \360\201| #\210\315\201} \317\320\201~ DD\201 \306\303\201f \201b \323\201\200 & \210\315\201\201 \317\320\201\202 DD\201\203 \306\303\323\201\204 &\210\315\201\205 \317\320\201\206 DD\201\207 \306\303\323\324&\210\315\201\210 \317\320\201\211 DD\201\212 \306\303\323\201\213 &\210\315\201\214 \317\320\201\215 DD\201\216 \306\303\323\201\217 &\210\315\201\220 \317\320\201\221 DD\201\222 \306\303\323\201\223 &\210\315\201\224 \317\320\201\225 DD\201\226 \306\303\323\201\204 &\210\315\201\227 \317\320\201\230 DD\201\231 \306\303\323\201\232 &\210\315\201\233 \317\320\201\234 DD\201\235 \306\303\323\201\204 &\210\315\201\236 \317\320\201\237 DD\201\240 \306\303\201f \201b \323\201J & \210\315\201\241 \317\320\201\242 DD\201\243 \306\303\323\201J &\210\315\201\244 \317\320\201\245 DD\201\246 \306\312\323\201\204 &\210\315\201\247 \317\320\201\250 DD\201\251 \306\312\323\201\252 &\210\315\201\253 \317\320\201\254 DD\201\255 \306\312\323\201N &\210\315\201\256 \317\320\201\257 DD\201\260 \306\312\323\201\204 &\210\315\201\261 \317\320\201\262 DD\201\263 \306\312\323\201J &\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-" custom-declare-variable bibtex-mode-hook funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of functions to call on entry to BibTeX mode." :type hook bibtex-field-delimiters #[0 "\300\207" [braces] 1 "\n\n(fn)"] "Type of field delimiters. Allowed values are `braces' or `double-quotes'." (choice (const braces) (const double-quotes)) bibtex-entry-delimiters #[0 "\300\207" [braces] 1 "\n\n(fn)"] "Type of entry delimiters. Allowed values are `braces' or `parentheses'." (choice (const braces) (const parentheses)) bibtex-include-OPTcrossref #[0 "\300\207" [("InProceedings" "InCollection")] 1 "\n\n(fn)"] "List of BibTeX entries that get an OPTcrossref field." (repeat string) bibtex-include-OPTkey #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, all newly created entries get an OPTkey field.\nIf this is a string, use it as the initial field text.\nIf this is a function, call it to generate the initial field text." (choice (const :tag "None" nil) (string :tag "Initial text") (function :tag "Initialize Function") (const :tag "Default" t)) put risky-local-variable t bibtex-user-optional-fields #[0 "\300\207" [(("annote" "Personal annotation (ignored)"))] 1 "\n\n(fn)"] "List of optional fields the user wants to have always present.\nEntries should be of the same form as the OPTIONAL list\nin `bibtex-BibTeX-entry-alist' (which see)." (repeat (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" (const nil) string function)))) bibtex-entry-format #[0 "\300\207" [(opts-or-alts required-fields numerical-fields)] 1 "\n\n(fn)"] "Type of formatting performed by `bibtex-clean-entry'.\nIt may be t, nil, or a list of symbols out of the following:\nopts-or-alts Delete empty optional and alternative fields and\n remove OPT and ALT prefixes from used fields.\nrequired-fields Signal an error if a required field is missing.\nnumerical-fields Delete delimiters around numeral fields.\npage-dashes Change double dashes in page field to single dash\n (for scribe compatibility).\nwhitespace Delete whitespace at the beginning and end of fields.\ninherit-booktitle If entry contains a crossref field and the booktitle\n field is empty, set the booktitle field to the content\n of the title field of the crossreferenced entry.\nrealign Realign entries, so that field texts and perhaps equal\n signs (depending on the value of\n `bibtex-align-at-equal-sign') begin in the same column.\n Also fill fields.\nlast-comma Add or delete comma on end of last field in entry,\n according to value of `bibtex-comma-after-last-field'.\ndelimiters Change delimiters according to variables\n `bibtex-field-delimiters' and `bibtex-entry-delimiters'.\nunify-case Change case of entry types and field names.\nbraces Enclose parts of field entries by braces according to\n `bibtex-field-braces-alist'.\nstrings Replace parts of field entries by string constants\n according to `bibtex-field-strings-alist'.\nsort-fields Sort fields to match the field order in\n `bibtex-BibTeX-entry-alist'.\n\nThe value t means do all of the above formatting actions.\nThe value nil means do no formatting at all." (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) (const sort-fields))) safe-local-variable #[257 "\211\300=\206' \300:\203 \211A\262@\301>\204 \302\262\202 \203$ \302\262\211\262\207" [t (opts-or-alts required-fields numerical-fields page-dashes whitespace inherit-booktitle realign last-comma delimiters unify-case braces strings sort-fields) nil] 4 "\n\n(fn X)"] bibtex-field-braces-alist #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Alist of field regexps that \\[bibtex-clean-entry] encloses by braces.\nEach element has the form (FIELDS REGEXP), where FIELDS is a list\nof BibTeX field names and REGEXP is a regexp.\nSpace characters in REGEXP will be replaced by \"[ \\t\\n]+\"." (repeat (list (repeat (string :tag "field name")) (choice (regexp :tag "regexp") (sexp :tag "sexp")))) bibtex-field-strings-alist #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Alist of regexps that \\[bibtex-clean-entry] replaces by string constants.\nEach element has the form (FIELDS REGEXP TO-STR), where FIELDS is a list\nof BibTeX field names. In FIELDS search for REGEXP, which are replaced\nby the BibTeX string constant TO-STR.\nSpace characters in REGEXP will be replaced by \"[ \\t\\n]+\"." (repeat (list (repeat (string :tag "field name")) (regexp :tag "From regexp") (regexp :tag "To string constant"))) bibtex-clean-entry-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of functions to call when entry has been cleaned.\nFunctions are called with point inside the cleaned entry, and the buffer\nnarrowed to just the entry." bibtex-maintain-sorted-entries #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, BibTeX mode maintains all entries in sorted order.\nAllowed non-nil values are:\nplain or t All entries are sorted alphabetically.\ncrossref All entries are sorted alphabetically unless an entry has a\n crossref field. These crossrefed entries are placed in\n alphabetical order immediately preceding the main entry.\nentry-class The entries are divided into classes according to their\n entry type, see `bibtex-sort-entry-class'. Within each class\n the entries are sorted alphabetically.\nSee also `bibtex-sort-ignore-string-entries'." (choice (const nil) (const plain) (const crossref) (const entry-class) (const t)) #[257 "\211\300>\207" [(nil t plain crossref entry-class)] 3 "\n\n(fn A)"] bibtex-sort-entry-class #[0 "\300\207" [(("String") (catch-all) ("Book" "Proceedings"))] 1 "\n\n(fn)"] "List of classes of BibTeX entry types, used for sorting entries.\nIf value of `bibtex-maintain-sorted-entries' is `entry-class'\nentries are ordered according to the classes they belong to. Each\nclass contains a list of entry types. An entry `catch-all' applies\nto all entries not explicitly mentioned." (repeat (choice :tag "Class" (const :tag "catch-all" (catch-all)) (repeat :tag "Entry type" string))) #[257 "\300:\2034 \211A\262@\211:\203) \211A\262@\211;\204% \211\301=\204% \302\262\210\202\f \211\2030 \302\262\210\202 \203; \302\262\211\207" [t catch-all nil] 6 "\n\n(fn X)"] bibtex-sort-ignore-string-entries #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, BibTeX @String entries are not sort-significant.\nThat means they are ignored when determining ordering of the buffer\n(e.g., sorting, locating alphabetical position for new entries, etc.)." boolean bibtex-field-kill-ring-max #[0 "\300\207" [20] 1 "\n\n(fn)"] "Max length of `bibtex-field-kill-ring' before discarding oldest elements." integer bibtex-entry-kill-ring-max #[0 "\300\207" [20] 1 "\n\n(fn)"] "Max length of `bibtex-entry-kill-ring' before discarding oldest elements." bibtex-parse-keys-timeout #[0 "\300\207" [60] 1 "\n\n(fn)"] "Time interval in seconds for parsing BibTeX buffers during idle time.\nParsing initializes `bibtex-reference-keys' and `bibtex-strings'." bibtex-parse-keys-fast #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, use fast but simplified algorithm for parsing BibTeX keys.\nIf parsing fails, try to set this variable to nil." define-widget bibtex-entry-alist lazy "Format of `bibtex-BibTeX-entry-alist' and friends." (repeat (group (string :tag "Entry type") (string :tag "Documentation") (repeat :tag "Required fields" (group (string :tag "Field") (option (choice :tag "Comment" :value nil (const nil) string)) (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" :value nil (const nil) integer)))) (repeat :tag "Crossref fields" (group (string :tag "Field") (option (choice :tag "Comment" :value nil (const nil) string)) (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" :value nil (const nil) integer)))) (repeat :tag "Optional fields" (group (string :tag "Field") (option (choice :tag "Comment" :value nil (const nil) string)) (option (choice :tag "Init" :value nil (const nil) string function)))))) defvaralias bibtex-entry-field-alist bibtex-BibTeX-entry-alist (saved-value saved-variable-comment) make-obsolete-variable "24.1" #[0 "\300\207" [(("Article" "Article in Journal" (("author") ("title" "Title of the article (BibTeX converts it to lowercase)")) (("journal") ("year")) (("volume" "Volume of the journal") ("number" "Number of the journal (only allowed if entry contains volume)") ("pages" "Pages in the journal") ("month") ("note"))) ("InProceedings" "Article in Conference Proceedings" (("author") ("title" "Title of the article in proceedings (BibTeX converts it to lowercase)")) (("booktitle" "Name of the conference proceedings") ("year")) (("editor") ("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") ("month") ("address") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note"))) ("InCollection" "Article in a Collection" (("author") ("title" "Title of the article in book (BibTeX converts it to lowercase)") ("booktitle" "Name of the book")) (("publisher") ("year")) (("editor") ("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") ("edition" "Edition of the book as a capitalized English word") ("month") ("address") ("note"))) ("InBook" "Chapter or Pages in a Book" (("author" nil nil 0) ("editor" nil nil 0) ("title" "Title of the book") ("chapter" "Chapter in the book")) (("publisher") ("year")) (("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") ("edition" "Edition of the book as a capitalized English word") ("month") ("pages" "Pages in the book") ("note"))) ("Proceedings" "Conference Proceedings" (("title" "Title of the conference proceedings") ("year")) nil (("booktitle" "Title of the proceedings for cross references") ("editor") ("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") ("month") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note"))) ("Book" "Book" (("author" nil nil 0) ("editor" nil nil 0) ("title" "Title of the book")) (("publisher") ("year")) (("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") ("edition" "Edition of the book as a capitalized English word") ("month") ("note"))) ("Booklet" "Booklet (Bound, but no Publisher)" (("title" "Title of the booklet (BibTeX converts it to lowercase)")) nil (("author") ("howpublished" "The way in which the booklet was published") ("address") ("month") ("year") ("note"))) ("PhdThesis" "PhD. Thesis" (("author") ("title" "Title of the PhD. thesis") ("school" "School where the PhD. thesis was written") ("year")) nil (("type" "Type of the PhD. thesis") ("address" "Address of the school (if not part of field \"school\") or country") ("month") ("note"))) ("MastersThesis" "Master's Thesis" (("author") ("title" "Title of the master's thesis (BibTeX converts it to lowercase)") ("school" "School where the master's thesis was written") ("year")) nil (("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") ("note"))) ("TechReport" "Technical Report" (("author") ("title" "Title of the technical report (BibTeX converts it to lowercase)") ("institution" "Sponsoring institution of the report") ("year")) nil (("type" "Type of the report (if other than \"technical report\")") ("number" "Number of the technical report") ("address") ("month") ("note"))) ("Manual" "Technical Manual" (("title" "Title of the manual")) nil (("author") ("organization" "Publishing organization of the manual") ("address") ("edition" "Edition of the manual as a capitalized English word") ("month") ("year") ("note"))) ("Unpublished" "Unpublished" (("author") ("title" "Title of the unpublished work (BibTeX converts it to lowercase)") ("note")) nil (("month") ("year"))) ("Misc" "Miscellaneous" nil nil (("author") ("title" "Title of the work (BibTeX converts it to lowercase)") ("howpublished" "The way in which the work was published") ("month") ("year") ("note"))))] 1 "\n\n(fn)"] "Alist of BibTeX entry types and their associated fields.\nElements are lists (ENTRY-TYPE DOC REQUIRED CROSSREF OPTIONAL).\nENTRY-TYPE is the type of a BibTeX entry.\nDOC is a brief doc string used for menus. If nil ENTRY-TYPE is used.\nREQUIRED is a list of required fields.\nCROSSREF is a list of fields that are optional if a crossref field\nis present; but these fields are required otherwise.\nOPTIONAL is a list of optional fields.\n\nEach element of these lists is a list of the form\n (FIELD COMMENT INIT ALTERNATIVE).\nCOMMENT, INIT, and ALTERNATIVE are optional.\n\nFIELD is the name of the field.\nCOMMENT is the comment string that appears in the echo area.\nIf COMMENT is nil use `bibtex-BibTeX-field-alist' if possible.\nINIT is either the initial content of the field or a function,\nwhich is called to determine the initial content of the field.\nALTERNATIVE if non-nil is an integer that numbers sets of\nalternatives, starting from zero." BibTeX :version bibtex-biblatex-entry-alist #[0 "\300\207" [(("Article" "Article in Journal" (("author") ("title") ("journaltitle") ("year" nil nil 0) ("date" nil nil 0)) nil (("translator") ("annotator") ("commentator") ("subtitle") ("titleaddon") ("editor") ("editora") ("editorb") ("editorc") ("journalsubtitle") ("issuetitle") ("issuesubtitle") ("language") ("origlanguage") ("series") ("volume") ("number") ("eid") ("issue") ("month") ("pages") ("version") ("note") ("issn") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Book" "Single-Volume Book" (("author") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editor") ("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("MVBook" "Multi-Volume Book" (("author") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editor") ("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("language") ("origlanguage") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("InBook" "Chapter or Pages in a Book" (("title") ("year" nil nil 0) ("date" nil nil 0)) (("author") ("booktitle")) (("bookauthor") ("editor") ("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("BookInBook" "Book in Collection" (("title") ("year" nil nil 0) ("date" nil nil 0)) (("author") ("booktitle")) (("bookauthor") ("editor") ("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("SuppBook" "Supplemental Material in a Book" (("title") ("year" nil nil 0) ("date" nil nil 0)) (("author") ("booktitle")) (("bookauthor") ("editor") ("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Booklet" "Booklet (Bound, but no Publisher)" (("author" nil nil 0) ("editor" nil nil 0) ("title") ("year" nil nil 1) ("date" nil nil 1)) nil (("subtitle") ("titleaddon") ("language") ("howpublished") ("type") ("note") ("location") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Collection" "Single-Volume Collection" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("MVCollection" "Multi-Volume Collection" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("language") ("origlanguage") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("InCollection" "Article in a Collection" (("author") ("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) (("booktitle")) (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("SuppCollection" "Supplemental Material in a Collection" (("author") ("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) (("booktitle")) (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Manual" "Technical Manual" (("author" nil nil 0) ("editor" nil nil 0) ("title") ("year" nil nil 1) ("date" nil nil 1)) nil (("subtitle") ("titleaddon") ("language") ("edition") ("type") ("series") ("number") ("version") ("note") ("organization") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Misc" "Miscellaneous" (("author" nil nil 0) ("editor" nil nil 0) ("title") ("year" nil nil 1) ("date" nil nil 1)) nil (("subtitle") ("titleaddon") ("language") ("howpublished") ("type") ("version") ("note") ("organization") ("location") ("date") ("month") ("year") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Online" "Online Resource" (("author" nil nil 0) ("editor" nil nil 0) ("title") ("year" nil nil 1) ("date" nil nil 1) ("url")) nil (("subtitle") ("titleaddon") ("language") ("version") ("note") ("organization") ("date") ("month") ("year") ("addendum") ("pubstate") ("urldate"))) ("Patent" "Patent" (("author") ("title") ("number") ("year" nil nil 0) ("date" nil nil 0)) nil (("holder") ("subtitle") ("titleaddon") ("type") ("version") ("location") ("note") ("date") ("month") ("year") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Periodical" "Complete Issue of a Periodical" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editora") ("editorb") ("editorc") ("subtitle") ("issuetitle") ("issuesubtitle") ("language") ("series") ("volume") ("number") ("issue") ("date") ("month") ("year") ("note") ("issn") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("SuppPeriodical" "Supplemental Material in a Periodical" (("author") ("title") ("journaltitle") ("year" nil nil 0) ("date" nil nil 0)) nil (("translator") ("annotator") ("commentator") ("subtitle") ("titleaddon") ("editor") ("editora") ("editorb") ("editorc") ("journalsubtitle") ("issuetitle") ("issuesubtitle") ("language") ("origlanguage") ("series") ("volume") ("number") ("eid") ("issue") ("month") ("pages") ("version") ("note") ("issn") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Proceedings" "Single-Volume Conference Proceedings" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("eventtitle") ("eventdate") ("venue") ("language") ("volume") ("part") ("volumes") ("series") ("number") ("note") ("organization") ("publisher") ("location") ("month") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("MVProceedings" "Multi-Volume Conference Proceedings" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("subtitle") ("titleaddon") ("eventtitle") ("eventdate") ("venue") ("language") ("volumes") ("series") ("number") ("note") ("organization") ("publisher") ("location") ("month") ("isbn") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("InProceedings" "Article in Conference Proceedings" (("author") ("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) (("booktitle")) (("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("eventtitle") ("eventdate") ("venue") ("language") ("volume") ("part") ("volumes") ("series") ("number") ("note") ("organization") ("publisher") ("location") ("month") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Reference" "Single-Volume Work of Reference" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("MVReference" "Multi-Volume Work of Reference" (("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("language") ("origlanguage") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("InReference" "Article in a Work of Reference" (("author") ("editor") ("title") ("year" nil nil 0) ("date" nil nil 0)) (("booktitle")) (("editora") ("editorb") ("editorc") ("translator") ("annotator") ("commentator") ("introduction") ("foreword") ("afterword") ("subtitle") ("titleaddon") ("maintitle") ("mainsubtitle") ("maintitleaddon") ("booksubtitle") ("booktitleaddon") ("language") ("origlanguage") ("volume") ("part") ("edition") ("volumes") ("series") ("number") ("note") ("publisher") ("location") ("isbn") ("chapter") ("pages") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Report" "Technical or Research Report" (("author") ("title") ("type") ("institution") ("year" nil nil 0) ("date" nil nil 0)) nil (("subtitle") ("titleaddon") ("language") ("number") ("version") ("note") ("location") ("month") ("isrn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Thesis" "PhD. or Master's Thesis" (("author") ("title") ("type") ("institution") ("year" nil nil 0) ("date" nil nil 0)) nil (("subtitle") ("titleaddon") ("language") ("note") ("location") ("month") ("isbn") ("chapter") ("pages") ("pagetotal") ("addendum") ("pubstate") ("doi") ("eprint") ("eprintclass") ("eprinttype") ("url") ("urldate"))) ("Unpublished" "Unpublished" (("author") ("title") ("year" nil nil 0) ("date" nil nil 0)) nil (("subtitle") ("titleaddon") ("language") ("howpublished") ("note") ("location") ("isbn") ("date") ("month") ("year") ("addendum") ("pubstate") ("url") ("urldate"))))] 1 "\n\n(fn)"] "Alist of biblatex entry types and their associated fields.\nIt has the same format as `bibtex-BibTeX-entry-alist'." bibtex-field-alist (repeat (group (string :tag "Field type") (string :tag "Comment"))) bibtex-BibTeX-field-alist #[0 "\300\207" [(("author" "Author1 [and Author2 ...] [and others]") ("editor" "Editor1 [and Editor2 ...] [and others]") ("journal" "Name of the journal (use string, remove braces)") ("year" "Year of publication") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem") ("publisher" "Publishing company") ("address" "Address of the publisher"))] 1 "\n\n(fn)"] "Alist of BibTeX fields.\nEach element is a list (FIELD COMMENT). COMMENT is used as a default\nif `bibtex-BibTeX-entry-alist' does not define a comment for FIELD." bibtex-biblatex-field-alist #[0 "\300\207" [(("abstract" "Abstract of the work") ("addendum" "Miscellaneous bibliographic data") ("afterword" "Author(s) of an afterword to the work") ("annotation" "Annotation") ("annotator" "Author(s) of annotations to the work") ("author" "Author(s) of the title") ("bookauthor" "Author(s) of the booktitle.") ("bookpagination" "Pagination scheme of the enclosing work") ("booksubtitle" "Subtitle related to the booktitle") ("booktitle" "Title of the book") ("booktitleaddon" "Annex to the booktitle") ("chapter" "Chapter, section, or any other unit of a work") ("commentator" "Author(s) of a commentary to the work") ("date" "Publication date") ("doi" "Digital Object Identifier") ("edition" "Edition of a printed publication") ("editor" "Editor(s) of the title, booktitle, or maintitle") ("editora" "Secondary editor") ("editorb" "Secondary editor") ("editorc" "Secondary editor") ("editortype" "Type of editorial role performed by the editor") ("editoratype" "Type of editorial role performed by editora") ("editorbtype" "Type of editorial role performed by editorb") ("editorctype" "Type of editorial role performed by editorc") ("eid" "Electronic identifier of an article") ("eprint" "Electronic identifier of an online publication") ("eprintclass" "Additional information related to the eprinttype") ("eprinttype" "Type of eprint identifier") ("eventdate" "Date of a conference or some other event") ("eventtitle" "Title of a conference or some other event") ("file" "Local link to an electronic version of the work") ("foreword" "Author(s) of a foreword to the work") ("holder" "Holder(s) of a patent") ("howpublished" "Publication notice for unusual publications") ("indextitle" "Title to use for indexing instead of the regular title") ("institution" "Name of a university or some other institution") ("introduction" "Author(s) of an introduction to the work") ("isan" "International Standard Audiovisual Number of an audiovisual work") ("isbn" "International Standard Book Number of a book.") ("ismn" "International Standard Music Number for printed music") ("isrn" "International Standard Technical Report Number") ("issn" "International Standard Serial Number of a periodical.") ("issue" "Issue of a journal") ("issuesubtitle" "Subtitle of a specific issue of a journal or other periodical.") ("issuetitle" "Title of a specific issue of a journal or other periodical.") ("iswc" "International Standard Work Code of a musical work") ("journalsubtitle" "Subtitle of a journal, a newspaper, or some other periodical.") ("journaltitle" "Name of a journal, a newspaper, or some other periodical.") ("label" "Substitute for the regular label to be used by the citation style") ("language" "Language(s) of the work") ("library" "Library name and a call number") ("location" "Place(s) of publication") ("mainsubtitle" "Subtitle related to the maintitle") ("maintitle" "Main title of a multi-volume book, such as Collected Works") ("maintitleaddon" "Annex to the maintitle") ("month" "Publication month") ("nameaddon" "Addon to be printed immediately after the author name") ("note" "Miscellaneous bibliographic data") ("number" "Number of a journal or the volume/number of a book in a series") ("organization" "Organization(s) that published a work") ("origdate" "Publication date of the original edition") ("origlanguage" "Original publication language of a translated edition") ("origlocation" "Location of the original edition") ("origpublisher" "Publisher of the original edition") ("origtitle" "Title of the original work") ("pages" "Page number(s) or page range(s)") ("pagetotal" "Total number of pages of the work.") ("pagination" "Pagination of the work") ("part" "Number of a partial volume") ("publisher" "Name(s) of the publisher(s)") ("pubstate" "Publication state of the work, e. g.,'in press'") ("reprinttitle" "Title of a reprint of the work") ("series" "Name of a publication series") ("shortauthor" "Author(s) of the work, given in an abbreviated form") ("shorteditor" "Editor(s) of the work, given in an abbreviated form") ("shortjournal" "Short version or an acronym of the journal title") ("shortseries" "Short version or an acronym of the series field") ("shorttitle" "Title in an abridged form") ("subtitle" "Subtitle of the work") ("title" "Title of the work") ("titleaddon" "Annex to the title") ("translator" "Translator(s) of the work") ("type" "Type of a manual, patent, report, or thesis") ("url" " URL of an online publication.") ("urldate" "Access date of the address specified in the url field") ("venue" "Location of a conference, a symposium, or some other event") ("version" "Revision number of a piece of software, a manual, etc.") ("volume" "Volume of a multi-volume book or a periodical") ("volumes" "Total number of volumes of a multi-volume work") ("year" "Year of publication"))] 1 "\n\n(fn)"] "Alist of biblatex fields.\nIt has the same format as `bibtex-BibTeX-entry-alist'." bibtex-dialect-list #[0 "\300\207" [(BibTeX biblatex)] 1 "\n\n(fn)"] "List of BibTeX dialects known to BibTeX mode.\nFor each DIALECT (a symbol) a variable bibtex-DIALECT-entry-alist defines\nthe allowed entries and bibtex-DIALECT-field-alist defines known field types.\nPredefined dialects include BibTeX and biblatex." (repeat (symbol :tag "Dialect")) bibtex-dialect #[0 "\300\207" [BibTeX] 1 "\n\n(fn)"] "Current BibTeX dialect. For allowed values see `bibtex-dialect-list'.\nTo interactively change the dialect use the command `bibtex-set-dialect'." :set (lambda (symbol value) (set-default symbol value) (if (fboundp 'bibtex-set-dialect) (bibtex-set-dialect value))) (choice (const BibTeX) (const biblatex) (symbol :tag "Custom")) symbolp bibtex-no-opt-remove-re #[0 "\300\207" ["\\`option"] 1 "\\`option\n\n(fn)"] "If a field name matches this regexp, the prefix OPT is not removed.\nIf nil prefix OPT is always removed" (choice (regexp) (const nil)) bibtex-comment-start #[0 "\300\207" ["@Comment"] 1 "@Comment\n\n(fn)"] "String starting a BibTeX comment." string bibtex-add-entry-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of functions to call when BibTeX entry has been inserted." bibtex-predefined-month-strings #[0 "\300\207" [(("jan" . "January") ("feb" . "February") ("mar" . "March") ("apr" . "April") ("may" . "May") ("jun" . "June") ("jul" . "July") ("aug" . "August") ("sep" . "September") ("oct" . "October") ("nov" . "November") ("dec" . "December"))] 1 "\n\n(fn)"] "Alist of month string definitions used in the BibTeX style files.\nEach element is a pair of strings (ABBREVIATION . EXPANSION)." (repeat (cons (string :tag "Month abbreviation") (string :tag "Month expansion"))) bibtex-predefined-strings #[0 "\301\302\"\207" [bibtex-predefined-month-strings append (("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"))] 3 "\n\n(fn)"] "Alist of string definitions used in the BibTeX style files.\nEach element is a pair of strings (ABBREVIATION . EXPANSION)." (repeat (cons (string :tag "String") (string :tag "String expansion"))) bibtex-string-files #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of BibTeX files containing string definitions.\nList elements can be absolute file names or file names relative\nto the directories specified in `bibtex-string-file-path'." (repeat file) bibtex-string-file-path #[0 "\300\301!\207" [getenv "BIBINPUTS"] 2 "\n\n(fn)"] "Colon-separated list of paths to search for `bibtex-string-files'." bibtex-files #[0 "\300\207" [nil] 1 "\n\n(fn)"] "List of BibTeX files that are searched for entry keys.\nList elements can be absolute file names or file names relative to the\ndirectories specified in `bibtex-file-path'. If an element is a directory,\ncheck all BibTeX files in this directory. If an element is the symbol\n`bibtex-file-path', check all BibTeX files in `bibtex-file-path'.\nSee also `bibtex-search-entry-globally'." (repeat (choice (const :tag "bibtex-file-path" bibtex-file-path) directory file)) bibtex-file-path #[0 "\300\301!\207" [getenv "BIBINPUTS"] 2 "\n\n(fn)"] "Colon separated list of paths to search for `bibtex-files'." bibtex-search-entry-globally #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, interactive calls of `bibtex-search-entry' search globally.\nA global search includes all files in `bibtex-files'." bibtex-help-message #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil print help messages in the echo area on entering a new field." bibtex-autokey-prefix-string #[0 "\300\207" [#1=""] 1 "\n\n(fn)"] "String prefix for automatically generated reference keys.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-names #[0 "\300\207" [1] 1 "\n\n(fn)"] "Number of names to use for the automatically generated reference key.\nPossibly more names are used according to `bibtex-autokey-names-stretch'.\nIf this variable is nil, all names are used.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "All" infty) integer) bibtex-autokey-names-stretch #[0 "\300\207" [0] 1 "\n\n(fn)"] "Number of names that can additionally be used for reference keys.\nThese names are used only, if all names are used then.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-additional-names #[0 "\300\207" [#1#] 1 "\n\n(fn)"] "String to append to the generated key if not all names could be used.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-expand-strings #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, expand strings when extracting the content of a BibTeX field.\nSee `bibtex-generate-autokey' for details."] 12)
#@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#) ("\\\\-" . #1#) ("\\\\?[ \n]+\\|~" . " ")) (#$ . 42168))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\316\312\317\320#\210\321\322\312\"\210\300\323\302\303\324DD\325\306\307\310\326&\210\300\327\302\303\330DD\331\306\307\310\332&\210\300\333\302\303\334DD\335\306\307\310\336&\210\300\337\302\303\340DD\341\306\307\310\342&\210\300\343\302\303\344DD\345\306\307\310\346&\210\300\347\302\303\350DD\351\306\307\310\352&\210\300\353\302\303\354DD\355\306\307\310\336&\210\300\356\302\303\357DD\360\306\307\310\361&\210\300\362\302\303\363DD\364\306\307\310\365&\210\321\366\362\"\210\300\367\302\303\370DD\371\306\307\310\372&\210\300\373\302\303\374DD\375\306\307\310\376&\210\300\377\302\303\201@ DD\201A \306\307\310\201B &\210\300\201C \302\303\201D DD\201E \306\307\310\332&\210\300\201F \302\303\201G DD\201H \306\307\310\332&\210\300\201I \302\303\201J DD\201K \306\307\310\332&\210\300\201L \302\303\201M DD\201N \306\307\310\342&\210\300\201O \302\303\201P DD\201Q \306\307\310\201R &\210\300\201S \302\303\201T DD\201U \306\201V \310\336&\210\300\201W \302\303\201X DD\201Y \306\201V \310\336&\210\300\201Z \302\303\201[ DD\201\\ \306\201V \310\336&\210\300\201] \302\303\201^ DD\201_ \306\201V \310\336&\210\300\201` \302\303\201a DD\201b \306\201V \310\342&\210\300\201c \302\303\201d DD\201e \306\201V \310\342&\210\300\201f \302\303\201g DD\201h \306\201V \310\342&\210\300\201i \302\303\201j DD\201k \306\201V \310\201l &\210\300\201m \302\303\201n DD\201o \306\201V \310\201p &\210\300\201q \302\303\201r DD\201s \306\201V \310\201t &\210\316\201q \201u \201v #\210\300\201w \302\303\201x DD\201y \306\201V \310\201z \201{ \201| & \210\300\201} \302\303\201~ DD\201 \306\201V \310\342&\210\300\201\200 \302\303\201\201 DD\201\202 \306\201V \201{ \201\203 \310\332& \207" [custom-declare-variable bibtex-autokey-name-change-strings funcall function #[0 "\207" [bibtex-autokey-transcriptions] 1 "\n\n(fn)"] "Alist of (OLD-REGEXP . NEW-STRING) pairs.\nAny part of a name matching OLD-REGEXP is replaced by NEW-STRING.\nCase is significant in OLD-REGEXP. All regexps are tried in the\norder in which they appear in the list.\nSee `bibtex-generate-autokey' for details." :group bibtex-autokey :type (repeat (cons (regexp :tag "Old") (string :tag "New"))) bibtex-autokey-name-case-convert-function #[0 "\300\207" [downcase] 1 "\n\n(fn)"] "Function called for each name to perform case conversion.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function")) put safe-local-variable #[257 "\211\300>\207" [(upcase downcase capitalize identity)] 3 "\n\n(fn X)"] defvaralias bibtex-autokey-name-case-convert bibtex-autokey-name-length #[0 "\300\207" [infty] 1 "\n\n(fn)"] "Number of characters from name to incorporate into key.\nIf this is set to anything but a number, all characters are used.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "All" infty) integer) bibtex-autokey-name-separator #[0 "\300\207" [#1=""] 1 "\n\n(fn)"] "String that comes between any two names in the key.\nSee `bibtex-generate-autokey' for details." string bibtex-autokey-year-length #[0 "\300\207" [2] 1 "\n\n(fn)"] "Number of rightmost digits from the year field to incorporate into key.\nSee `bibtex-generate-autokey' for details." integer bibtex-autokey-use-crossref #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil use fields from crossreferenced entry if necessary.\nIf this variable is non-nil and some field has no entry, but a\nvalid crossref entry, the field from the crossreferenced entry is used.\nSee `bibtex-generate-autokey' for details." boolean bibtex-autokey-titlewords #[0 "\300\207" [5] 1 "\n\n(fn)"] "Number of title words to use for the automatically generated reference key.\nIf this is set to anything but a number, all title words are used.\nPossibly more words from the title are used according to\n`bibtex-autokey-titlewords-stretch'.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "All" infty) integer) bibtex-autokey-title-terminators #[0 "\300\207" ["[.!?:;]\\|--"] 1 "[.!?:;]\\|--\n\n(fn)"] "Regexp defining the termination of the main part of the title.\nCase of the regexps is ignored. See `bibtex-generate-autokey' for details." regexp bibtex-autokey-titlewords-stretch #[0 "\300\207" [2] 1 "\n\n(fn)"] "Number of words that can additionally be used from the title.\nThese words are used only, if a sentence from the title can be ended then.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-titleword-ignore #[0 "\300\207" [("A" "An" "On" "The" "Eine?" "Der" "Die" "Das" "[^[:upper:]].*" ".*[^[:upper:][:lower:]0-9].*")] 1 "\n\n(fn)"] "Determines words from the title that are not to be used in the key.\nEach item of the list is a regexp. If a word of the title matches a\nregexp from that list, it is not included in the title part of the key.\nCase is significant. See `bibtex-generate-autokey' for details." (repeat regexp) bibtex-autokey-titleword-case-convert-function #[0 "\300\207" [downcase] 1 "\n\n(fn)"] "Function called for each titleword to perform case conversion.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function")) bibtex-autokey-titleword-case-convert bibtex-autokey-titleword-abbrevs #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Determines exceptions to the usual abbreviation mechanism.\nAn alist of (OLD-REGEXP . NEW-STRING) pairs. Case is ignored\nin matching against OLD-REGEXP, and the first matching pair is used.\nSee `bibtex-generate-autokey' for details." (repeat (cons (regexp :tag "Old") (string :tag "New"))) bibtex-autokey-titleword-change-strings #[0 "\207" [bibtex-autokey-transcriptions] 1 "\n\n(fn)"] "Alist of (OLD-REGEXP . NEW-STRING) pairs.\nAny part of title word matching a OLD-REGEXP is replaced by NEW-STRING.\nCase is significant in OLD-REGEXP. All regexps are tried in the\norder in which they appear in the list.\nSee `bibtex-generate-autokey' for details." (repeat (cons (regexp :tag "Old") (string :tag "New"))) bibtex-autokey-titleword-length #[0 "\300\207" [5] 1 "\n\n(fn)"] "Number of characters from title words to incorporate into key.\nIf this is set to anything but a number, all characters are used.\nSee `bibtex-generate-autokey' for details." (choice (const :tag "All" infty) integer) bibtex-autokey-titleword-separator #[0 "\300\207" ["_"] 1 "_\n\n(fn)"] "String to be put between the title words.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-name-year-separator #[0 "\300\207" [#1#] 1 "\n\n(fn)"] "String to be put between name part and year part of key.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-year-title-separator #[0 "\300\207" [":_"] 1 ":_\n\n(fn)"] "String to be put between year part and title part of key.\nSee `bibtex-generate-autokey' for details." bibtex-autokey-edit-before-use #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, user is allowed to edit the generated key before it is used." bibtex-autokey-before-presentation-function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, function to call before generated key is presented.\nThe function must take one argument (the automatically generated key),\nand must return a string (the key to use)." (choice (const nil) function) bibtex-entry-offset #[0 "\300\207" [0] 1 "\n\n(fn)"] "Offset for BibTeX entries.\nAdded to the value of all other variables which determine columns." bibtex bibtex-field-indentation #[0 "\300\207" [2] 1 "\n\n(fn)"] "Starting column for the name part in BibTeX fields." bibtex-text-indentation #[0 "\301G\\\207" [bibtex-field-indentation "organization = "] 2 "\n\n(fn)"] "Starting column for the text part in BibTeX fields.\nShould be equal to the space needed for the longest name part." bibtex-contline-indentation #[0 "T\207" [bibtex-text-indentation] 1 "\n\n(fn)"] "Starting column for continuation lines of BibTeX fields." bibtex-align-at-equal-sign #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, align fields at equal sign instead of field text.\nIf non-nil, the column for the equal sign is the value of\n`bibtex-text-indentation', minus 2." bibtex-comma-after-last-field #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, a comma is put at end of last field in the entry template." bibtex-autoadd-commas #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil automatically add missing commas at end of BibTeX fields." bibtex-autofill-types #[0 "\300\207" [("Proceedings")] 1 "\n\n(fn)"] "Automatically fill fields if possible for those BibTeX entry types." (repeat string) bibtex-summary-function #[0 "\300\207" [bibtex-summary] 1 "\n\n(fn)"] "Function to call for generating a summary of current BibTeX entry.\nIt takes no arguments. Point must be at beginning of entry.\nUsed by `bibtex-complete-crossref-cleanup' and `bibtex-copy-summary-as-kill'." (choice (const :tag "Default" bibtex-summary) (function :tag "Personalized function")) bibtex-generate-url-list #[0 "\300\207" [((("url" . ".*:.*")))] 1 "\n\n(fn)"] "List of schemes for generating the URL of a BibTeX entry.\nThese schemes are used by `bibtex-url'.\n\nEach scheme should have one of these forms:\n\n ((FIELD . REGEXP))\n ((FIELD . REGEXP) STEP...)\n ((FIELD . REGEXP) STRING STEP...)\n\nFIELD is a field name as returned by `bibtex-parse-entry'.\nREGEXP is matched against the text of FIELD. If the match succeeds,\nthen this scheme is used. If no STRING and STEPs are specified\nthe matched text is used as the URL, otherwise the URL is built\nby evaluating STEPs. If no STRING is specified the STEPs must result\nin strings which are concatenated. Otherwise the resulting objects\nare passed through `format' using STRING as format control string.\n\nA STEP is a list (FIELD REGEXP REPLACE). The text of FIELD\nis matched against REGEXP, and is replaced with REPLACE.\nREPLACE can be a string, or a number (which selects the corresponding\nsubmatch), or a function called with the field's text as argument\nand with the `match-data' properly set.\n\nCase is always ignored. Always remove the field delimiters.\nIf `bibtex-expand-strings' is non-nil, BibTeX strings are expanded\nfor generating the URL.\nSet this variable before loading BibTeX mode.\n\nThe following is a complex example, see URL `http://link.aps.org/'.\n\n (((\"journal\" . \"\\\\=<\\(PR[ABCDEL]?\\|RMP\\)\\\\=>\")\n \"http://link.aps.org/abstract/%s/v%s/p%s\"\n (\"journal\" \".*\" upcase)\n (\"volume\" \".*\" 0)\n (\"pages\" \"\\`[A-Z]?[0-9]+\" 0)))" (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"))))))) risky-local-variable t bibtex-cite-matcher-alist #[0 "\300\207" [(("\\\\cite[ \n]*{\\([^}]+\\)}" . 1))] 1 "\n\n(fn)"] "Alist of rules to identify cited keys in a BibTeX entry.\nEach rule should be of the form (REGEXP . SUBEXP), where SUBEXP\nspecifies which parenthesized expression in REGEXP is a cited key.\nCase is significant.\nUsed by `bibtex-search-crossref' and for font-locking.\nSet this variable before loading BibTeX mode." (repeat (cons (regexp :tag "Regexp") (integer :tag "Number"))) :version "23.1" bibtex-expand-strings #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, expand strings when extracting the content of a BibTeX field." bibtex-search-buffer #[0 "\300\207" ["*BibTeX Search*"] 1 "*BibTeX Search*\n\n(fn)"] "Buffer for BibTeX search results." "24.1"] 10)
#@43 Syntax table used in BibTeX mode buffers.
(defvar bibtex-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\316#\210\301\320\321#\210\301\322\323#\210\211\207" [make-syntax-table modify-syntax-entry 34 "\"" 36 "$$ " 37 "< " 39 "w " 64 92 "\\" 12 "> " 10 61 "." 126 " "] 5) (#$ . 55165))
#@29 Keymap used in BibTeX mode.
(defvar bibtex-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\311#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371#\210\301\372\373#\210\301\374\375#\210\301\376\377#\210\301\201@ \201A #\210\301\201B \201C #\210\301\201D \201E #\210\301\201F \201G #\210\301\201H \201I #\210\301\201J \201K #\210\301\201L \201I #\210\301\201M \201N #\210\301\201O \201P #\210\301\201Q \201G #\210\301\201R \201S #\210\301\201T \201U #\210\301\201V \201W #\210\301\201X \201E #\210\301\201Y \201Z #\210\301\201[ \201\\ #\210\301\201] \201^ #\210\301\201_ \201` #\210\301\201a \201b #\210\301\201c \201d #\210\211\207" [make-sparse-keymap define-key " " bibtex-find-text "\n" bibtex-next-field "\211" completion-at-point "\"" 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-search-entries "" 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] 5) (#$ . 55587))
#@33 BibTeX-Edit Menu in BibTeX mode
(defvar bibtex-edit-menu nil (#$ . 57923))
(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" ["Search Entries" bibtex-search-entries t] "--" ["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])))
#@77 Alist of currently active entry types.
Initialized by `bibtex-set-dialect'.
(defvar bibtex-entry-alist nil (#$ . 60320))
#@77 Alist of currently active field types.
Initialized by `bibtex-set-dialect'.
(defvar bibtex-field-alist nil (#$ . 60447))
#@131 Optimized value of `bibtex-field-braces-alist'.
Created by `bibtex-field-re-init'.
It is an alist with elements (FIELD . REGEXP).
(defvar bibtex-field-braces-opt nil (#$ . 60575))
#@177 Optimized value of `bibtex-field-strings-alist'.
Created by `bibtex-field-re-init'.
It is an alist with elements (FIELD RULE1 RULE2 ...),
where each RULE is (REGEXP . TO-STR).
(defvar bibtex-field-strings-opt nil (#$ . 60762))
#@76 Next point where `bibtex-pop-previous' starts looking for a similar entry.
(defvar bibtex-pop-previous-search-point nil (#$ . 60995))
#@72 Next point where `bibtex-pop-next' starts looking for a similar entry.
(defvar bibtex-pop-next-search-point nil (#$ . 61135))
#@97 Ring of least recently killed fields.
At most `bibtex-field-kill-ring-max' items are kept here.
(defvar bibtex-field-kill-ring nil (#$ . 61267))
#@73 The tail of `bibtex-field-kill-ring' whose car is the last item yanked.
(defvar bibtex-field-kill-ring-yank-pointer nil (#$ . 61418))
#@98 Ring of least recently killed entries.
At most `bibtex-entry-kill-ring-max' items are kept here.
(defvar bibtex-entry-kill-ring nil (#$ . 61558))
#@73 The tail of `bibtex-entry-kill-ring' whose car is the last item yanked.
(defvar bibtex-entry-kill-ring-yank-pointer nil (#$ . 61710))
#@58 Type of the last kill command (either 'field or 'entry).
(defvar bibtex-last-kill-command nil (#$ . 61850))
#@114 Completion table for BibTeX string keys.
Initialized from `bibtex-predefined-strings' and `bibtex-string-files'.
(defvar bibtex-strings (completion-table-dynamic #[257 "\301!\203 \302\303 !\207" [bibtex-strings functionp bibtex-parse-strings bibtex-string-files-init] 3 "\n\n(fn STRING)"]) (#$ . 61965))
(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 #[257 "\301!\203 \302\303\304\"\207" [bibtex-reference-keys functionp bibtex-parse-keys nil t] 4 "\n\n(fn STRING)"]) (#$ . 62402))
(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 (#$ . 62846))
#@39 Stores if timer is already installed.
(defvar bibtex-parse-idle-timer nil (#$ . 62979))
#@52 Last reported percentage for the progress message.
(defvar bibtex-progress-lastperc nil (#$ . 63073))
#@33 Last reported progress message.
(defvar bibtex-progress-lastmes nil (#$ . 63181))
#@33 Interval for progress messages.
(defvar bibtex-progress-interval nil (#$ . 63269))
#@32 History list for reading keys.
(defvar bibtex-key-history nil (#$ . 63358))
#@39 History list for reading entry types.
(defvar bibtex-entry-type-history nil (#$ . 63440))
#@39 History list for reading field names.
(defvar bibtex-field-history nil (#$ . 63536))
#@30 Last reformat options given.
(defvar bibtex-reformat-previous-options nil (#$ . 63627))
#@44 Last reformat reference keys option given.
(defvar bibtex-reformat-previous-reference-keys nil (#$ . 63721))
#@45 Regexp matching the name of a BibTeX field.
(defconst bibtex-field-name "[^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*" (#$ . 63836))
#@50 Regexp matching the name part of a BibTeX field.
(defconst bibtex-name-part (concat ",[ \n]*\\(" bibtex-field-name "\\)") (#$ . 63971))
#@59 Regexp matching the reference key part of a BibTeX entry.
(defconst bibtex-reference-key "[][[:alnum:].:;?!`'/*@+|()<>&_^$-]+" (#$ . 64114))
#@42 Regexp matching a BibTeX field constant.
(defconst bibtex-field-const "[][[:alnum:].:;?!`'/*@+=|<>&_^$-]+" (#$ . 64261))
#@82 Regexp matching the type of a BibTeX entry.
Initialized by `bibtex-set-dialect'.
(defvar bibtex-entry-type nil (#$ . 64388))
#@105 Regexp matching the header line of a BibTeX entry (including key).
Initialized by `bibtex-set-dialect'.
(defvar bibtex-entry-head nil (#$ . 64520))
#@112 Regexp matching the header line of a BibTeX entry (possibly without key).
Initialized by `bibtex-set-dialect'.
(defvar bibtex-entry-maybe-empty-head nil (#$ . 64675))
#@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 "\\)?") (#$ . 64848))
#@110 Regexp matching any valid BibTeX entry (including String and Preamble).
Initialized by `bibtex-set-dialect'.
(defvar bibtex-any-valid-entry-type nil (#$ . 65087))
#@70 Regexp subexpression number of the type part in `bibtex-entry-head'.
(defconst bibtex-type-in-head 1 (#$ . 65256))
#@69 Regexp subexpression number of the key part in `bibtex-entry-head'.
(defconst bibtex-key-in-head 2 (#$ . 65377))
#@52 Regexp matching the name of a BibTeX String entry.
(defconst bibtex-string-type "^[ ]*\\(@[ ]*String\\)[ ]*[({][ \n]*" (#$ . 65496))
#@59 Regexp matching the header line of a BibTeX String entry.
(defconst bibtex-string-maybe-empty-head (concat bibtex-string-type "\\(" bibtex-reference-key "\\)?") (#$ . 65639))
#@61 Regexp matching the prefix part of a BibTeX Preamble entry.
(defconst bibtex-preamble-prefix "[ ]*\\(@[ ]*Preamble\\)[ ]*[({][ \n]*" (#$ . 65820))
(defconst bibtex-font-lock-syntactic-keywords (byte-code "\301\302\303O\304\303\305O\306\260\307BC\207" [bibtex-comment-start "^[ ]*\\(" 0 1 "\\)" nil "\\>" (1 '(11))] 6))
#@50 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 #[257 "\300\301\302\303D\304BBEC\207" [lambda (bound) bibtex-font-lock-cite quote (bound)] 6 "\n\n(fn MATCHER)"]] 8) (#$ . 66153))
#@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) (#$ . 66800))
#@54 If non-nil, `bibtex-parse-string' accepts empty key.
(defvar bibtex-string-empty-key nil (#$ . 67074))
#@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 (#$ . 67184))
#@363 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.
(fn PARSE-LHS PARSE-RHS)
(defalias 'bibtex-parse-association #[514 "\300 \301\302\303\304\305\306!\307\"\310\311%DC\216\212 \312\2052 \313\314!\2052 \303\225b\2052 \211\262\2052 B\266\202*\207" [match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" nil looking-at "[ \n]*=[ \n]*"] 10 (#$ . 67405)])
#@373 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.
(fn)
(defalias 'bibtex-parse-field-name #[0 "\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 (#$ . 68117)])
#@39 Syntax-table to parse matched braces.
(defconst bibtex-braced-string-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\307#\210\301\311\307#\210\301\312\307#\210\301\313\307#\210\301\314\307#\210\211\207" [make-syntax-table modify-syntax-entry 123 "(}" 125 "){" 91 "." 93 40 41 92 34] 5) (#$ . 68905))
#@39 Syntax-table to parse matched quotes.
(defconst bibtex-quoted-string-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-syntax-table modify-syntax-entry 92 "\\" 34 "\""] 5) (#$ . 69261))
#@221 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.
(fn)
(defalias 'bibtex-parse-field-string #[0 "g\302=\203- \212\303 p\304\305\306\307\310\311\"\312\"\313\314%DC\216\315!\210\316\317!\210)\266`)\206W g\320=\205W \212\303 p\304\305\306\307\310\311\"\321\"\313\314%DC\216\315 !\210\316\317!\210)\266`)\211\205^ `B\207" [bibtex-quoted-string-syntax-table bibtex-braced-string-syntax-table 34 syntax-table funcall make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 "\n\n(fn)" set-syntax-table forward-sexp 1 123 [set-syntax-table]] 10 (#$ . 69486)])
#@329 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.
(fn)
(defalias 'bibtex-parse-field-text #[0 "`\301\211\211\204> \204> \302!\203 \303\225b\210\202+ \304 \211\262\203( \211Ab\210\202+ \305\262\302\306!\2038 \303\225b\210\202 `\262\202 \307\301w\210?\205O \205O `E\207" [bibtex-field-const nil looking-at 0 bibtex-parse-field-string t "[ \n]*#[ \n]*" " \n"] 7 (#$ . 70246)])
#@215 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.
(fn)
(defalias 'bibtex-parse-field #[0 "\300\301\302\"\207" [bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text] 3 (#$ . 70916)])
(defalias 'bibtex-start-of-field #[257 "\211@@\207" [] 2 "\n\n(fn BOUNDS)"])
(put 'bibtex-start-of-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-start-of-name-in-field #[257 "\211@A@\207" [] 2 "\n\n(fn BOUNDS)"])
(put 'bibtex-start-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-name-in-field #[257 "\300@8\207" [2] 3 "\n\n(fn BOUNDS)"])
(put 'bibtex-end-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-start-of-text-in-field #[257 "\211A@\207" [] 2 "\n\n(fn BOUNDS)"])
(put 'bibtex-start-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-text-in-field #[257 "\3008\207" [2] 3 "\n\n(fn BOUNDS)"])
(put 'bibtex-end-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-field #[257 "\3008\207" [3] 3 "\n\n(fn BOUNDS)"])
(put 'bibtex-end-of-field 'byte-optimizer 'byte-compile-inline-expand)
#@340 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.
(fn NAME &optional BOUND)
(defalias 'bibtex-search-forward-field #[513 "\303 \304\305\306\307\310\311!\312\"\313\314%DC\216\212\315=\203A \316 Q\315\317C\317\262\320\304\305\306\321\310\311\f\n #\322\"\323\314%D\215)\266\203\202t \324\325Q\315\317\211\317\262\211\204j \326\315#\203j \306\224\327\224\327\225E\262\330 \262\202M \211\205q B)\266\204*\207" [bibtex-name-part bibtex-any-entry-maybe-empty-head case-fold-search match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" t "[ \n]*=\\|" nil done "\303\304!\203\n \305\225b\210\302@\2040 \306\301\307\310#\2030 \311\224\203$ \312\313\307\"\210\202\n \305\224b\210\302\314 \240\210\202\n \302@\205\\ \302@\211@A@\262b\210\303\300!\203K \312\313\302@\"\210\302@\3158\262b\210\302\314 \240\210\2020 \207" [looking-at "[ ]*@" 0 re-search-forward nil t 2 throw done bibtex-parse-field 3] 4 ",[ \n]*\\(" "\\)[ \n]*=[ \n]*" re-search-forward 1 bibtex-parse-field-text] 16 (#$ . 72241)])
#@351 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.
(fn NAME &optional BOUND)
(defalias 'bibtex-search-backward-field #[513 "\301 \302\303\304\305\306\307!\310\"\311\312%DC\216\313=\203 \212\314 )\262\315\316Q\313\317\211\317\262\212\320\321\313#\205| \212\322!\205N \304\224\323\224\323\225E\262\304\225b\210\324 \211\262)\204u \211\204u \325\313#\203u \304\224\323\224\323\225E\262\212\304\225b\210\324 \262)\202R \211\205| B*\266\204)\207" [case-fold-search match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" t bibtex-beginning-of-entry ",[ \n]*\\(" "\\)[ \n]*=[ \n]*" nil search-backward "," looking-at 1 bibtex-parse-field-text re-search-backward] 11 (#$ . 73583)])
#@161 Get content of name in BibTeX field defined via BOUNDS.
If optional arg REMOVE-OPT-ALT is non-nil remove "OPT" and "ALT".
(fn BOUNDS &optional REMOVE-OPT-ALT)
(defalias 'bibtex-name-in-field #[513 "\301\211@A@\262\302@8\262\"\203- \303\304\"\203- \203& \303\"\204- \211\305\306O\202. \211\207" [bibtex-no-opt-remove-re buffer-substring-no-properties 2 string-match "\\`\\(OPT\\|ALT\\)" 3 nil] 7 (#$ . 74618)])
#@273 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.
(fn BOUNDS &optional CONTENT)
(defalias 'bibtex-text-in-field-bounds #[513 "\211\203c \212\211A@\262b\210\3028\262\303`W\203Z \304!\203> \305\306! \2031 \307\310 \311#A\2062 \211B\262\306\225b\266\202Q \312 \313@TAS\"B\262\211Ab\266\314\315\303\311#\210\202 \316\317\237\"\266\202)\207\313\211A@\262\3028\262\"\207" [bibtex-field-const bibtex-expand-strings 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] 9 (#$ . 75046)])
#@177 Get content of field FIELD of current BibTeX entry.
Return nil if not found.
If optional arg FOLLOW-CROSSREF is non-nil, follow crossref.
(fn FIELD &optional FOLLOW-CROSSREF)
(defalias 'bibtex-text-in-field #[513 "\212\211\203\n \300 \202 \301\302 \303\"\211\203 \304\301\"\202= \205= b\210\303\305\"\211\262\205= \304\301\"\306!\205; \307!\262\266\203)\207" [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] 8 (#$ . 75879)])
#@346 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.
(fn)
(defalias 'bibtex-parse-string-prefix #[0 "\304\305 !\2054 `\306\225b\210\305\n!\203 \306\225b\210\211\306\224\306\225E\2022 \2052 \305\307!\2052 \310\311x\210\211``E\262)\207" [case-fold-search bibtex-string-type bibtex-reference-key bibtex-string-empty-key t looking-at 0 "=" " \n" nil] 4 (#$ . 76448)])
#@293 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.
(fn)
(defalias 'bibtex-parse-string-postfix #[0 "\301\302 \211\205 \211A@b\210\303\304!\205 \305\225b\210\211@A@\305\225E)\207" [case-fold-search t bibtex-parse-field-text looking-at "[ \n]*[})]" 0] 4 (#$ . 77111)])
#@292 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.
(fn &optional EMPTY-KEY)
(defalias 'bibtex-parse-string #[256 "\211\301\302\303\")\207" [bibtex-string-empty-key bibtex-parse-association bibtex-parse-string-prefix bibtex-parse-string-postfix] 4 (#$ . 77626)])
#@275 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.
(fn &optional EMPTY-KEY)
(defalias 'bibtex-search-forward-string #[256 "\212\302 \303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\315\262\211\2045 \316 \315\314#\2035 \212\305\224b\210\317!\262)\202 )\262)\262)\207" [case-fold-search bibtex-string-type match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" t nil search-forward-regexp bibtex-parse-string] 9 (#$ . 78111)])
#@73 Return the key part of a BibTeX string defined via BOUNDS.
(fn BOUNDS)
(defalias 'bibtex-reference-key-in-string #[257 "\300@A@\301@8\"\207" [buffer-substring-no-properties 2] 5 (#$ . 78813)])
#@271 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.
(fn BOUNDS &optional CONTENT)
(defalias 'bibtex-text-in-string #[513 "\300\"\207" [bibtex-text-in-field-bounds] 5 (#$ . 79016)])
(defalias 'bibtex-start-of-text-in-string #[257 "\211A@\207" [] 2 "\n\n(fn BOUNDS)"])
(put 'bibtex-start-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-text-in-string #[257 "\211AA@\207" [] 2 "\n\n(fn BOUNDS)"])
(put 'bibtex-end-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'bibtex-end-of-string #[257 "\300A8\207" [2] 3 "\n\n(fn BOUNDS)"])
(put 'bibtex-end-of-string 'byte-optimizer 'byte-compile-inline-expand)
#@36 Extract BibTeX type in head.
(fn)
(defalias 'bibtex-type-in-head #[0 "\301\224T\225\"\207" [bibtex-type-in-head buffer-substring-no-properties] 3 (#$ . 79876)])
(put 'bibtex-type-in-head 'byte-optimizer 'byte-compile-inline-expand)
#@95 Extract BibTeX key in head. Return optional arg EMPTY if key is empty.
(fn &optional EMPTY)
(defalias 'bibtex-key-in-head #[256 "\301!\206 \211\207" [bibtex-key-in-head match-string-no-properties] 3 (#$ . 80117)])
(put 'bibtex-key-in-head 'byte-optimizer 'byte-compile-inline-expand)
#@90 Parse BibTeX preamble.
Point must be at beginning of preamble. Do not move point.
(fn)
(defalias 'bibtex-parse-preamble #[0 "\302\303 !\205 \304\224\305\224\212\304\225b\210\306 )\211\205 DB\266\203)\207" [case-fold-search bibtex-preamble-prefix t looking-at 0 1 bibtex-parse-string-postfix] 5 (#$ . 80411)])
#@69 Return t if STR1 and STR2 are equal, ignoring case.
(fn STR1 STR2)
(defalias 'bibtex-string= #[514 "\300\301\302\301\302\303&\303=\207" [compare-strings 0 nil t] 10 (#$ . 80734)])
(put 'bibtex-string= 'byte-optimizer 'byte-compile-inline-expand)
#@48 Delete all whitespace starting at point.
(fn)
(defalias 'bibtex-delete-whitespace #[0 "\300\301!\205\n `\302\225|\207" [looking-at "[ \n]+" 0] 2 (#$ . 80990)])
#@79 Compute line number of point regardless whether the buffer is narrowed.
(fn)
(defalias 'bibtex-current-line #[0 "\300\301`\"n\203\f \301\202
\302\\\207" [count-lines 1 0] 3 (#$ . 81158)])
#@475 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-BibTeX-entry-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'.
(fn &optional EMPTY-KEY)
(defalias 'bibtex-valid-entry #[256 "\304\305\305\262\306\203 \202 \n!\205m \212\307 \310\311\312\313\314\315!\316\"\317\320%DC\216\312\225b\210\212 \225b\210\306\321!)\203= \322\202> \323\305\324\305w\210\325 \211\262\203V \211\3178\262b\210\202C \306!\203` \312\225\262\266)\210\211\205l \312\224B))\207" [case-fold-search bibtex-entry-maybe-empty-head bibtex-entry-head bibtex-type-in-head t nil looking-at match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" "[ ]*(" ",?[ \n]*)" ",?[ \n]*}" " \n" bibtex-parse-field] 11 (#$ . 81355)])
#@519 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-BibTeX-entry-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.
(fn &optional BACKWARD)
(defalias 'bibtex-skip-to-valid-entry #[256 "\302\303\211\303\262\304 \210\204] \203 o\202 m\204] \305 \206; ?\205; \306 \211\262\205; \211\211@@\262\307A8\262B\211\262\204 \203N \310\311\303\312#\210\202 \313\314\303\312#\203 \315\224b\210\202 )\207" [case-fold-search 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] 8 (#$ . 82454) "P"])
#@404 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.
(fn FUN)
(defalias 'bibtex-map-entries #[257 "\303\304 \305\305\262\306\303\"\210\212eb\210\307 \211\262\205: A\305\223\210\310 !\210\311\312\n!\206- \211\262@#\210b\210\202 *\207" [case-fold-search bibtex-any-entry-maybe-empty-head bibtex-key-in-head t make-marker nil set-marker-insertion-type bibtex-skip-to-valid-entry looking-at "" match-string-no-properties] 8 (#$ . 83461)])
#@397 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.
(fn &optional FLAG INTERVAL)
(defalias 'bibtex-progress-message #[512 ";\203 \211\206\f \303\304\211\207\305=\203 \306\307\"\210\310\211\207deZ\211\304U\203- \311\2024 `eZ\311_\245\211\n \\Y\205C \211\306\312#\207" [bibtex-progress-lastmes bibtex-progress-interval bibtex-progress-lastperc 5 0 done message "%s (done)" nil 100 "%s (%d%%)"] 8 (#$ . 84257)])
#@63 Return a string dependent on `bibtex-field-delimiters'.
(fn)
(defalias 'bibtex-field-left-delimiter #[0 "\301=\203 \302\207\303\207" [bibtex-field-delimiters braces "{" "\""] 2 (#$ . 85001)])
#@63 Return a string dependent on `bibtex-field-delimiters'.
(fn)
(defalias 'bibtex-field-right-delimiter #[0 "\301=\203 \302\207\303\207" [bibtex-field-delimiters braces "}" "\""] 2 (#$ . 85202)])
#@63 Return a string dependent on `bibtex-entry-delimiters'.
(fn)
(defalias 'bibtex-entry-left-delimiter #[0 "\301=\203 \302\207\303\207" [bibtex-entry-delimiters braces "{" "("] 2 (#$ . 85404)])
#@63 Return a string dependent on `bibtex-entry-delimiters'.
(fn)
(defalias 'bibtex-entry-right-delimiter #[0 "\301=\203 \302\207\303\207" [bibtex-entry-delimiters braces "}" ")"] 2 (#$ . 85604)])
#@69 Flash at BibTeX entry head before point, if it exists.
(fn PROMPT)
(defalias 'bibtex-flash-head #[257 "\305`\306\262\212\307 \210\310 !\2056 `W\2056 \n\224b\210\311 W\203- \312`!\203- \313 !\2026 \314\315\316`\f\225\"#*\207" [case-fold-search bibtex-any-entry-maybe-empty-head bibtex-type-in-head blink-matching-delay bibtex-key-in-head t nil bibtex-beginning-of-entry looking-at 0 pos-visible-in-window-p sit-for message "%s%s" buffer-substring-no-properties] 9 (#$ . 85805)])
#@73 Make an optional field named FIELD in current BibTeX entry.
(fn FIELD)
(defalias 'bibtex-make-optional-field #[257 "\211:\203 \300\301@PAB!\207\300\301P!\207" [bibtex-make-field "OPT"] 4 (#$ . 86295)])
#@53 Make sure point is outside of a BibTeX entry.
(fn)
(defalias 'bibtex-move-outside-of-entry #[0 "`\300 \210`W\203# \211b\210\301\302!\210`SSf\303U\204# \304\305\306\307#\210\310u\210\311\306w\207" [bibtex-end-of-entry beginning-of-line 1 10 re-search-forward "^[ ]*[@\n]" nil move -1 " \n"] 5 (#$ . 86508)])
#@158 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
(fn)
(defalias 'bibtex-beginning-of-first-entry #[0 "eb\210\300 \210`\207" [bibtex-skip-to-valid-entry] 1 (#$ . 86826)])
#@489 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
as well as the entry delimiter if it appears on the same line.
Unless NOERR is non-nil, signal an error if no enclosing field is found.
On success return bounds, nil otherwise. Do not move point.
(fn &optional COMMA NOERR)
(defalias 'bibtex-enclosing-field #[512 "\212\203 \301\210\302\301x\210h\303>\203 \304u\210h\305U\203 \304u\210\306\307\"\211\203@ \211\211@@\262`X\203@ \211\3108\262`Y\203@ \211\202H ?\205H \311\312!\262)\207" [bibtex-field-name nil " " (125 41) -1 44 bibtex-search-backward-field t 3 error "Can't find enclosing BibTeX field"] 6 (#$ . 87106)])
#@101 Move point to beginning of first field.
Optional arg BEG is beginning of entry.
(fn &optional BEG)
(defalias 'bibtex-beginning-first-field #[256 "\211\203\n \211b\210\202
\301 \210\302!\210\303\225b\207" [bibtex-any-entry-maybe-empty-head bibtex-beginning-of-entry looking-at 0] 3 (#$ . 87959)])
#@144 Reinsert the Nth stretch of killed BibTeX text (field or entry).
Optional arg COMMA is as in `bibtex-enclosing-field'.
(fn N &optional COMMA)
(defalias 'bibtex-insert-kill #[513 "\204 \306\307!\210\310\311=\203) \312!\3138\262b\210\314 \210\315\316 #\317\320\317$\202h \321 \210\314 \210\211\322\n#c\210\323\324!\204? \325c\210\326 !?\205h \212\327\317!b\210\330\f!\210\320\331
!\206X \211\262\211\205e \211\317B B\211\262)\207" [bibtex-last-kill-command bibtex-field-kill-ring bibtex-entry-kill-ring bibtex-reference-keys bibtex-any-entry-maybe-empty-head bibtex-key-in-head error "BibTeX kill ring is empty" #[771 "\300\301!GZG\"\233L@\207" [mod eval] 8 "\n\n(fn N KRYP KR)"] 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 looking-back "\n\n" "\n" functionp mark looking-at match-string-no-properties] 8 (#$ . 88265)])
#@73 Add NEWELT to the list stored in VEC at index IDX.
(fn VEC IDX NEWELT)
(defalias 'bibtex-vec-push #[771 "HBI\207" [] 8 (#$ . 89227)])
(put 'bibtex-vec-push 'byte-optimizer 'byte-compile-inline-expand)
#@79 Increment by 1 the counter which is stored in VEC at index IDX.
(fn VEC IDX)
(defalias 'bibtex-vec-incr #[514 "HTI\207" [] 6 (#$ . 89440)])
(put 'bibtex-vec-incr 'byte-optimizer 'byte-compile-inline-expand)
#@116 Helper function for `bibtex-clean-entry'.
Formats current entry according to variable `bibtex-entry-format'.
(fn)
(defalias 'bibtex-format-entry #[0 "\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\211\211C \315\262\f\316\317\320\321\322\323!\324\"\325\326%DC\216\327 \315@\211\315C A\315\262 B\315\262 C\315\262\316\317\320\330\322\323\n\"\331\"\332\326%DC\216\333!\210\212\214\334 \210eb\210\335D\315\311#\204\221 \336\337!\210\320\224T\320\225\340\341\"E\311#\342>\203\256 |\210\211@c\210\343>\203\304 b\210\344\315w\210\345\346!\210\347 c\210eb\210\350\351!\211\262\203\337 \352\311\"\211\353\232\204\336 \211\262\210\203\352 \3328\202\362 \354\3328\3558\"\262\354\3328\3558\3258F$\262\356\315\357\360\361\"!\"G\262\f\362\f\315\"\262 \363>\203\210eb\210\212\364 )\365 \315\211 G\315\262`|\210\211\203b\211@\340@\311#\211\262\203[\366\"\262\367@\315AE\315\211\311$\210A\266\202\2025\210\211\203\204\211@\211@\370\235\204}\367@\315AE\315\211\311$\210A\266\202\202d\210)\266\266\364e!\210\371 \211\262\203\356\372\211@@\262!\372\3558\262\311\"\372\211@A@\262!\372\332@8\262!\372\211A@\262!\372\3328\262\311\"\352\311\"\353\232\341\"\373\374\"\205\355H\205\354\373H\"?\315\203\370\355\315O\262\355\340\311#8\211\262\203HBI\266\375>\203O\203C\2047\340\311#\211?\2062\3558\262\203C |\210\311\262\202O\203Ob\210\345\355!\210\211\204\351B\262\376>\203\213b\210\377\201K !\203s\201L \201M !\210b\210\201N \201O \311#\203\213\201L \201M !\210\201P >\203\257b\210\377\201Q !\203\257b\210\345\201R !\210b\210\345\346!\210\343>\203b\210`W\203\377I!\203\315\320\225b\210\202\367\201S \377!\203\337\211Ab\210\202\366\345\346!\210\314 c\210\211ASb\210\345\346!\210\201T c\210\210\377\201U !\203\271\320\225b\210\202\271\201V >\2039\201W \201X \320\315\320\315\311&\311=\266\202\2039b\210\377\201Y !\2039\201L \201Z !\210\315\211 \315\262\307 >\203\250\340 \311#A\211\262\203\250b\210\335\311#\203\250\320\224\201[ \315\311\"\3258\204\243`\3328SW\203\226\211A@TW\203\226\377\201\\ !\203\226\212Sb\210\377\201] !)\204\243\201\\ c\210b\210\201] c\210\266\202W\310 >\203E\340 \311#A\211\262\203Eb\210\211\211\203D\211@\335@\n\311#\203=\201^ \316\317\320\201_ \322\323!\201` \"\355\326%DC\216\201[ \315\311\")\262\3258\2049\320\225\3328SW\203
\201a \314 \261\210\202\345\346!\210\201L A!\210\320\224b\210\211A@T\320\224W\2033\201T \201a \261\210\2029\345\201R !\210\210\202\306A\266\202\202\300\210)\266\201b >\203\227\203\227\201c \201X \320\315\320\315\311&\311=\266\202\203\227\203\227\212\214~\210\201d \311\"\205\206\201e \201f !*\211\203\226\315\262Tb\210\211c\210\210\203\271\201g >\203\271\340\311#\203\271\240\210\336\201h \"\210\342>\203\345\340\311#@\211\203\333|\210b\210\211c\210\202\344\201i \"\210\210b\210\266\n\202\216\201g >\203\266\362 \315\"\362\n\320\"
\211\203[\211@\3558\211\262\f\203; @HBI\266\201j @\"\203T HTI\266\202T\201j @\"\204T @\240\210\336\201k @\"\210A\266\202\202\210\n\320\211W\203\264\211H\320U\203\210\n\201l H!@\240\210\336\201m H\"\210\202\254\346HW\203\254\n\201l H!@\240\210\336\201n HHG#\210\210\211T\262\202_\266\201o >\203\345J\203\324\377\201p !\204\324\201p c\210\202\345J\204\345\377\201p !\203\345\345\346!\210\377\201p !\203\360\315u\210\343>\203\344\315w\210\345\346!\210\201q c\210\201r >\203\201s \210*\211\311\240,\266\205*\207" [bibtex-field-braces-alist bibtex-field-braces-opt bibtex-field-strings-alist bibtex-field-strings-opt bibtex-entry-format case-fold-search 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 sort-fields) regexp-quote bibtex-field-left-delimiter nil funcall make-byte-code 0 "\300@\205$ \301\212\302 \210\303\304\300@P\305\"\211\262)\205\" \211\211A@\262b\210\306 \262\207" vconcat vector [nil bibtex-beginning-of-entry bibtex-search-forward-field "\\(OPT\\|ALT\\)?" t bibtex-find-text] 4 "\n\n(fn)" prepare-change-group "\301@\203 \302\300!\207\303\300!\207" [accept-change-group cancel-change-group] 2 activate-change-group bibtex-narrow-to-entry re-search-forward error "Not inside a BibTeX entry" 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 "" append 3 delq delete-dups mapcar #[257 "\3008\207" [3] 3 "\n\n(fn X)"] make-vector sort-fields bibtex-beginning-first-field bibtex-parse-entry delete bibtex-make-field ("=key=" "=type=") bibtex-parse-field copy-marker string-match "\\`\\(OPT\\|ALT\\)" opts-or-alts whitespace looking-at most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit bibtex-entry-type bibtex-entry-alist bibtex-user-optional-fields bibtex-help-message bibtex-no-opt-remove-re bibtex-field-const bibtex-comma-after-last-field "\\([{\"]\\)[ \n]+" replace-match "\\1" looking-back "[ \n]+\\([}\"]\\)" numerical-fields "\"[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]+[\"}]\\)" "\\1-\\2" bibtex-find-text-internal "}" "{" match-data "\301\300\302\"\207" [set-match-data evaporate] " # " 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] 39 (#$ . 89659)])
#@218 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'.
(fn REGEXP-ALIST TYPE)
(defalias 'bibtex-field-re-init #[514 "\300\301\"\262\302\303\304\305\300\306\"\"!\211\203Z \211@\302\211\203: \211@\307@\310#\2033 \211A@\3118BB\262A\266\202\202 \210\312=\203K \313\314\306\315#\316Q\262BB\262\210A\266\202\202 \210\211\207" [mapcar #[257 "\211@\300\301\302A@#\3038E\207" [replace-regexp-in-string " +" "[ \n]+" 2] 6 "\n\n(fn E)"] nil delete-dups apply append car assoc-string t 2 braces "\\(?:" mapconcat "\\|" "\\)"] 12 (#$ . 95727)])
#@315 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.
(fn STRING LEN)
(defalias 'bibtex-autokey-abbrev #[514 "\211\247\203 G\301!X\203 \207\211\302\232\203 \303\207\211\302W\203% \302\301!O\207\304\305\306S#\211\2039 \302TO\202: )\207" [case-fold-search abs 0 "" t string-match "[^aeiou]"] 6 (#$ . 96429)])
#@260 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).
(fn FIELD &optional CHANGE-LIST)
(defalias 'bibtex-autokey-get-field #[513 "\304\n\"\305\211\204 \306\262\211\203' \211@\307@A\310$\262A\266\202\202 \210*\211\207" [bibtex-autokey-expand-strings bibtex-expand-strings bibtex-autokey-use-crossref case-fold-search bibtex-text-in-field nil "" replace-regexp-in-string t] 10 (#$ . 97001)])
#@238 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'.
(fn)
(defalias 'bibtex-autokey-get-names #[0 "\306\307\"\211\310\230\203 \211\202= \311\312\313\314\315\"\"\316\n\247\2033 G\n \\X\2043 G\nZ\237\233\237\262\f\262\317\320
#P)\266\202\207" [bibtex-autokey-name-change-strings case-fold-search bibtex-autokey-names bibtex-autokey-names-stretch bibtex-autokey-additional-names bibtex-autokey-name-separator bibtex-autokey-get-field "author\\|editor" "" t mapcar bibtex-autokey-demangle-name split-string "[ \n]+and[ \n]+" nil mapconcat identity] 7 (#$ . 97583)])
#@89 Get the last part from a well-formed FULLNAME and perform abbreviations.
(fn FULLNAME)
(defalias 'bibtex-autokey-demangle-name #[257 "\303\304\305\"\203 \306\307\"\202> \304\310\"\203 \306\307\"\202> \304\311\"\203, \306\312\"\202> \304\313\"\203: \306\307\"\202> \314\315\" \316\n\"!)\207" [case-fold-search 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] 6 (#$ . 98343)])
#@84 Return year field contents as a string obeying `bibtex-autokey-year-length'.
(fn)
(defalias 'bibtex-autokey-get-year #[0 "\301\302!\211\303GZ]\304O\207" [bibtex-autokey-year-length bibtex-autokey-get-field "year" 0 nil] 5 (#$ . 98975)])
#@82 Get title field contents up to a terminator.
Return the result as a string
(fn)
(defalias 'bibtex-autokey-get-title #[0 "\306\307\310\"\311\262\312\n\"\203 \211\313\211\224O\262\313\314\315\316 \317#\320Q\311\211\211\f\247\2031 \f
\\W\203p \312\321\"\203p \322\313\"\262\313\225\311O\262\311\312\")\204$ T\262\f\247\203` \fX\203h \211B\262\202$ \211B\262\202$ \312\321\"\204~ \323\"\262\315\324\237#\266\205)\207" [bibtex-autokey-titleword-change-strings case-fold-search bibtex-autokey-title-terminators bibtex-autokey-titleword-ignore bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch t bibtex-autokey-get-field "title" nil string-match 0 "\\`\\(?:" mapconcat identity "\\|" "\\)\\'" "\\b\\w+" match-string append bibtex-autokey-demangle-title bibtex-autokey-titleword-separator] 11 (#$ . 99221)])
#@152 Do some abbreviations on TITLEWORD.
The rules are defined in `bibtex-autokey-titleword-abbrevs'
and `bibtex-autokey-titleword-length'.
(fn TITLEWORD)
(defalias 'bibtex-autokey-demangle-title #[257 "\305\306\262\211\203! \307\310\211@@)\311Q\"\204! \211A\262\202 \211\203. \211\211@A)\2024 \312\f\"!)\207" [bibtex-autokey-titleword-abbrevs case-fold-search x bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-length t nil string-match "\\`\\(?:" "\\)\\'" bibtex-autokey-abbrev] 8 (#$ . 100072)])
#@3539 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.
(fn)
(defalias 'bibtex-generate-autokey #[0 "\304 \305 \306 \211\307\232\206 \307\232?\205 \307\232\203$ \307\232\206' \307\232?\205, \n\260 \2039 !\202: \211\207" [bibtex-autokey-prefix-string bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator bibtex-autokey-before-presentation-function bibtex-autokey-get-names bibtex-autokey-get-year bibtex-autokey-get-title ""] 9 (#$ . 100610)])
#@56 Return global key alist based on `bibtex-files'.
(fn)
(defalias 'bibtex-global-key-alist #[0 "\203 \303\304\305\306\307 \310=!\"\"\207 \310=\205 \n\207" [bibtex-files major-mode bibtex-reference-keys apply append mapcar #[257 "r\211q\210)\207" [bibtex-reference-keys] 2 "\n\n(fn BUF)"] bibtex-initialize bibtex-mode] 7 (#$ . 104569)])
#@210 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',
(fn PROMPT &optional KEY GLOBAL)
(defalias 'bibtex-read-key #[769 "\302\303\203
\304 \202 \302\211\305&)\207" [completion-ignore-case bibtex-reference-keys nil completing-read bibtex-global-key-alist bibtex-key-history] 10 (#$ . 104916)])
#@79 Read BibTeX string key from minibuffer using default KEY.
(fn &optional KEY)
(defalias 'bibtex-read-string-key #[256 "\302\303\304 \305\211\306&)\207" [completion-ignore-case bibtex-strings t completing-read "String key: " nil bibtex-key-history] 8 (#$ . 105346)])
#@462 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.
(fn &optional ABORTABLE VERBOSE)
(defalias 'bibtex-parse-keys #[512 "\301=\205F \302C\302C\212\303 \304\305\306\307\310\311!\312\"\313\314%DC\216\203) \315\316 \317P!\210\320\304\305\306\321\310\311 $\322\"\323\314%D\215)\262)\266\202\207" [major-mode bibtex-mode nil match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" bibtex-progress-message buffer-name ": parsing reference keys" userkey "eb\210\f\203\201 \306
\307\310\311R \312\262\313\312\306#\203{ \300\203) \314 \203) \315\316\317\"\210\320\225\203J \321\320\224T\320\225S\"\322\303@\"\204F \303C\303@B\240\210\210\202 \323\321!\224T!\225\"\"\306#\203 \312\324#!\206d \211\262\322\302@\"\204w \302\306B\302@B\240\210\210\202 )\266\202\241 \306\312C $\312\262\325\326\327\330\331\332\300\301\302\303\n%\333\"\334\335%!\210)\266\303@\211\203\300 \211@\322@\302@\"\204\271 \302\302@B\240\210A\266\202\202\243 \210\301\203\311 \336\337!\210\302@\211%\207" [bibtex-parse-keys-fast bibtex-entry-head t "\\|" ",[ \n]*crossref[ \n]*=[ \n]*" "\\(\"[^\"]*\"\\|{[^}]*}\\)[ \n]*[,})]" nil re-search-forward input-pending-p throw userkey aborted 3 buffer-substring-no-properties assoc assoc-string match-string-no-properties bibtex-map-entries make-byte-code 771 "\300\203 \305 \203 \306\307\310\"\210\301\203 \311 \210\312\302@\"\204& \302\313B\302@B\240\210\304\314\315\"\240\205J \316\304@\313\"\211\262\205J \312\303@\"?\205J \303C\303@B\240\207" vconcat vector [input-pending-p throw userkey aborted bibtex-progress-message assoc t bibtex-search-forward-field "crossref" bibtex-text-in-field-bounds] 7 "\n\n(fn KEY BEG END)" bibtex-progress-message done case-fold-search bibtex-type-in-head bibtex-entry-alist bibtex-key-in-head bibtex-sort-ignore-string-entries bibtex-reference-keys] 13] 16 (#$ . 105622)])
#@372 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.
(fn &optional ADD ABORTABLE)
(defalias 'bibtex-parse-strings #[512 "\212\301 \302\303\304\305\306\307!\310\"\311\312%DC\216eb\210\205# \313!?\205# C\314C\314C<\203O \211\203N \211@\315@@\316#\204G @B\240\210A\266\202\202. \210\317\302\303\304\320\306\307 \n\n\n$\321\"\322\312%D\215\266\203)\262)\207" [bibtex-strings match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" functionp nil assoc-string t userkey "\302\305 \240\203A \300\203 \306 \203 \307\310\311\"\210\303\312\302@!\240\210\313\303@\301@\314#\2044 \301\303@\315\302@\314\"B\301@B\240\210\302@\211AA@\262b\210\202 \301@\211\207" [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] 17 (#$ . 107926)])
#@72 Return `bibtex-strings'. Initialize this variable if necessary.
(fn)
(defalias 'bibtex-strings #[0 "\301!\203 \302\303 !\207\207" [bibtex-strings functionp bibtex-parse-strings bibtex-string-files-init] 2 (#$ . 109124)])
#@123 Return initialization for `bibtex-strings'.
Use `bibtex-predefined-strings' and BibTeX files `bibtex-string-files'.
(fn)
(defalias 'bibtex-string-files-init #[0 "\305 \306\307\310\311\312\313!\314\"\315\316%DC\216\317\206 \320\"\321\211\211\211\211\211\321\262 \211\203\214 \211@\322\323\"\2049 \211\324P\262\325!\203V \326!\203N \211B\262\202\205 \327\330\"\210\202\205 \211\203{ \211@\326\331\"\211\262\n!\203t B\262 \332\262A\266\202\202X \210\204\205 \327\333\"\210A\266\202\202' \210\211\203\336 \211@\334\335!r\211q\210\306\307\310\336\312\313!\337\"\340\316%DC\216\341!\210eb\210\342 \211\262\203\325 \343!\344\332\"BB\262\340A8\262b\210\202\263 *\210A\266\202\202\216 \210\345\f\237\")\266\207)\207" [bibtex-string-file-path default-directory case-fold-search bibtex-string-files bibtex-predefined-strings match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" 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*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 insert-file-contents bibtex-search-forward-string bibtex-reference-key-in-string bibtex-text-in-string append] 18 (#$ . 109357)])
#@296 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'.
(fn)
(defalias 'bibtex-parse-buffers-stealthily #[0 "\212\302 \303 \205= \304 ?\205= @q\210\305=\2036 \306 =\2046 \214~\210\307\310!<\2035 \311\310\"<\2035 \306 )A\262\202 \266\202)\207" [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] 5 (#$ . 110765)])
#@593 (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',
(fn &optional CURRENT FORCE SELECT)
(defalias 'bibtex-initialize #[768 "\306\206 \307\"\310\211\211\n\211\203\204 \211@\211\300=\203\" \311\"\262\202} \312!\2030 \211B\262\202} \313\314\"\204< \211\315P\262\316!\203J \211B\262\202} \310\211\211\203q \211@\317\320\"\211\262!\203j B\262 \321\262A\266\202\202N \210\211\204{ \322\323\"\210\266A\266\202\202\f \210\211\203\236 \211@\317!\204\227 \322\324\"\210A\266\202\202\206 \210\211\203\270 \211@\311\325\321\314\321$\"\262A\266\202\202\240 \210\326!\210\211\203\330 \211@\317!\203\321 \327!B\262A\266\202\202\276 \210\203\344 \330=\204\347 \310\262\203\372 p>\204\372 pB\262\202 \204 p>\203 \331p\"\262\310\211\203D\211@r\211q\210\204\"\332\f!\203%\333 \210\2040\332
!\203<\2048\334 \262\335!\210)A\266\202\202
\266\203i\211\203e\336\337\340\341\342\"\310\321\f\205_\342p!%!\210\202i\343\344!\210\207" [bibtex-file-path default-directory bibtex-files major-mode bibtex-reference-keys bibtex-strings 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 bibtex-string-files-init bibtex-parse-strings switch-to-buffer completing-read "Switch to BibTeX buffer: " mapcar buffer-name message "No BibTeX buffers defined"] 17 (#$ . 111447) (byte-code "\301=\302\301=?E\207" [major-mode bibtex-mode t] 4)])
(defalias 'bibtex-complete-string-cleanup #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 514 "\211\301>\205! \302\300\303#A\211\203 \304\305#\210\210\211\306=\205! \212\307 )\207" vconcat vector [(exact finished sole) assoc-string t message "%s = abbreviation for `%s'" finished bibtex-remove-delimiters] 7 "Cleanup after inserting string STR.\nRemove enclosing field delimiters for STR. Display message with\nexpansion of STR using expansion list COMPL.\n\n(fn STR STATUS)"] 7 "\n\n(fn COMPL)"])
(defalias 'bibtex-complete-crossref-cleanup #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 514 "\211\302>\205 r\300q\210\212\303\304\"\205 *\211\205 \305\306#\262\207" vconcat vector [bibtex-summary-function (exact sole finished) bibtex-search-entry t message "%s %s"] 7 "Display summary message on entry KEY after completion of a crossref key.\nUse `bibtex-summary-function' to generate summary.\n\n(fn KEY STATUS)"] 7 "\n\n(fn BUF)"])
#@228 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'.
(fn &optional ARG)
(defalias 'bibtex-copy-summary-as-kill #[256 "\211\203 \302\303\304\"\211\203 \305\306\307\"!\202 \306\310!\207\212\311 \210\312!\203- \305\306\307 \"!\2020 \313\314!)\207" [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"] 6 (#$ . 114607) "P"])
#@99 Return summary of current BibTeX entry.
Used as default value of `bibtex-summary-function'.
(fn)
(defalias 'bibtex-summary #[0 "\306!\203X \307\310\311\312 \313 \314 \315 \316 !\317 \320 \"\321 #\307 $\320 %\313 &\322 \323\324'\"\323\325!\323\326\327\"\330\331\313B\313B\332B\333B\313B\334B\257\335#.\f\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 #[257 "\211A\300\230?\205
\211@AP\207" [#1#] 3 "\n\n(fn ARG)"] ": " ", " ":" #1# error "Entry not found" bibtex-autokey-additional-names bibtex-autokey-year-length bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-length bibtex-autokey-titleword-separator bibtex-autokey-transcriptions] 15 (#$ . 115211)])
#@157 Fill current field from the ARGth same field's text in DIRECTION.
Generic function used by `bibtex-pop-previous' and `bibtex-pop-next'.
(fn ARG DIRECTION)
(defalias 'bibtex-pop #[514 "\304\305!\211\211@@\262\211A@\262\3068\262\307\305\"\310\212\311=\2032 \312=\203, \202- \nb\210\202B \312=\203? \313 \210\202B \314 \210\211\204\214 S\211\262 \315Y\203\214 \312=\203r \316!\211\262\203l \211@@\262b\210\202B \305\262\202B \317!\211\262\203\206 \3208\262b\210\202B \305\262\202B \211\203\243 \321\322\312=\203\235 \323\202\236 \324\"\210\202\344 \325!\326\211@@\262!\326\3208\262!\327\330!\210b\210|\210U\203\327 \331 \332 \261\210\202\332 c\210\333!\333!\266)\266\334\310\211\211\305$\210\311\211\207" [last-command bibtex-pop-previous-search-point bibtex-pop-next-search-point this-command 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] 14 (#$ . 116334)])
#@193 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.
(fn)
(defalias 'bibtex-beginning-of-field #[0 "\301\302Q\303 \210\304!?\205 \305\306\307#\207" [bibtex-field-name "^[ ]*" "[ ]*=" beginning-of-line looking-at re-search-backward nil t] 5 (#$ . 117599)])
#@128 Font-lock for URLs. BOUND limits the search.
If NO-BUTTON is non-nil do not generate buttons.
(fn BOUND &optional NO-BUTTON)
(defalias 'bibtex-font-lock-url #[513 "\303`\304\211\211\211\211\304\262\305 \210\211\204\254 ` X\203\254 \306 \n\303#\307\310!\262\203\254 \311 \211\262\203\254 @\262A@\262Sf\312>\203F S\262f\313>\203Q T\262W\203] ^\262 X\203\254 X\203\242 \n\304\204\240 \211A\262@@\211\262\203\240 b\210@\314\315\304\315\304\303&\303=\266\202\205\233 \306A\303#\262\202l \266\211\204 b\210\202 \211\203\277 \204\277 \316\315\224\315\225\317\315\224$\210)\207" [case-fold-search bibtex-font-lock-url-regexp bibtex-generate-url-list 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] 21 (#$ . 118002)])
#@70 Font-lock for crossref fields. BOUND limits the search.
(fn BOUND)
(defalias 'bibtex-font-lock-crossref #[257 "\301`\302\303\211\211\303\262\304 \210\211\204- \305\301#\203- \306\224T\262\306\225S\262Y\262\202 \211\203A \307\310\311\"\301&\210)\207" [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] 14 (#$ . 118884)])
#@139 Font-lock for cited keys.
MATCHER identifies the cited key, see `bibtex-cite-matcher-alist'.
BOUND limits the search.
(fn MATCHER BOUND)
(defalias 'bibtex-font-lock-cite #[514 "\301\302@\303#\205% A\224A\225\304\305\306\"\303\211&\210\303\266\202)\207" [case-fold-search nil re-search-forward t bibtex-button bibtex-search-crossref buffer-substring-no-properties] 12 (#$ . 119390)])
#@45 Call BUTTON's BibTeX function.
(fn BUTTON)
(defalias 'bibtex-button-action #[257 "\300\301\302\"\301\303\"\"\207" [apply button-get bibtex-function bibtex-args] 6 (#$ . 119794)])
(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)
#@104 Make a BibTeX button from BEG to END of type TYPE in the current buffer.
(fn BEG END TYPE &rest ARGS)
(defalias 'bibtex-button #[899 "\300\301\302&\207" [make-text-button type bibtex-args] 11 (#$ . 120263)])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [bibtex-mode-hook variable-documentation put purecopy "Hook run when entering BibTeX mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bibtex-mode-map definition-name bibtex-mode] 5)
(defvar bibtex-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [bibtex-mode-map variable-documentation put purecopy "Keymap for `bibtex-mode'." boundp bibtex-mode-syntax-table definition-name bibtex-mode] 5)
(defvar bibtex-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [bibtex-mode-syntax-table variable-documentation put purecopy "Syntax table for `bibtex-mode'." bibtex-mode-abbrev-table definition-name bibtex-mode] 5)
(defvar bibtex-mode-abbrev-table (progn (define-abbrev-table 'bibtex-mode-abbrev-table nil) bibtex-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [bibtex-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `bibtex-mode'." bibtex-mode derived-mode-parent nil] 5)
#@2608 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 (syntactically 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.
\[completion-at-point] 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}
(fn)
(defalias 'bibtex-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
.\315\316\317\320\321$\210\306\322!\210/\2040 \3230\307\324#/\306\325!\210\326\306\327!\2101\306\330!\210\3311!\332P\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \306\341!\210\342!\306\343!\210\34423\\\345\"#\306\346!\210\347&\306\350!\210\3514!(\32056EC7\3078\315\352\353\320\307$\210)\354\355!\207" [delay-mode-hooks major-mode mode-name bibtex-mode-map bibtex-mode-syntax-table bibtex-mode-abbrev-table make-local-variable t kill-all-local-variables bibtex-mode "BibTeX" use-local-map set-syntax-table add-hook completion-at-point-functions bibtex-completion-at-point-function nil local bibtex-buffer-last-parsed-tick run-with-idle-timer 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-extra-managed-props category) (font-lock-mark-block-function lambda nil (set-mark (bibtex-end-of-entry)) (bibtex-beginning-of-entry))) syntax-propertize-function syntax-propertize-via-font-lock hack-local-variables-hook bibtex-set-dialect run-mode-hooks bibtex-mode-hook local-abbrev-table bibtex-parse-idle-timer bibtex-parse-keys-timeout bibtex-comment-start bibtex-entry-offset bibtex-contline-indentation bibtex-font-lock-syntactic-keywords bibtex-entry-head bibtex-key-in-head imenu-generic-expression imenu-case-fold-search] 5 (#$ . 121763) nil])
#@47 Return entry-alist for DIALECT.
(fn DIALECT)
(defalias 'bibtex-entry-alist #[257 "\300\301\302\"!\303\304!\203 J\262\202 \305\306\"\210\211@A@:\204% \211\202\307 \307N\204F \310\307\311#\210\312\313\314\315!=\203? \315\202@ \"\210\316\317!\210\303\211\203\302 \211@\211A@\303\211\211\320@!\211\203\222 \211@\3178\203j \317\233\321\240\210\3228\203~ \323@\322 8@\324#\203\206 \211B\262\202\213 \211B\262A\266\202\202X \210A@\211\203\250 \211@\211B\262A\266\202\202\226 \210@\303\237\237\237\257B\262\266A\266\202\202H \210\211\237\262\207" [intern format "bibtex-%s-entry-alist" nil boundp error "BibTeX dialect `%s' undefined" entry-list-format put "pre-24" message "Old format of `%s' (pre GNU Emacs 24).\nPlease convert to the new format." indirect-variable bibtex-entry-field-alist sit-for 3 copy-tree 0 2 assoc-string t] 16 (#$ . 126058)])
#@608 Select BibTeX DIALECT for editing BibTeX files.
This sets the user variable `bibtex-dialect' as well as the dialect-dependent
internal variables. Allowed dialects are listed in `bibtex-dialect-list'.
If DIALECT is nil use current value of `bibtex-dialect'.
If LOCAL is non-nil make buffer-local bindings for these variables rather than
setting the global values. The dialect-dependent internal variables
are also bound buffer-locally if `bibtex-dialect' is already buffer-local
in the current buffer (for example, as a file-local variable).
LOCAL is t for interactive calls.
(fn &optional DIALECT LOCAL)
(defalias 'bibtex-set-dialect #[512 "\211\204\n \305\300!\203 \306\202 \307\203 \211\300\"\210\211\301\211!\"\210\211\310\311\312\313\"!\314!\2032 \211J\2026 \315\316\"\262\"\210\211\302\317\320\321\322 \"!\323Q\"\210\211\304\324\n\325 \323\260\"\210\211\326\f\327P\"\210\211\330\331\320\332\333\321\322 \"\"!\323Q\"\207" [bibtex-dialect bibtex-entry-alist bibtex-entry-type bibtex-reference-key bibtex-entry-head local-variable-p #[514 "\300!L\207" [make-local-variable] 4 "\n\n(fn VAR VAL)"] set bibtex-field-alist intern format "bibtex-%s-field-alist" boundp error "Field types for BibTeX dialect `%s' undefined" "@[ ]*\\(?:" regexp-opt mapcar car "\\)" "^[ ]*\\(" "\\)[ ]*[({][ \n]*\\(" bibtex-entry-maybe-empty-head "?" bibtex-any-valid-entry-type "^[ ]*@[ ]*\\(?:" append ("String" "Preamble")] 12 (#$ . 126949) (byte-code "\301\302\303\304\305\"\306\307$!\307D\207" [bibtex-dialect-list intern completing-read "Dialect: " mapcar list nil t] 6)])
(byte-code "\302 \303!\211\2034 \211@\304\305!\306\307!\310\311\312\313\314\nD\315BBF\316\317\320\321\314 DF\257#\210A\266\202\202 \210\211\203\307 \211@\322!\302 \304\323\306\324 E#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\303!\211\203\250 \211@\211@\335\336\337\"!\340!\204\214 \341\342\311\336\343\"\344\345D\257!\210\304\305!\306A@\206\234 @E#\266A\266\202\202f \210\304 \305\346\"\306\347\350\320\321\314\fDE\257#\266A\266\202\2026 \210\207" [bibtex-dialect-list bibtex-mode-map make-sparse-keymap reverse define-key vector menu-item symbol-name lambda nil (interactive) bibtex-set-dialect quote (t) :button :radio eq bibtex-dialect bibtex-entry-alist [select] "BibTeX dialect" [nil-2] (menu-item "--") [bibtex-preamble] (menu-item "Preamble" bibtex-Preamble) [bibtex-String] (menu-item "String" bibtex-String) [nil-1] (menu-item "--") intern format "bibtex-%s" fboundp eval defun "Insert a template for a @%s entry; see also `bibtex-entry'." (interactive "*") bibtex-entry menu-bar "Entry-Types" :visible] 17)
#@382 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-BibTeX-entry-alist' and friends,
`bibtex-include-OPTkey', `bibtex-include-OPTcrossref',
and `bibtex-user-optional-fields'.
(fn ENTRY-TYPE)
(defalias 'bibtex-field-list #[257 "\304\305#\306\211\204 \307\310\"\210\311 \"\203) \3128\262\313\3148\3158\"\262\2028 \313\3128\3148\"\262\3158\262\n\203O \316\317\n;\204I \320\n!\205J \nEB\262\311 \"\203[ \321B\262\313 \"\262B\207" [bibtex-entry-alist bibtex-include-OPTcrossref bibtex-include-OPTkey bibtex-user-optional-fields assoc-string t nil error "Fields for BibTeX entry type %s not defined" member-ignore-case 2 append 3 4 "key" "Used for reference key creation if author and editor fields are missing" functionp ("crossref" "Reference key of the cross-referenced entry")] 8 (#$ . 129625)])
#@159 Insert a template for a BibTeX entry of type ENTRY-TYPE.
After insertion call the value of `bibtex-add-entry-hook' if that value
is non-nil.
(fn ENTRY-TYPE)
(defalias 'bibtex-entry #[257 "\205\n \304\305\306\"!\307!\310\311E!\204 \312\313\"\210 j\210\314\315 \261\210\203, c\210\212\316\317@\"\210\316\320A\"\210\n\203@ \321c\210\322c\210 j\210\323 \324\261\210)\325\326!\210\327 \"\203[ \330 \210\331\332!\207" [bibtex-maintain-sorted-entries bibtex-entry-offset bibtex-comma-after-last-field bibtex-autofill-types 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] 7 (#$ . 130641) (byte-code "\302\303\304 \305\302\305\306&)C\207" [completion-ignore-case bibtex-entry-alist t completing-read "Entry Type: " nil bibtex-entry-type-history] 7)])
#@416 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.
(fn &optional ENTRY-TYPE)
(defalias 'bibtex-entry-update #[256 "\212\302 \210\303!\205\231 \304\225b\210\211\203! \212\305\306P\307\211\211\310%\210)\202* \311 \224T \225\"\262\312!\313@!\313A!\307\314 \211\262\203\212 \315\316\"\317\3208\262\316\"\321\322\316#\"\262\321\322\316#\"\262\323\324\325!\"\203\203 \3268\262b\210\327 c\210\211A@\262b\210\330 c\210\211b\266\2026 \331\307x\210\332\333\"\210\332\334\"\266\204)\207" [bibtex-entry-maybe-empty-head bibtex-type-in-head 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" mapc bibtex-make-field bibtex-make-optional-field] 12 (#$ . 131705) (byte-code "\205 \303\304\305\n\306\303\306\307&)C\207" [current-prefix-arg completion-ignore-case bibtex-entry-alist t completing-read "New entry type: " nil bibtex-entry-type-history] 7)])
#@363 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.
(fn &optional CONTENT)
(defalias 'bibtex-parse-entry #[256 "\303\211\304!\203I \305\306 \224T \225\"BB\262\307\303\310\n!\206 \211\262BB\262\311\225b\210\312 \211\262\203I \313\314\"\315\"BB\262\211\3168\262b\210\202) \237\207" [bibtex-entry-maybe-empty-head bibtex-type-in-head 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] 7 (#$ . 133192)])
#@492 Try to fill fields of current BibTeX entry based on neighboring entries.
The current entry must have a key. Determine the neighboring entry
(previous 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).
(fn)
(defalias 'bibtex-autofill-entry #[0 "\305 \210\306!\205V\307 \224T \225\"\310\311\n!\206 \211\262\n\225\312\211\310\211\211\211\310\262 \310\262b\210\212\313\224Sb\210\305 \210\306!\203r \307 \224T \225\"\314\313\310\313\310\312&\312=\266\202\203r \310\311\n!\206c \211\262\211\262\232\204r \262`\262)\212\315 \210\316 \210\306!\203\314 \307 \224T \225\"\314\313\310\313\310\312&\312=\266\202\203\314 \310\311\n!\206\244 \211\262\211\262\232\204\314 \203\306 \317\320 D\"G\317\320\nD\"GW\203\314 \262`\262)\205S\212b\210\321 )\262`\262\322 \211\262\203 \323\324\312\"\312#\211\203\372 \325\312\"\320\232\204\3268\262b\210\202\211A@\262b\210`\3278\262|\210\211Ac\210\210\202\335 \317\320 D\"\330\331\"\2054\211\313\211\224O\211\262 G\310OG\310O\332\333!\f\334#\205Q\335!\210\202?\266\204*\266\211\207" [bibtex-entry-head bibtex-type-in-head bibtex-key-in-head bibtex-sort-ignore-string-entries case-fold-search 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] 19 (#$ . 134035) nil])
#@186 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.
(fn &optional FIELD COMMA)
(defalias 'bibtex-print-help-message #[512 "\204\f \304\305\211#@\262\306\307\"\203E \310\311\312\305\312\305\313&\313=\266\202\203* \314\315!\207\316\311\312\305\312\305\313&\313=\266\202\203A \314\317!\207\314\320!\207\313\212\321 \210\322 !\210\323\n\224T\n\225\")\324!\325\326@A\"\313#\314\327A@\203r A@\202\205 \325 \313#\211\262\203\204 A@\202\205 \330\")\207" [case-fold-search bibtex-entry-maybe-empty-head bibtex-type-in-head bibtex-field-alist 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"] 12 (#$ . 135911) (list nil t)])
#@556 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-BibTeX-entry-alist' and friends.
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.
(fn FIELD &optional MOVE INTERACTIVE NODELIM)
(defalias 'bibtex-make-field #[1025 ":\204 C\262\203 \305 \210\306\307!\203 \310u\210\311c\210 \\j\210\3128\203* \313c\210@\314\261\210\n\203; \315Z\\j\210\316c\210\n\204G \\j\210\3158\211\204T \317\262\202h \320!\203^ \211 \262\211;\204h \321\322\"\210\203r \211c\210\202z \323 \324 \261\210\210\205\220 h\325>\203\210 \326u\210\f\205\220 \327@!\207" [bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation bibtex-help-message 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] 8 (#$ . 136898) (byte-code "\304\305\212\306 \210\307!\210\310 \224T \225\")!\311\262\312\313\314@A\"\311\211\211 &)\266\202\304\211E\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head completion-ignore-case bibtex-field-history t bibtex-field-list bibtex-beginning-of-entry looking-at buffer-substring-no-properties nil completing-read "BibTeX field name: " append] 9)])
#@281 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.
(fn)
(defalias 'bibtex-beginning-of-entry #[0 "\300\301w\210\302\303!\203
\301u\210\304\305\301\306#\210`\207" [" " nil looking-at "@" re-search-backward "^[ ]*@" move] 4 (#$ . 138545) nil])
#@225 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.
(fn)
(defalias 'bibtex-end-of-entry #[0 "\302`\303 \304\302!\305\262\211\203 \211Ab\210\202K \306\302!\206 \307 \211\262\2031 \211\310A8\262b\210\202K \311 !\203> \312\313!\210\202K \314\315!\203H \316\317!\210b\210`)\207" [case-fold-search bibtex-any-valid-entry-type t bibtex-beginning-of-entry bibtex-valid-entry nil bibtex-parse-string bibtex-parse-preamble 2 looking-at error "Syntactically incorrect BibTeX entry starts here" called-interactively-p interactive message "Not on a known BibTeX entry."] 7 (#$ . 139021) nil])
#@72 Goto line ARG, counting from beginning of (narrowed) buffer.
(fn ARG)
(defalias 'bibtex-goto-line #[257 "eb\210\301=\203 \302\303\304\305S$\207\211Sy\207" [selective-display t re-search-forward "[\n
]" nil end] 6 (#$ . 139784)])
#@164 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.
(fn)
(defalias 'bibtex-reposition-window #[0 "`\300\301 !\300\302 !\303 ZV\203$ \304\305\306#\307\245!\210\310 \210b\202@ \304!\210\310\311!\210\300!ZT\303 V\203> \304!\202@ b\207" [line-number-at-pos bibtex-beginning-of-entry bibtex-end-of-entry window-body-height bibtex-goto-line + 1 2 recenter 0] 8 (#$ . 140024) nil])
#@68 Put mark at beginning, point at end of current BibTeX entry.
(fn)
(defalias 'bibtex-mark-entry #[0 "\300\301 !\210\302 \207" [push-mark bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 140521) nil])
#@271 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.
(fn &optional COUNT-STRING-ENTRIES)
(defalias 'bibtex-count-entries #[256 "\302C?\214 \203 \303 \304 }\210\305\306\307\310\311\312!\313\"\314\315%!\210)\316\317 \203+ \320\202, \321@#)\207" [bibtex-sort-ignore-string-entries mark-active 0 region-beginning region-end bibtex-map-entries make-byte-code 771 "\300\211@T\240\207" vconcat vector [] 5 "\n\n(fn KEY BEG END)" message "%s contains %d entries." "Region" "Buffer"] 9 (#$ . 140734) "P"])
#@47 Check BibTeX entry for spelling errors.
(fn)
(defalias 'bibtex-ispell-entry #[0 "\300\212\301 )\212\302 )\"\207" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 141424) nil])
#@59 Check abstract of BibTeX entry for spelling errors.
(fn)
(defalias 'bibtex-ispell-abstract #[0 "\212\300 \210\301\302\303\")\211\203 \304\211A@\262\3058\262\"\202! \306\307!\207" [bibtex-beginning-of-entry bibtex-search-forward-field "abstract" t ispell-region 2 error "No abstract in entry"] 6 (#$ . 141628) nil])
#@46 Narrow buffer to current BibTeX entry.
(fn)
(defalias 'bibtex-narrow-to-entry #[0 "\212~\210\300 \301 })\207" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 141956) nil])
#@355 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.
(fn)
(defalias 'bibtex-entry-index #[0 "\305\306 \307\305#\205< \307\310\n!\206 \211\262\311 \224T \225\"\227\f\312=\2036 \313\314\305\"\205/ \315\305\"E\262\202: \307E\266\202)\207" [case-fold-search bibtex-entry-maybe-empty-head bibtex-key-in-head bibtex-type-in-head bibtex-maintain-sorted-entries 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] 7 (#$ . 142144)])
#@66 Initialize `bibtex-sort-entry-class-alist' (buffer-local).
(fn)
(defalias 'bibtex-init-sort-entry-class-alist #[0 "\302\301!?\205E \303\301!\210\304\305\211\203@ \211@T\262\211\211\2038 \211@\211;\203) \211\227\202* \211BB\262A\266\202\202 \210A\266\202\202 \210\262\211\207" [bibtex-sort-entry-class bibtex-sort-entry-class-alist local-variable-p make-local-variable -1 nil] 8 (#$ . 142997)])
#@253 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.
(fn INDEX1 INDEX2)
(defalias 'bibtex-lessp #[514 "\204 \211?\207\211\204
\303\207\304=\203r A@\203U \305A@ \"A\203U \211A@\203M \305A@ \"A\203M A@A@\231\206\263 A@A@\230\205q @@\231\207\211@A@\231?\207\211A@\203l \305A@ \"A\203l @A@\231\207@@\231\207\306=\203\256 \307\3108\n\"\206\211 \307\311\n\"\206\211 \312A\307\3108\n\"\206\233 \307\311\n\"\206\233 \313AW\206\255 U\205\255 @@\231\207@@\231\207" [bibtex-maintain-sorted-entries bibtex-reference-keys bibtex-sort-entry-class-alist nil crossref assoc-string entry-class assoc 2 catch-all (nil . 1000) (nil . 1000)] 6 (#$ . 143412)])
#@293 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.
(fn)
(defalias 'bibtex-sort-buffer #[0 "\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 (#$ . 144269) nil])
#@884 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 NOERROR 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.
(fn CROSSREF-KEY &optional PNT SPLIT NOERROR)
(defalias 'bibtex-search-crossref #[1025 "\300\211\211\212\301\302\"\262p\262)p=\262\204% \203\207 \303\304\"\210\202\207 \203w \2040 `\262b\210\211\203I \212\305 )U\203I \303\306\"\210\202\207 \211\203U \307\310 !\210\202Y \311!\210b\210\312 \210\313 \210\211\203\207 V\203\207 \204\207 \314\315!\210\202\207 \211\203\201 b\210\202\207 q\210b\210\207" [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!"] 10 (#$ . 144964) (byte-code "\212`\302 \303\304!A\211?\205 \305\306!\307\225\310\311\"\312\211\312\211\203: \313\304\"\262\314 \3158\262\211@@\262#B\262 \211\203x \211@b\210\316@\n\304#\203q \314 A\225A\224#\262\203f @W\203E \317A!B\262\202E A\266\202\202; \210b\210\320\321A\304#\262`\304\205\217 \230?F)\266\211)\207" [case-fold-search bibtex-cite-matcher-alist bibtex-beginning-of-entry bibtex-valid-entry t error "Not inside valid entry" 0 bibtex-search-forward-field "\\(OPT\\)?crossref" nil bibtex-text-in-field-bounds bibtex-dist 3 re-search-forward match-string-no-properties bibtex-read-key "Find crossref key: "] 16)])
(defalias 'bibtex-find-crossref 'bibtex-search-crossref)
#@84 Return distance between POS and region delimited by BEG and END.
(fn POS BEG END)
(defalias 'bibtex-dist #[771 "X\203 X\203 \300\207W\203 Z\207Z\207" [0] 5 (#$ . 147225)])
#@695 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, START is nil, DISPLAY is t.
Also, GLOBAL is t if the current mode is not `bibtex-mode'
or `bibtex-search-entry-globally' is non-nil.
A prefix arg negates the value of `bibtex-search-entry-globally'.
(fn KEY &optional GLOBAL START DISPLAY)
(defalias 'bibtex-search-entry #[1025 "\203[ \203[ \304\305!\306\211\211\2044 \211A\262@\211\262\2034 rq\210\307 \"A\2030 \310!\262)\202
\211\203F \203F \311!\210\312 \210\202Z \211\203P q\210\202Z \203Z \313\314\"\210\207\305\212\206c eb\210\315\316 \317\320!\321\260\306\305#\205x \322\224)\211\203\212 \211b\210\203\224 \312 \210\202\224 \203\224 \313\314\"\210)\211\207" [bibtex-files bibtex-reference-keys case-fold-search bibtex-entry-type bibtex-initialize t nil assoc-string bibtex-search-entry switch-to-buffer bibtex-reposition-window message "Key `%s' not found" re-search-forward "^[ ]*\\(" "\\)[ ]*[({][ \n]*\\(" regexp-quote "\\)[ \n]*[,=]" 0] 10 (#$ . 147418) (byte-code "\303=?\206 \203 \n?\202 \n\304\305\306#\306\307F\207" [major-mode bibtex-search-entry-globally current-prefix-arg bibtex-mode bibtex-read-key "Find key: " nil t] 5)])
(defalias 'bibtex-find-entry 'bibtex-search-entry)
#@389 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.
(fn INDEX)
(defalias 'bibtex-prepare-new-entry #[257 "\303 \210\304=\203 \305 !\203 \306 \210\211@\307\2031 ;\203$ \310\230\2041 \311!\211\262\2047 \2047 \312 \210\202\324 \211\204\324 \313\212\314 )\212db\210\315\313!)\211\203R \211A\202S eY\205Z \307\211\212\204\251 \\\316\245b\210\315\313!\210\317 \262\320 \"\203\216 \321 \262\232\203\210 \262\202] \211\262\202] \322 \210\315 \210`\262\232\203\243 \262\202] \211\262\202] )b\210\321 \210\212\317 )\262\203\302 \320\n\"\203\321 \322 \210o\204\316 \323\316y!\210\324 \210)\266\211?\205\332 \313\207" [bibtex-maintain-sorted-entries bibtex-reference-keys 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] 12 (#$ . 149062)])
#@514 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.
(fn &optional TEST-THOROUGHLY)
(defalias 'bibtex-validate #[256 "\306\307C\307\212\214 \203 \310 \311 }\210eb\210\312\313!\210\307\211\314\315\307\306#\211\262\203q \312 \210\316\224b\210\317 \211\262\203; Ab\210\202 \320 \206B \321 \211\262\203T \322A8\262b\210\202 \323\n!\203k \324 \325B@B\240\210\316\225b\210\202 \211b\210\202 \266\312\326!\210@\203\202 \306\262\202\327 \210\330 \210\307C\307C\307C\312\331!\210\332\333\334\335\336\337\n $\340\"\341\342%!\210\312\326!\266\343\307\306\"\211\203\372 \211@r\211q\210 )\211\203\362 \211@\211A\203\353 \344@ \"A\203\353 \345@!\210\324 \346\347@\350\351 !!#B@B\240\210A\266\202\202\275 \210A\266\202\202\261 \210\203\312\352!\210\306 \332\333\334\353\336\337!\354\"\355\342%!\210)\312\326!\210*@\203\206\356\351 !
\357\360@\361\"\240\210r\362!q\210>\363=\204A\363 \210\306 ?ed|\210\364\203Q\365\202R\366\261\210@\211\203o\211@\346\367@A$c\210A\266\202\202W\210\370\307!\210)eb\210\322y\210)\371!\210\307\266\203\202\224\372\373 \203\220\374\202\221\375\"\210\306)\207" [case-fold-search mark-active bibtex-any-valid-entry-type bibtex-reference-keys bibtex-sort-ignore-string-entries default-directory 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 make-byte-code 771 "\305 \210\302\306 \240\210\301@\203< \303@\235\203% \300\307 \310\311\"B\300@B\240\210\202< \f\203< \312\301@\302@\"\204< \300\307 \313B\300@B\240\210\303\303@B\240\210\301\302@\240\207" vconcat vector [bibtex-maintain-sorted-entries bibtex-progress-message bibtex-entry-index bibtex-current-line format "Duplicate key `%s'" bibtex-lessp "Entries out of order"] 8 "\n\n(fn KEY BEG END)" 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" "\304 \210\305!\210\212b\210\306 )\307\310 \224T \225\"\n\311#\312\313\"\211\203) \314\3158!\2023 \316\3158\314\3178!\"\320\321\322\323\324\"!\"G\325\321\"\321\211\211\326 \211\262\203\275 \327!\211\330\331\332\321\332\321\311&\311=\266\202\203\201 \333!\334\335\"\206q \307 \311#?\262\203\201 \300\306 \336B\300@B\240\210\307\311#\262\337\"\262\3178\211\262\203\261 H\203\254 \300\306 \340B\300@B\240\210\202\261 \311I\210\210\3178\262b\210\202D \325\321\"\211\203\370 \211@\3178\211\262\203\343 @HBI\266\202\361 \300\f\341\342@\"B\300@B\240\210A\266\202\202\303 \210\332\211W\205!\211H\204\300
\341\343H\"B\300@B\240\210\210\211T\262\202\373 \266\202\262\207" [bibtex-type-in-head bibtex-entry-alist bibtex-predefined-month-strings bibtex-progress-message bibtex-beginning-first-field bibtex-current-line assoc-string buffer-substring-no-properties t bibtex-search-forward-field "crossref" copy-sequence 2 append 3 delq nil delete-dups mapcar #[257 "\3008\207" [3] 3 "\n\n(fn X)"] make-vector bibtex-parse-field bibtex-name-in-field "month" compare-strings 0 bibtex-text-in-field-bounds string-match "\\`[\"{].+[\"}]\\'" "Questionable month field" delete "More than one non-empty alternative" format "Required field `%s' missing" "Alternative fields `%s' missing"] 23 file-name-nondirectory "*BibTeX validation errors*" sort car-less-than-car get-buffer-create compilation-mode "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 display-buffer message "%s is syntactically correct" "Region" "Buffer" major-mode inhibit-read-only] 16 (#$ . 150423) "P"])
#@185 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.
(fn &optional STRINGS)
(defalias 'bibtex-validate-globally #[256 "\306\307!\310\211\211\211\211\203\206 \211@r\211q\210\212\310\211\211eb\210\311\310\307#\203t \312 \224T \225\"\262\310\313\n!\2062 \211\262\262\n\203N \314\315\316\310\316\310\307&\307=\266\202\204V \317 \307#\203 \235\203l \320\321\322 \323 $B\262\202 B\262\202 B B\262 \266*A\266\202\202 \210\211A\262@\211\262\203\341 \236A\262rq\210\211\203\334 \211@\211\236A\211\203\324 \211@\317\"\203\315 \324!\210\320\325\322 \323 \326\322 !!%B\262A\266\202\202\251 \210A\266\202\202\236 \210)\202\207 \211\203)\327r\330!q\210\f\331=\204\365 \331 \210\307 ed|\210\332c\210\333\334\"\211\203\211@\211c\210A\266\202\202\210\335\310!\210)eb\210\336y\210)\337!\210\310\262\202.\340\341!\210\307\207" [bibtex-entry-head bibtex-type-in-head bibtex-key-in-head bibtex-entry-alist major-mode inhibit-read-only 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 "BibTeX mode command `bibtex-validate-globally'\n\n" sort string-lessp set-buffer-modified-p 2 display-buffer message "No duplicate keys."] 21 (#$ . 154818) "P"])
#@234 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.
(fn BEGIN &optional COMMA)
(defalias 'bibtex-next-field #[513 "\302\303\304#\304\204 \303\262\2027 \3058b\210\306@\307\303#\203$ \303\262\2027 \310\311!\203. \312\225b\210\310\313!\2037 \303\262\211\203G \314\304\303#\203G \312\224b\210\315\304 #\207" [bibtex-any-entry-maybe-empty-head 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] 8 (#$ . 156425) (list current-prefix-arg t)])
#@465 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.
(fn &optional BEGIN NOERROR HELP COMMA)
(defalias 'bibtex-find-text #[1024 "\300\301\302#\211\2037 \203 \211A@b\210\303\304!\203, \302u\210\202, \3058b\210h\306>\203, \307u\210\205? \310@!\202? ?\205? \311\312!\207" [bibtex-find-text-internal t nil looking-at "[{\"]" 2 (125 34) -1 bibtex-print-help-message error "Not on BibTeX field"] 8 (#$ . 157146) (list current-prefix-arg nil bibtex-help-message t)])
#@654 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'.
(fn &optional NOERROR SUBFIELD COMMA)
(defalias 'bibtex-find-text-internal #[768 "\212`\305\306\"\306\307\211\211\211\211\211\211\211\307\262 \310 \210 \203B \311\n\306\"\262 \211A@\262\262 \3128\262\262 \3138\262\262\202\314\306!\211\262 \203\202 \n\n\312A8\262X\203| \315\262 \211A@\262\262 \211AA@\262\262 \312A8\262\262\202\306\262\202\316 \211\262 \203\301 \n\n\312A8\262X\203\273 \317\262 \211A@\262\262 \211AA@\262\262 \312A8\262\262\202\306\262\202\320 !\203\321\225b\210 \203\353 \322 \323\324\321\325\326\327!\330\"\313\331%DC\216\332\333\307\306#\210)\210\n`X\203\334\n!\262 \224\206\376 \321\225\262 \225\206\321\225\262\262\306\262\202\306\262\202\306\262\f\203\200\204\200\262\204\200b\210\204\200\320\f!\321\225\262\306\262\204P\335 \211\262 \nA\262\307\262\203w X\203f\nX\203f\306\262\202ib\210\320\336!\203/\321\225b\262\202/\306\262\306\262\202/\204\222\257\202\252\203\241
\204\241\337\340!\202\252
?\205\252\337\341!)\266\213)\207" [case-fold-search bibtex-entry-maybe-empty-head bibtex-type-in-head bibtex-key-in-head bibtex-field-const 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 funcall make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] "\n\n(fn)" 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"] 22 (#$ . 157991)])
#@211 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.
(fn &optional COMMA)
(defalias 'bibtex-remove-OPT-or-ALT #[256 "\304\305!\306\262\212\211\211@A@\262b\210\307\310!\205e \2050 \311 \312\211@A@\262\313@8\262\"\"?\205e \314\224\314\225|\210\315\316!\210\317u\210\320 \210\n\203P \313Zj\210\202S \321c\210\315\316!\210\320 \210\n\203c \321c\202e j*\207" [case-fold-search bibtex-no-opt-remove-re bibtex-align-at-equal-sign bibtex-text-indentation t bibtex-enclosing-field nil looking-at "OPT\\|ALT" string-match buffer-substring-no-properties 2 0 search-forward "=" -1 delete-horizontal-space " "] 10 (#$ . 160260) (list t)])
#@159 Remove "" or {} around current BibTeX field text.
Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for
interactive calls.
(fn &optional COMMA)
(defalias 'bibtex-remove-delimiters #[256 "\300\301\302#\3038?\205 \3048S\3048|\210\211A@A@T|\207" [bibtex-find-text-internal nil t 4 2] 5 (#$ . 161042) (list t)])
#@268 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.
(fn &optional COPY-ONLY COMMA)
(defalias 'bibtex-kill-field #[512 "\212\305\306!\211\3078\262\211@@\262b\210\310\311!\203% \312\313x\210`\262\202) \314\313w\210\315!\313\316!E B\211G\nV\203B \nS \233\313\241\210 \204L \211|\210)\266)\317\211\207" [case-fold-search bibtex-field-kill-ring bibtex-field-kill-ring-max bibtex-field-kill-ring-yank-pointer bibtex-last-kill-command t bibtex-enclosing-field 3 looking-at "[ \n]*[)}]" " \n" nil "," bibtex-name-in-field bibtex-text-in-field-bounds field] 10 (#$ . 161377) (list current-prefix-arg t)])
#@169 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.
(fn &optional COMMA)
(defalias 'bibtex-copy-field-as-kill #[256 "\300\301\"\207" [bibtex-kill-field t] 4 (#$ . 162182) (list t)])
#@175 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.
(fn &optional COPY-ONLY)
(defalias 'bibtex-kill-entry #[256 "\212\306\307 \310 !\210\311\312\n!\206 \211\262\313 \210\314 \311\315#\203\" \316\224b\210`\317\" B\211G\fV\2038 \fS \233\311\241\210 \204R |\210\320!\204R \321\306B\")\266)\322\211\207" [case-fold-search bibtex-any-entry-maybe-empty-head bibtex-key-in-head bibtex-entry-kill-ring bibtex-entry-kill-ring-max bibtex-entry-kill-ring-yank-pointer t bibtex-beginning-of-entry looking-at nil match-string-no-properties bibtex-end-of-entry re-search-forward move 0 buffer-substring-no-properties functionp delete entry bibtex-reference-keys bibtex-last-kill-command] 8 (#$ . 162467) "P"])
#@75 Copy the entire enclosing BibTeX entry to `bibtex-entry-kill-ring'.
(fn)
(defalias 'bibtex-copy-entry-as-kill #[0 "\300\301!\207" [bibtex-kill-entry t] 2 (#$ . 163286) nil])
#@235 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].
(fn &optional N)
(defalias 'bibtex-yank #[256 "\211\204 \301\262\302S\303\"\210\304\211\207" [this-command 1 bibtex-insert-kill t bibtex-yank] 4 (#$ . 163468) "*p"])
#@562 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.
(fn N)
(defalias 'bibtex-yank-pop #[257 "\306=\204\n \307\310!\210\306\311\312\312\262\313 !\204= \212\314\311!b\210\315\f!\203< \312\316
!\206- \211\262\211\262\203< \317\311B \")`\314\311!|\210\320\311\")\207" [last-command this-command inhibit-read-only bibtex-reference-keys bibtex-any-entry-maybe-empty-head bibtex-key-in-head bibtex-yank error "Previous command was not a BibTeX yank" t nil functionp mark looking-at match-string-no-properties delete bibtex-insert-kill] 6 (#$ . 163862) "*p"])
#@177 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.
(fn &optional COMMA)
(defalias 'bibtex-empty-field #[256 "\301!\211\211A@\262b\210`\3028\262|\210\303 \304 \261\210\305\306\307#\207" [bibtex-help-message bibtex-enclosing-field 2 bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-find-text t nil] 6 (#$ . 164933) (list t)])
#@210 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).
(fn ARG)
(defalias 'bibtex-pop-previous #[257 "\300\301\"\207" [bibtex-pop previous] 4 (#$ . 165390) "p"])
#@226 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).
(fn ARG)
(defalias 'bibtex-pop-next #[257 "\300\301\"\207" [bibtex-pop next] 4 (#$ . 165705) "p"])
#@643 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.
(fn &optional NEW-KEY CALLED-BY-REFORMAT)
(defalias 'bibtex-clean-entry #[512 "\306\307 \310!\206\f \311\312!\313 \224T \225\"\314\315\n!\206 \211\262\314\262\316\317\320\314\320\314\306&\306=\266\202\203< \311\321!\210\202X \322\317\320\314\320\314\306&\306=\266\202\203U \323\262\202X \324 \210\204a \211\204\240 \212\325\323=\203m \f\202n
!\210\n\224\203{ \n\224\n\225|\210\326 \262.\204\212 \211\327\230\203\234 \323=\203\226 \330!\202\232 \331\332\"\262\211c\210)?\205\243\212\333 \210\325
\314\334#\203\265 \320\224b\210`){\335 /\336 )\314/\203\347 0\203\321 \323=\204\347 |\210\337!?\262`\262\212c\210)\202\373 \340!\210`U?\206\371 \340\314#\262\211\203\311\341!\210\342 \211\203'\211@r\211q\210\3431\"A\203 \311\344\345 \"\210)A\266\202\202\210\323=\203L\3462!\204\223\3472\"\204\223\350\351 \306\"B2B2\202\223\3461!\204\223\3471\"\211\204g\306B1B1\202y\211A\204y\306B\352C1\"B1\210A@\203\223\347A@1\"\204\223A@C1B1\266-\205\243\212\214\353 \210\354\355!*)\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head bibtex-key-in-head case-fold-search bibtex-string-maybe-empty-head bibtex-entry-maybe-empty-head 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 re-search-forward bibtex-generate-autokey "" bibtex-read-string-key bibtex-read-key "Key to use: " 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 bibtex-autokey-edit-before-use bibtex-maintain-sorted-entries bibtex-sort-ignore-string-entries bibtex-reference-keys bibtex-strings] 17 (#$ . 166028) "P"])
#@175 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.
(fn BOUNDS JUSTIFY &optional MOVE)
(defalias 'bibtex-fill-field-bounds #[770 "\305\3068\262!\204 \211A@\262b\210\202] \211@@\262b\210\307u\210\310 \210\311c\210 \\j\210\312\313\"\210\314\315!\210\316u\210\n\203G \317Z\\j\210\202J \320c\210\307u\210\310 \210\n\203Z \320c\210\202] j\210\321\322 \f\307`%\210\205l \211b\207" [bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation default-justification copy-marker 3 nil bibtex-delete-whitespace "\n" re-search-forward "[ \n]*=" replace-match "=" -1 2 " " fill-region-as-paragraph line-beginning-position] 10 (#$ . 168673)])
#@203 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'.
(fn &optional JUSTIFY)
(defalias 'bibtex-fill-field #[256 "\300`!\301\302!\303\"\210b\207" [copy-marker bibtex-enclosing-field t bibtex-fill-field-bounds] 6 (#$ . 169450) "*P"])
#@316 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.
(fn)
(defalias 'bibtex-fill-entry #[0 "\301`!\302 \303\304 \210j\210\305!\210\306 \211\262\203! \307\310\211#\210\202 \311\312!\203* \303u\210\313\303x\210\304 \210\314c\210j\210b\207" [bibtex-entry-offset copy-marker bibtex-beginning-of-entry nil bibtex-delete-whitespace bibtex-beginning-first-field bibtex-parse-field bibtex-fill-field-bounds t looking-at "," " \n" "\n"] 7 (#$ . 169817) "*"])
#@78 Realign BibTeX entries such that they are separated by one blank line.
(fn)
(defalias 'bibtex-realign #[0 "eb\210\302\303\304Q\305\262\306!\203 \307\310!\210\311\305\302#\203& \307\312!\210\202 \313 \210\311\305\302#\205B \314 \210\315 \210\316m\203@ \317\202A \320!)\207" [bibtex-entry-type case-fold-search t "[ \n]*\\(" "\\)" nil looking-at replace-match "\\1" re-search-forward "\n\n\\1" beginning-of-line bibtex-end-of-entry bibtex-delete-whitespace open-line 1 2] 6 (#$ . 170538)])
#@396 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.
(fn &optional READ-OPTIONS)
(defalias 'bibtex-reformat #[256 "`\306!\307\232\205 \206 \203: \211\203 \202J \310\311\312\313\314\315\316\n\203) \317\202* \320\321P\322B\323BBBB\"\"\211\202J \324=\203D \325\202J \326\327\330 \"B\205\\ \211\203W \202\\ \331\332!\211\324 \311 \214/\203l \333 \334 }\210\326 >\203u \335 \210\336\337\340\"\210\341\342\343\344\345\346!\347\"\350\351%!\210\336\352!\210)\211\203\250 \353\354!\2100\203\250 \336\355\340\"\210\356 \210\336\352!\210b+\207" [bibtex-reformat-previous-options bibtex-reformat-previous-reference-keys bibtex-comma-after-last-field bibtex-entry-format bibtex-sort-ignore-string-entries bibtex-autokey-edit-before-use prefix-numeric-value 16 delq nil mapcar #[257 "\300@!\205 \211A\207" [y-or-n-p] 3 "\n\n(fn OPTION)"] ("Realign entries (recommended)? " . realign) ("Remove empty optional and alternative fields? " . opts-or-alts) ("Remove delimiters around pure numerical fields? " . numerical-fields) "Insert" "Remove" " comma at end of entry? " last-comma (("Replace double page dashes by single ones? " . page-dashes) ("Delete whitespace at the beginning and end of fields? " . whitespace) ("Inherit booktitle? " . inherit-booktitle) ("Force delimiters? " . delimiters) ("Unify case of entry types and field names? " . unify-case) ("Enclose parts of field entries by braces? " . braces) ("Replace parts of field entries by string constants? " . strings) ("Sort fields? " . sort-fields)) t (realign opts-or-alts numerical-fields delimiters last-comma page-dashes unify-case inherit-booktitle whitespace braces strings sort-fields) realign remove required-fields y-or-n-p "Generate new reference keys automatically? " region-beginning region-end bibtex-realign bibtex-progress-message "Formatting" 1 bibtex-map-entries make-byte-code 771 "\301 \210\302\300\303\"\207" vconcat vector [bibtex-progress-message bibtex-clean-entry t] 6 "\n\n(fn KEY BEG END)" done kill-local-variable bibtex-reference-keys "Sorting" bibtex-sort-buffer mark-active bibtex-maintain-sorted-entries] 12 (#$ . 171044) "*P"])
#@397 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.
(fn &optional READ-OPTIONS)
(defalias 'bibtex-convert-alien #[256 "\306\307!\210\310\311!\210\312 \210\313 \204 \205\206 \n\314=\203\" \242\314=\202# \n\203[ \315 \203[ \316 \203[ \203> \317\320 \"\210\313\202[ \321 \322 U\204[ \323\320!\204R \324\320!\204[ \317\320\321 \322 {\"\210\204w \325=\204q \242\314=\203w A\204w \313\211\202\206 \242\314=\203\201 A\313\326\327!)\210\313 \330 )\204\224 \306\331!\207\306\332!\210\310\333!\210\334!\210db\210\306\335!\207" [force transient-mark-mode select-active-regions saved-region-selection mark-active bibtex-maintain-sorted-entries message "Starting to validate buffer..." sit-for 1 bibtex-realign nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda 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."] 5 (#$ . 173492) "*P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias bibtex-complete completion-at-point nil make-obsolete "24.1"] 4)
(defalias 'bibtex-completion-at-point-function #[0 "`\304\212\305\306!\210\307u\210`)`\307\211\211C\307\262\212\310\307\304\"\211\262\203u \211A@\262Y\203u \3118\262X\203u \312\304\"\262\211\313\314\315\307\315\307\304&\304=\266\202\203W \316\202p \317\314\315\307\315\307\304&\304=\266\202\203n \202p \320 \240\210\202\321 \210\322\304!\211\262\203\275 @A@Y\203\234 \311@8X\203\234 \211\323\240\210\202\211A@\262Y\203\211AA@\262X\203\211\320 \240\210\202\324 \211\262\203\346 \211A@\262Y\203\211AA@\262X\203\211\320 \240\210\202\325\n!\203 \224\203 \224Y\203 \225X\204 \224\204\315\225U\203\211\326\240\210)\211@\326=\203!\327E\202`\211@\316=\2037p\330\331\332!\257\262\202`\211@\323=\203E\333E\202`\211@\205`\334\335\336\337\340!\341\"\342\343%\331\344@!\257)\207" [case-fold-search bibtex-predefined-month-strings bibtex-entry-maybe-empty-head bibtex-key-in-head t re-search-backward "[ {\"]" 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 #[771 "\301\302\303 $)\207" [completion-ignore-case nil complete-with-action bibtex-global-key-alist] 8 "\n\n(fn S P A)"] #[771 "\211\301=\203 \302\207\303\304\305 $)\207" [completion-ignore-case metadata (metadata (category . bibtex-key)) nil complete-with-action bibtex-global-key-alist] 8 "\n\n(fn S P A)"] :exit-function bibtex-complete-crossref-cleanup #[771 "\302\303 $)\207" [completion-ignore-case bibtex-strings t complete-with-action] 8 "\n\n(fn S P A)"] make-byte-code 771 "\211\302=\203 \303\207\304\305\300@$)\207" vconcat vector [completion-ignore-case metadata (metadata (category . bibtex-string)) t complete-with-action] 8 "\n\n(fn S P A)" bibtex-complete-string-cleanup] 18 "\n\n(fn)"])
#@69 Insert a new BibTeX @String entry with key KEY.
(fn &optional KEY)
(defalias 'bibtex-String #[256 "?\205 \303\303\262\304\303\305E!\204 \306\307\"\210\310G!\203$ \303\262\nj\210\311\312 \261\210\2037 c\210\202: `\262\313\314 \261\210\203G `\262\315 \316 \317\261\210\211b)\207" [bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries 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"] 7 (#$ . 176955) (byte-code "\300 C\207" [bibtex-read-string-key] 1)])
#@44 Insert a new BibTeX @Preamble entry.
(fn)
(defalias 'bibtex-Preamble #[0 "\301 \210j\210\302\303 \304 \261\210`\305 \306 \307\261\210\211b\207" [bibtex-entry-offset bibtex-move-outside-of-entry "@Preamble" bibtex-entry-left-delimiter bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n"] 4 (#$ . 177638) "*"])
#@475 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.
(fn &optional POS NO-BROWSE)
(defalias 'bibtex-url #[512 "\204 `\262\212b\210\303 \210\212\304 )\212\305\306!)\306\307\211\211\211\211\211\307\262\310 \306\"\203G \311 \312\224\312\225#\312\224\313\312\224\312\225\"EB\262\307u\210\202$ \211\203\300 \314\315\"@\262\211A@b\210\316 \210\317\320!\210\321 \322!\323\306\" \324\325\3268!\"\203\276 \312\224\307O\262\n\204\276 \211A\262@\211\262 \203\276 \211@@)\327\312\307\312\307\306&\306=\266\202\203{ \324\211@A) \"\203{ \306\262 A\262\202{ \266\204\377 \204\376 \211A\262@\211\262\203\376 \330\211@@)\n\306#A\211\262\203\305 \324\211@A)\"\203\305 \306\262A\262\202\305 \210\203\241\204\331\312\"\202\212@;\203 \211A\262@\262\211\203w\211@\330@ \306#A\262\324A@ \"\203j\332\3268!\203I\3268!\202c\3268\247\203Z\331\3268 \"\202c\333\3268\306\307 $B\262\202p\334\335 \"\210A\266\202\202 \210\203\205\336\337\237#\202\212\336\340\237\"\262\341\342!\203\230\343\344\"\210 \204\241\345!\210\204\257\341\342!\203\257\343\346!\210)\266\211)\207" [case-fold-search bibtex-generate-url-list x 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 #[514 "@@W\207" [] 4 "\n\n(fn X Y)"] 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 called-interactively-p interactive message "%s" browse-url "No URL known."] 26 (#$ . 177997) nil])
#@815 Search BibTeX entries for FIELD matching REGEXP.
REGEXP may be a regexp to search for.
If REGEXP is a function, it is called for each entry with two args,
the buffer positions of beginning and end of entry. Then an entry
is accepted if this function returns non-nil.
If FIELD is an empty string perform search for REGEXP in whole entry.
With GLOBAL non-nil, search in `bibtex-files'. Otherwise the search
is limited to the current buffer.
If DISPLAY is non-nil, display search results in `bibtex-search-buffer'.
When called interactively, DISPLAY is t.
Also, GLOBAL is t if `bibtex-search-entry-globally' is non-nil.
A prefix arg negates the value of `bibtex-search-entry-globally'.
Return alist with elements (KEY FILE ENTRY),
where FILE is the BibTeX file of ENTRY.
(fn FIELD REGEXP &optional GLOBAL DISPLAY)
(defalias 'bibtex-search-entries #[1026 "C\304!\305C\305C\305C\203 @\306\230\203 \307\240\210\203) \203) \310\311!\202+ pC\211\203\314 \211@r\211q\210 \203@ \312 !\202C \313!\240\210\212eb\210@\306\230\203\251 \314\n\305\311#\203\304 \315 \316 \305\317\224X\203\244 \317\225X\203\244 \212b\210\320\n!\205\204 \305\321 !\206 \211\262\211\262)\203\244 \322 @\"\204\244 @\323\"E @B\240\210\266\202Q \324\325\326\327\330\331\f
&\332\"\333\334%!\210*A\266\202\202+ \210\203\366 @\203\336 \335@!\210\202\366 \336\337@\306\230\203\354 \306\202\362 \340\341@\"\n#\210@\266\204\207" [bibtex-files buffer-file-name bibtex-entry-head bibtex-key-in-head functionp nil "" "unrestricted" bibtex-initialize t file-name-nondirectory buffer-name re-search-forward bibtex-beginning-of-entry bibtex-end-of-entry 0 looking-at match-string-no-properties assoc buffer-substring-no-properties bibtex-map-entries make-byte-code 771 "\302\203 \301\"\202 \304\306\300@\307\"\240\2053 \310\301\304@\"\2053 \311\303@\"?\2053 \303\305@\312\"E\303@B\240\207" vconcat vector [bibtex-text-in-field t string-match assoc buffer-substring-no-properties] 9 "\n\n(fn KEY BEG END)" bibtex-display-entries message "No BibTeX entries %smatching `%s'" format "with field `%s' "] 23 (#$ . 180130) (byte-code "\304\305\306\307\310\311\312 \"#!\313\314$\315\316!\n\203 ?\202 \314F\207" [bibtex-user-optional-fields bibtex-entry-alist bibtex-search-entry-globally current-prefix-arg completing-read "Field: " delete-dups apply append mapcar #[257 "\300\301\302\303AA\"\"\207" [mapcar car apply append] 6 "\n\n(fn X)"] nil t read-string "Regexp: "] 9)])
#@239 Display BibTeX ENTRIES in `bibtex-search-buffer'.
ENTRIES is an alist with elements (KEY FILE ENTRY),
where FILE is the BibTeX file of ENTRY.
If APPEND is non-nil, append ENTRIES to those already displayed.
(fn ENTRIES &optional APPEND)
(defalias 'bibtex-display-entries #[513 "\302\303!!\210\304\211\203 db\210\202 \305 \210\306\307\"\211\2032 \211@\310A@\311\3128\313\261\210A\266\202\202 \210)\314 \210\315\304!\210\316eb\207" [bibtex-search-buffer buffer-read-only pop-to-buffer get-buffer-create nil erase-buffer sort #[514 "@@\231\207" [] 4 "\n\n(fn X Y)"] "% " "\n" 2 "\n\n" bibtex-mode set-buffer-modified-p t] 9 (#$ . 182628)])
(provide 'bibtex)