;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:15 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/bibtex.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bibtex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\304\313\306\303\310\314&\207" [require button custom-declare-group bibtex nil "BibTeX mode." :group tex :prefix "bibtex-" bibtex-autokey "Generate automatically a key from the author/editor and the title field." "bibtex-autokey-"] 8) #@52 List of functions to call on entry to BibTeX mode. (custom-declare-variable 'bibtex-mode-hook 'nil '(#$ . 876) :group 'bibtex :type 'hook) #@76 Type of field delimiters. Allowed values are `braces' or `double-quotes'. (custom-declare-variable 'bibtex-field-delimiters ''braces '(#$ . 1021) :group 'bibtex :type '(choice (const braces) (const double-quotes))) #@74 Type of entry delimiters. Allowed values are `braces' or `parentheses'. (custom-declare-variable 'bibtex-entry-delimiters ''braces '(#$ . 1243) :group 'bibtex :type '(choice (const braces) (const parentheses))) #@55 List of BibTeX entries that get an OPTcrossref field. (custom-declare-variable 'bibtex-include-OPTcrossref ''("InProceedings" "InCollection") '(#$ . 1461) :group 'bibtex :type '(repeat string)) #@182 If non-nil, all newly created entries get an OPTkey field. If this is a string, use it as the initial field text. If this is a function, call it to generate the initial field text. (custom-declare-variable 'bibtex-include-OPTkey 't '(#$ . 1662) :group 'bibtex :type '(choice (const :tag "None" nil) (string :tag "Initial text") (function :tag "Initialize Function") (const :tag "Default" t))) (put 'bibtex-include-OPTkey 'risky-local-variable t) #@186 List of optional fields the user wants to have always present. Entries should be of the same form as the OPTIONAL and CROSSREF-OPTIONAL lists in `bibtex-entry-field-alist' (which see). (custom-declare-variable 'bibtex-user-optional-fields ''(("annote" "Personal annotation (ignored)")) '(#$ . 2115) :group 'bibtex :type '(repeat (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" (const nil) string function))))) (put 'bibtex-user-optional-fields 'risky-local-variable t) #@1381 Type of formatting performed by `bibtex-clean-entry'. It may be t, nil, or a list of symbols out of the following: opts-or-alts Delete empty optional and alternative fields and remove OPT and ALT prefixes from used fields. required-fields Signal an error if a required field is missing. numerical-fields Delete delimiters around numeral fields. page-dashes Change double dashes in page field to single dash (for scribe compatibility). inherit-booktitle If entry contains a crossref field and the booktitle field is empty, set the booktitle field to the content of the title field of the crossreferenced entry. realign Realign entries, so that field texts and perhaps equal signs (depending on the value of `bibtex-align-at-equal-sign') begin in the same column. last-comma Add or delete comma on end of last field in entry, according to value of `bibtex-comma-after-last-field'. delimiters Change delimiters according to variables `bibtex-field-delimiters' and `bibtex-entry-delimiters'. unify-case Change case of entry and field names. The value t means do all of the above formatting actions. The value nil means do no formatting at all. (custom-declare-variable 'bibtex-entry-format ''(opts-or-alts required-fields numerical-fields) '(#$ . 2625) :group 'bibtex :type '(choice (const :tag "None" nil) (const :tag "All" t) (set :menu-tag "Some" (const opts-or-alts) (const required-fields) (const numerical-fields) (const page-dashes) (const inherit-booktitle) (const realign) (const last-comma) (const delimiters) (const unify-case)))) #@157 List of functions to call when entry has been cleaned. Functions are called with point inside the cleaned entry, and the buffer narrowed to just the entry. (custom-declare-variable 'bibtex-clean-entry-hook 'nil '(#$ . 4410) :group 'bibtex :type 'hook) #@598 If non-nil, BibTeX mode maintains all entries in sorted order. Allowed non-nil values are: plain or t All entries are sorted alphabetically. crossref All entries are sorted alphabetically unless an entry has a crossref field. These crossrefed entries are placed in alphabetical order immediately preceding the main entry. entry-class The entries are divided into classes according to their entry name, see `bibtex-sort-entry-class'. Within each class the entries are sorted alphabetically. See also `bibtex-sort-ignore-string-entries'. (custom-declare-variable 'bibtex-maintain-sorted-entries 'nil '(#$ . 4669) :group 'bibtex :type '(choice (const nil) (const plain) (const crossref) (const entry-class) (const t))) (put 'bibtex-maintain-sorted-entries 'safe-local-variable '(lambda (a) (memq a '(nil t plain crossref entry-class)))) #@304 List of classes of BibTeX entry names, used for sorting entries. If value of `bibtex-maintain-sorted-entries' is `entry-class' entries are ordered according to the classes they belong to. Each class contains a list of entry names. An entry `catch-all' applies to all entries not explicitly mentioned. (custom-declare-variable 'bibtex-sort-entry-class ''(("String") (catch-all) ("Book" "Proceedings")) '(#$ . 5571) :group 'BibTeX :type '(repeat (choice :tag "Class" (const :tag "catch-all" (catch-all)) (repeat :tag "Entry name" string)))) (put 'bibtex-sort-entry-class 'safe-local-variable #[(x) "\304 :\2033 \211A@\n:\203)\n\211A@\211;\204% \305=\204%\306)\202 \n\203/\306)\202 \2039\306)\207" [OK x y z t catch-all nil] 3]) #@201 If non-nil, BibTeX @String entries are not sort-significant. That means they are ignored when determining ordering of the buffer (e.g., sorting, locating alphabetical position for new entries, etc.). (custom-declare-variable 'bibtex-sort-ignore-string-entries 't '(#$ . 6324) :group 'bibtex :type 'boolean) #@75 Max length of `bibtex-field-kill-ring' before discarding oldest elements. (custom-declare-variable 'bibtex-field-kill-ring-max '20 '(#$ . 6637) :group 'bibtex :type 'integer) #@75 Max length of `bibtex-entry-kill-ring' before discarding oldest elements. (custom-declare-variable 'bibtex-entry-kill-ring-max '20 '(#$ . 6818) :group 'bibtex :type 'integer) #@137 Time interval in seconds for parsing BibTeX buffers during idle time. Parsing initializes `bibtex-reference-keys' and `bibtex-strings'. (custom-declare-variable 'bibtex-parse-keys-timeout '60 '(#$ . 7000) :group 'bibtex :type 'integer) #@123 If non-nil, use fast but simplified algorithm for parsing BibTeX keys. If parsing fails, try to set this variable to nil. (custom-declare-variable 'bibtex-parse-keys-fast 't '(#$ . 7243) :group 'bibtex :type 'boolean) #@1057 List of BibTeX entry types and their associated fields. List elements are triples (ENTRY-NAME (REQUIRED OPTIONAL) (CROSSREF-REQUIRED CROSSREF-OPTIONAL)). ENTRY-NAME is the name of a BibTeX entry. The remaining pairs contain the required and optional fields of the BibTeX entry. The second pair is used if a crossref field is present and the first pair is used if a crossref field is absent. If the second pair is nil, the first pair is always used. REQUIRED, OPTIONAL, CROSSREF-REQUIRED and CROSSREF-OPTIONAL are lists. Each element of these lists is a list of the form (FIELD-NAME COMMENT-STRING INIT ALTERNATIVE-FLAG). COMMENT-STRING, INIT, and ALTERNATIVE-FLAG are optional. FIELD-NAME is the name of the field, COMMENT-STRING is the comment that appears in the echo area, INIT is either the initial content of the field or a function, which is called to determine the initial content of the field, and ALTERNATIVE-FLAG (either nil or t) marks if the field is an alternative. ALTERNATIVE-FLAG may be t only in the REQUIRED or CROSSREF-REQUIRED lists. (custom-declare-variable 'bibtex-entry-field-alist ''(("Article" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article (BibTeX converts it to lowercase)") ("journal" "Name of the journal (use string, remove braces)") ("year" "Year of publication")) (("volume" "Volume of the journal") ("number" "Number of the journal (only allowed if entry contains volume)") ("pages" "Pages in the journal") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article (BibTeX converts it to lowercase)")) (("pages" "Pages in the journal") ("journal" "Name of the journal (use string, remove braces)") ("year" "Year of publication") ("volume" "Volume of the journal") ("number" "Number of the journal") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Book" ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book")) (("publisher" "Publishing company") ("year" "Year of publication") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Booklet" ((("title" "Title of the booklet (BibTeX converts it to lowercase)")) (("author" "Author1 [and Author2 ...] [and others]") ("howpublished" "The way in which the booklet was published") ("address" "Address of the publisher") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InBook" ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("chapter" "Chapter in the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("pages" "Pages in the book") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]" nil t) ("editor" "Editor1 [and Editor2 ...] [and others]" nil t) ("title" "Title of the book") ("chapter" "Chapter in the book")) (("pages" "Pages in the book") ("publisher" "Publishing company") ("year" "Year of publication") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InCollection" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in book (BibTeX converts it to lowercase)") ("booktitle" "Name of the book") ("publisher" "Publishing company") ("year" "Year of publication")) (("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("chapter" "Chapter in the book") ("pages" "Pages in the book") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in book (BibTeX converts it to lowercase)") ("booktitle" "Name of the book")) (("pages" "Pages in the book") ("publisher" "Publishing company") ("year" "Year of publication") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the book in the series") ("number" "Number of the book in a small series (overwritten by volume)") ("series" "Series in which the book appeared") ("type" "Word to use instead of \"chapter\"") ("chapter" "Chapter in the book") ("address" "Address of the publisher") ("edition" "Edition of the book as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InProceedings" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in proceedings (BibTeX converts it to lowercase)") ("booktitle" "Name of the conference proceedings") ("year" "Year of publication")) (("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("pages" "Pages in the conference proceedings") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article in proceedings (BibTeX converts it to lowercase)")) (("booktitle" "Name of the conference proceedings") ("pages" "Pages in the conference proceedings") ("year" "Year of publication") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Manual" ((("title" "Title of the manual")) (("author" "Author1 [and Author2 ...] [and others]") ("organization" "Publishing organization of the manual") ("address" "Address of the organization") ("edition" "Edition of the manual as a capitalized English word") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("MastersThesis" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the master's thesis (BibTeX converts it to lowercase)") ("school" "School where the master's thesis was written") ("year" "Year of publication")) (("type" "Type of the master's thesis (if other than \"Master's thesis\")") ("address" "Address of the school (if not part of field \"school\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Misc" (nil (("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the work (BibTeX converts it to lowercase)") ("howpublished" "The way in which the work was published") ("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication") ("note" "Remarks to be put at the end of the \\bibitem")))) ("PhdThesis" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the PhD. thesis") ("school" "School where the PhD. thesis was written") ("year" "Year of publication")) (("type" "Type of the PhD. thesis") ("address" "Address of the school (if not part of field \"school\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Proceedings" ((("title" "Title of the conference proceedings") ("year" "Year of publication")) (("booktitle" "Title of the proceedings for cross references") ("editor" "Editor1 [and Editor2 ...] [and others]") ("volume" "Volume of the conference proceedings in the series") ("number" "Number of the conference proceedings in a small series (overwritten by volume)") ("series" "Series in which the conference proceedings appeared") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("note" "Remarks to be put at the end of the \\bibitem")))) ("TechReport" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the technical report (BibTeX converts it to lowercase)") ("institution" "Sponsoring institution of the report") ("year" "Year of publication")) (("type" "Type of the report (if other than \"technical report\")") ("number" "Number of the technical report") ("address" "Address of the institution (if not part of field \"institution\") or country") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Unpublished" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the unpublished work (BibTeX converts it to lowercase)") ("note" "Remarks to be put at the end of the \\bibitem")) (("month" "Month of the publication as a string (remove braces)") ("year" "Year of publication"))))) '(#$ . 7469) :group 'bibtex :type '(repeat (group (string :tag "Entry name") (group (repeat :tag "Required fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" (const :tag "No" nil) (const :tag "Yes" t))))) (repeat :tag "Optional fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function))))) (option :extra-offset -4 (group (repeat :tag "Crossref: required fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function)) (option (choice :tag "Alternative" (const :tag "No" nil) (const :tag "Yes" t))))) (repeat :tag "Crossref: optional fields" (group (string :tag "Field") (string :tag "Comment") (option (choice :tag "Init" :value nil (const nil) string function))))))))) (put 'bibtex-entry-field-alist 'risky-local-variable t) #@35 String starting a BibTeX comment. (custom-declare-variable 'bibtex-comment-start '"@Comment" '(#$ . 20100) :group 'bibtex :type 'string) #@64 List of functions to call when BibTeX entry has been inserted. (custom-declare-variable 'bibtex-add-entry-hook 'nil '(#$ . 20243) :group 'bibtex :type 'hook) #@129 Alist of month string definitions used in the BibTeX style files. Each element is a pair of strings (ABBREVIATION . EXPANSION). (custom-declare-variable 'bibtex-predefined-month-strings ''(("jan" . "January") ("feb" . "February") ("mar" . "March") ("apr" . "April") ("may" . "May") ("jun" . "June") ("jul" . "July") ("aug" . "August") ("sep" . "September") ("oct" . "October") ("nov" . "November") ("dec" . "December")) '(#$ . 20408) :group 'bibtex :type '(repeat (cons (string :tag "Month abbreviation") (string :tag "Month expansion")))) #@123 Alist of string definitions used in the BibTeX style files. Each element is a pair of strings (ABBREVIATION . EXPANSION). (custom-declare-variable 'bibtex-predefined-strings '(append bibtex-predefined-month-strings '(("acmcs" . "ACM Computing Surveys") ("acta" . "Acta Informatica") ("cacm" . "Communications of the ACM") ("ibmjrd" . "IBM Journal of Research and Development") ("ibmsj" . "IBM Systems Journal") ("ieeese" . "IEEE Transactions on Software Engineering") ("ieeetc" . "IEEE Transactions on Computers") ("ieeetcad" . "IEEE Transactions on Computer-Aided Design of Integrated Circuits") ("ipl" . "Information Processing Letters") ("jacm" . "Journal of the ACM") ("jcss" . "Journal of Computer and System Sciences") ("scp" . "Science of Computer Programming") ("sicomp" . "SIAM Journal on Computing") ("tcs" . "Theoretical Computer Science") ("tocs" . "ACM Transactions on Computer Systems") ("tods" . "ACM Transactions on Database Systems") ("tog" . "ACM Transactions on Graphics") ("toms" . "ACM Transactions on Mathematical Software") ("toois" . "ACM Transactions on Office Information Systems") ("toplas" . "ACM Transactions on Programming Languages and Systems"))) '(#$ . 20955) :group 'bibtex :type '(repeat (cons (string :tag "String") (string :tag "String expansion")))) #@176 List of BibTeX files containing string definitions. List elements can be absolute file names or file names relative to the directories specified in `bibtex-string-file-path'. (custom-declare-variable 'bibtex-string-files 'nil '(#$ . 22250) :group 'bibtex :type '(repeat file)) #@69 *Colon separated list of paths to search for `bibtex-string-files'. (defvar bibtex-string-file-path (getenv "BIBINPUTS") (#$ . -22533)) #@340 List of BibTeX files that are searched for entry keys. List elements can be absolute file names or file names relative to the directories specified in `bibtex-file-path'. If an element is a directory, check all BibTeX files in this directory. If an element is the symbol `bibtex-file-path', check all BibTeX files in `bibtex-file-path'. (custom-declare-variable 'bibtex-files 'nil '(#$ . 22676) :group 'bibtex :type '(repeat (choice (const :tag "bibtex-file-path" bibtex-file-path) directory file))) #@62 *Colon separated list of paths to search for `bibtex-files'. (defvar bibtex-file-path (getenv "BIBINPUTS") (#$ . -23184)) #@74 If non-nil print help messages in the echo area on entering a new field. (custom-declare-variable 'bibtex-help-message 't '(#$ . 23312) :group 'bibtex :type 'boolean) #@102 String prefix for automatically generated reference keys. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-prefix-string '"" '(#$ . 23486) :group 'bibtex-autokey :type 'string) #@233 Number of names to use for the automatically generated reference key. Possibly more names are used according to `bibtex-autokey-names-stretch'. If this variable is nil, all names are used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-names '1 '(#$ . 23705) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@165 Number of names that can additionally be used for reference keys. These names are used only, if all names are used then. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-names-stretch '0 '(#$ . 24081) :group 'bibtex-autokey :type 'integer) #@114 String to append to the generated key if not all names could be used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-additional-names '"" '(#$ . 24363) :group 'bibtex-autokey :type 'string) #@118 If non-nil, expand strings when extracting the content of a BibTeX field. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-expand-strings 'nil '(#$ . 24597) :group 'bibtex-autokey :type 'boolean) #@283 Alist of (OLD-REGEXP . NEW-STRING) pairs. Used by the default values of `bibtex-autokey-name-change-strings' and `bibtex-autokey-titleword-change-strings'. Defaults to translating some language specific characters to their ASCII transcriptions, and removing any character accents. (defvar bibtex-autokey-transcriptions '(("\\\\aa" . "a") ("\\\\AA" . "A") ("\\\"a\\|\\\\\\\"a\\|\\\\ae" . "ae") ("\\\"A\\|\\\\\\\"A\\|\\\\AE" . "Ae") ("\\\\i" . "i") ("\\\\j" . "j") ("\\\\l" . "l") ("\\\\L" . "L") ("\\\"o\\|\\\\\\\"o\\|\\\\o\\|\\\\oe" . "oe") ("\\\"O\\|\\\\\\\"O\\|\\\\O\\|\\\\OE" . "Oe") ("\\\"s\\|\\\\\\\"s\\|\\\\3" . "ss") ("\\\"u\\|\\\\\\\"u" . "ue") ("\\\"U\\|\\\\\\\"U" . "Ue") ("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b" . "") ("[`'\"{}#]" . "") ("\\\\?[ \n]+\\|~" . " ")) (#$ . 24835)) #@257 Alist of (OLD-REGEXP . NEW-STRING) pairs. Any part of a name matching OLD-REGEXP is replaced by NEW-STRING. Case is significant in OLD-REGEXP. All regexps are tried in the order in which they appear in the list. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-change-strings 'bibtex-autokey-transcriptions '(#$ . 25701) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New")))) #@102 Function called for each name to perform case conversion. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-case-convert-function ''downcase '(#$ . 26157) :group 'bibtex-autokey :type '(choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function"))) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put bibtex-autokey-name-case-convert-function safe-local-variable #[(x) "\301>\207" [x (upcase downcase capitalize identity)] 2] defvaralias bibtex-autokey-name-case-convert] 4) #@166 Number of characters from name to incorporate into key. If this is set to anything but a number, all characters are used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-length ''infty '(#$ . 26806) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@96 String that comes between any two names in the key. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-separator '"" '(#$ . 27125) :group 'bibtex-autokey :type 'string) #@116 Number of rightmost digits from the year field to incorporate into key. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-year-length '2 '(#$ . 27339) :group 'bibtex-autokey :type 'integer) #@242 If non-nil use fields from crossreferenced entry if necessary. If this variable is non-nil and some field has no entry, but a valid crossref entry, the field from the crossreferenced entry is used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-use-crossref 't '(#$ . 27570) :group 'bibtex-autokey :type 'boolean) #@281 Number of title words to use for the automatically generated reference key. If this is set to anything but a number, all title words are used. Possibly more words from the title are used according to `bibtex-autokey-titlewords-stretch'. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titlewords '5 '(#$ . 27928) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@140 Regexp defining the termination of the main part of the title. Case of the regexps is ignored. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-title-terminators '"[.!?:;]\\|--" '(#$ . 28357) :group 'bibtex-autokey :type 'regexp) #@181 Number of words that can additionally be used from the title. These words are used only, if a sentence from the title can be ended then. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titlewords-stretch '2 '(#$ . 28630) :group 'bibtex-autokey :type 'integer) #@253 Determines words from the title that are not to be used in the key. Each item of the list is a regexp. If a word of the title matches a regexp from that list, it is not included in the title part of the key. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-ignore ''("A" "An" "On" "The" "Eine?" "Der" "Die" "Das" "[^[:upper:]].*" ".*[^[:upper:]0-9].*") '(#$ . 28933) :group 'bibtex-autokey :type '(repeat regexp)) #@107 Function called for each titleword to perform case conversion. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-case-convert-function ''downcase '(#$ . 29400) :group 'bibtex-autokey :type '(choice (const :tag "Preserve case" identity) (const :tag "Downcase" downcase) (const :tag "Capitalize" capitalize) (const :tag "Upcase" upcase) (function :tag "Conversion function"))) (defvaralias 'bibtex-autokey-titleword-case-convert 'bibtex-autokey-titleword-case-convert-function) #@234 Determines exceptions to the usual abbreviation mechanism. An alist of (OLD-REGEXP . NEW-STRING) pairs. Case is ignored in matching against OLD-REGEXP, and the first matching pair is used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-abbrevs 'nil '(#$ . 29927) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New")))) #@263 Alist of (OLD-REGEXP . NEW-STRING) pairs. Any part of title word matching a OLD-REGEXP is replaced by NEW-STRING. Case is significant in OLD-REGEXP. All regexps are tried in the order in which they appear in the list. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-change-strings 'bibtex-autokey-transcriptions '(#$ . 30332) :group 'bibtex-autokey :type '(repeat (cons (regexp :tag "Old") (string :tag "New")))) #@173 Number of characters from title words to incorporate into key. If this is set to anything but a number, all characters are used. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-length '5 '(#$ . 30799) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@86 String to be put between the title words. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-separator '"_" '(#$ . 31125) :group 'bibtex-autokey :type 'string) #@101 String to be put between name part and year part of key. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-year-separator '"" '(#$ . 31335) :group 'bibtex-autokey :type 'string) #@101 String to be put between name part and year part of key. See `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-year-title-separator '":_" '(#$ . 31559) :group 'bibtex-autokey :type 'string) #@74 If non-nil, user is allowed to edit the generated key before it is used. (custom-declare-variable 'bibtex-autokey-edit-before-use 't '(#$ . 31785) :group 'bibtex-autokey :type 'boolean) #@179 If non-nil, function to call before generated key is presented. The function must take one argument (the automatically generated key), and must return a string (the key to use). (custom-declare-variable 'bibtex-autokey-before-presentation-function 'nil '(#$ . 31978) :group 'bibtex-autokey :type '(choice (const nil) function)) #@95 Offset for BibTeX entries. Added to the value of all other variables which determine columns. (custom-declare-variable 'bibtex-entry-offset '0 '(#$ . 32312) :group 'bibtex :type 'integer) #@53 Starting column for the name part in BibTeX fields. (custom-declare-variable 'bibtex-field-indentation '2 '(#$ . 32506) :group 'bibtex :type 'integer) #@116 Starting column for the text part in BibTeX fields. Should be equal to the space needed for the longest name part. (custom-declare-variable 'bibtex-text-indentation '(+ bibtex-field-indentation (length "organization = ")) '(#$ . 32664) :group 'bibtex :type 'integer) #@58 Starting column for continuation lines of BibTeX fields. (custom-declare-variable 'bibtex-contline-indentation '(+ bibtex-text-indentation 1) '(#$ . 32937) :group 'bibtex :type 'integer) #@157 If non-nil, align fields at equal sign instead of field text. If non-nil, the column for the equal sign is the value of `bibtex-text-indentation', minus 2. (custom-declare-variable 'bibtex-align-at-equal-sign 'nil '(#$ . 33131) :group 'bibtex :type 'boolean) #@72 If non-nil, a comma is put at end of last field in the entry template. (custom-declare-variable 'bibtex-comma-after-last-field 'nil '(#$ . 33396) :group 'bibtex :type 'boolean) #@70 If non-nil automatically add missing commas at end of BibTeX fields. (custom-declare-variable 'bibtex-autoadd-commas 't '(#$ . 33579) :group 'bibtex :type 'boolean) #@69 Automatically fill fields if possible for those BibTeX entry types. (custom-declare-variable 'bibtex-autofill-types ''("Proceedings") '(#$ . 33750) :group 'bibtex :type '(repeat string)) #@207 Function to call for generating a summary of current BibTeX entry. It takes no arguments. Point must be at beginning of entry. Used by `bibtex-complete-crossref-cleanup' and `bibtex-copy-summary-as-kill'. (custom-declare-variable 'bibtex-summary-function ''bibtex-summary '(#$ . 33944) :group 'bibtex :type '(choice (const :tag "Default" bibtex-summary) (function :tag "Personalized function"))) #@1403 List of schemes for generating the URL of a BibTeX entry. These schemes are used by `bibtex-url'. Each scheme should have one of these forms: ((FIELD . REGEXP)) ((FIELD . REGEXP) STEP...) ((FIELD . REGEXP) STRING STEP...) FIELD is a field name as returned by `bibtex-parse-entry'. REGEXP is matched against the text of FIELD. If the match succeeds, then this scheme is used. If no STRING and STEPs are specified the matched text is used as the URL, otherwise the URL is built by evaluating STEPs. If no STRING is specified the STEPs must result in strings which are concatenated. Otherwise the resulting objects are passed through `format' using STRING as format control string. A STEP is a list (FIELD REGEXP REPLACE). The text of FIELD is matched against REGEXP, and is replaced with REPLACE. REPLACE can be a string, or a number (which selects the corresponding submatch), or a function called with the field's text as argument and with the `match-data' properly set. Case is always ignored. Always remove the field delimiters. If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded for generating the URL. The following is a complex example, see http://link.aps.org/linkfaq.html. ((("journal" . "\\=<\(PR[ABCDEL]?\|RMP\)\\=>") "http://link.aps.org/abstract/%s/v%s/p%s" ("journal" ".*" downcase) ("volume" ".*" 0) ("pages" "\`[A-Z]?[0-9]+" 0))) (custom-declare-variable 'bibtex-generate-url-list ''((("url" . ".*:.*"))) '(#$ . 34349) :group 'bibtex :type '(repeat (cons :tag "Scheme" (cons :tag "Matcher" :extra-offset 4 (string :tag "BibTeX field") (regexp :tag "Regexp")) (choice (const :tag "Take match as is" nil) (cons :tag "Formatted" (string :tag "Format control string") (repeat :tag "Steps to generate URL" (list (string :tag "BibTeX field") (regexp :tag "Regexp") (choice (string :tag "Replacement") (integer :tag "Sub-match") (function :tag "Filter"))))) (repeat :tag "Concatenated" (list (string :tag "BibTeX field") (regexp :tag "Regexp") (choice (string :tag "Replacement") (integer :tag "Sub-match") (function :tag "Filter")))))))) (put 'bibtex-generate-url-list 'risky-local-variable t) #@75 If non-nil, expand strings when extracting the content of a BibTeX field. (custom-declare-variable 'bibtex-expand-strings 'nil '(#$ . 36515) :group 'bibtex :type 'boolean) #@43 Syntax table used in BibTeX mode buffers. (defvar bibtex-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\315#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\324#\210)\207" [st make-syntax-table modify-syntax-entry 34 "\"" 36 "$$ " 37 "< " 39 "w " 64 92 "\\" 12 "> " 10 61 "." 126 " "] 4) (#$ . 36693)) #@29 Keymap used in BibTeX mode. (defvar bibtex-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\312#\210\302\314\312#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\302\201E\201F#\210\302\201G\201H#\210\302\201I\201J#\210\302\201K\201H#\210\302\201L\201M#\210\302\201N\201O#\210\302\201P\201F#\210\302\201Q\201R#\210\302\201S\201T#\210\302\201U\201V#\210\302\201W\201D#\210\302\201X\201Y#\210\302\201Z\201[#\210\302\201\\\201]#\210\302\201^\201_#\210\302\201`\201a#\210\302\201b\201c#\210)\207" [km make-sparse-keymap define-key " " bibtex-find-text "\n" bibtex-next-field "\211" bibtex-complete "\"" bibtex-remove-delimiters "{" "}" "" bibtex-clean-entry "" bibtex-fill-entry "" bibtex-find-entry "" bibtex-find-crossref "" bibtex-copy-summary-as-kill "?" bibtex-print-help-message "" bibtex-pop-previous "" bibtex-pop-next " " bibtex-kill-field "\353" bibtex-copy-field-as-kill "" bibtex-kill-entry "\367" bibtex-copy-entry-as-kill "" bibtex-yank "\371" bibtex-yank-pop "" bibtex-empty-field "" bibtex-make-field "" bibtex-entry-update "$" bibtex-ispell-abstract "\201" bibtex-beginning-of-entry "\205" bibtex-end-of-entry "\214" bibtex-reposition-window "\210" bibtex-mark-entry "" bibtex-entry "n" bibtex-narrow-to-entry "w" widen "\f" bibtex-url "" bibtex-remove-OPT-or-ALT " " bibtex-InProceedings "i" bibtex-InCollection "I" bibtex-InBook "" bibtex-Article "" "b" bibtex-Book "B" bibtex-Booklet "" " " bibtex-Manual "m" bibtex-MastersThesis "M" bibtex-Misc "" "p" bibtex-Proceedings "P" bibtex-PhdThesis "\360" bibtex-Preamble "" bibtex-String "" bibtex-TechReport "" bibtex-Unpublished] 4) (#$ . 37117)) #@33 BibTeX-Edit Menu in BibTeX mode (defvar bibtex-edit-menu nil (#$ . 39400)) (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" ["Find Entry" bibtex-find-entry t] ["Find Crossref Entry" bibtex-find-crossref t]) "--" ("Operating on Current Field" ["Fill Field" fill-paragraph t] ["Remove Delimiters" bibtex-remove-delimiters t] ["Remove OPT or ALT Prefix" bibtex-remove-OPT-or-ALT t] ["Clear Field" bibtex-empty-field t] "--" ["Kill Field" bibtex-kill-field t] ["Copy Field to Kill Ring" bibtex-copy-field-as-kill t] ["Paste Most Recently Killed Field" bibtex-yank t] ["Paste Previously Killed Field" bibtex-yank-pop t] "--" ["Make New Field" bibtex-make-field t] "--" ["Snatch from Similar Following Field" bibtex-pop-next t] ["Snatch from Similar Preceding Field" bibtex-pop-previous t] "--" ["String or Key Complete" bibtex-complete t] "--" ["Help about Current Field" bibtex-print-help-message t]) ("Operating on Current Entry" ["Fill Entry" bibtex-fill-entry t] ["Clean Entry" bibtex-clean-entry t] ["Update Entry" bibtex-entry-update t] "--" ["Kill Entry" bibtex-kill-entry t] ["Copy Entry to Kill Ring" bibtex-copy-entry-as-kill t] ["Paste Most Recently Killed Entry" bibtex-yank t] ["Paste Previously Killed Entry" bibtex-yank-pop t] "--" ["Copy Summary to Kill Ring" bibtex-copy-summary-as-kill t] ["Browse URL" bibtex-url t] "--" ["Ispell Entry" bibtex-ispell-entry t] ["Ispell Entry Abstract" bibtex-ispell-abstract t] "--" ["Narrow to Entry" bibtex-narrow-to-entry t] ["Mark Entry" bibtex-mark-entry t] "--" ["View Cite Locations (RefTeX)" reftex-view-crossref-from-bibtex (fboundp 'reftex-view-crossref-from-bibtex)]) ("Operating on Buffer or Region" ["Validate Entries" bibtex-validate t] ["Sort Entries" bibtex-sort-buffer t] ["Reformat Entries" bibtex-reformat t] ["Count Entries" bibtex-count-entries t] "--" ["Convert Alien Buffer" bibtex-convert-alien t]) ("Operating on Multiple Buffers" ["Validate Entries" bibtex-validate-globally t]))) #@33 Entry-Types Menu in BibTeX mode (defvar bibtex-entry-menu nil (#$ . 41687)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\257$\207" [bibtex-mode-map easy-menu-do-define bibtex-entry-menu "Entry-Types Menu in BibTeX mode" "Entry-Types" ["Article in Journal" bibtex-Article t] ["Article in Conference Proceedings" bibtex-InProceedings t] ["Article in a Collection" bibtex-InCollection t] ["Chapter or Pages in a Book" bibtex-InBook t] ["Conference Proceedings" bibtex-Proceedings t] ["Book" bibtex-Book t] ["Booklet (Bound, but no Publisher/Institution)" bibtex-Booklet t] ["PhD. Thesis" bibtex-PhdThesis t] ["Master's Thesis" bibtex-MastersThesis t] ["Technical Report" bibtex-TechReport t] ["Technical Manual" bibtex-Manual t] ["Unpublished" bibtex-Unpublished t] ["Miscellaneous" bibtex-Misc t] "--" ["String" bibtex-String t] ["Preamble" bibtex-Preamble t]] 21) #@76 Next point where `bibtex-pop-previous' starts looking for a similar entry. (defvar bibtex-pop-previous-search-point nil (#$ . 42606)) #@72 Next point where `bibtex-pop-next' starts looking for a similar entry. (defvar bibtex-pop-next-search-point nil (#$ . 42746)) #@97 Ring of least recently killed fields. At most `bibtex-field-kill-ring-max' items are kept here. (defvar bibtex-field-kill-ring nil (#$ . 42878)) #@73 The tail of `bibtex-field-kill-ring' whose car is the last item yanked. (defvar bibtex-field-kill-ring-yank-pointer nil (#$ . 43029)) #@98 Ring of least recently killed entries. At most `bibtex-entry-kill-ring-max' items are kept here. (defvar bibtex-entry-kill-ring nil (#$ . 43169)) #@73 The tail of `bibtex-entry-kill-ring' whose car is the last item yanked. (defvar bibtex-entry-kill-ring-yank-pointer nil (#$ . 43321)) #@58 Type of the last kill command (either 'field or 'entry). (defvar bibtex-last-kill-command nil (#$ . 43461)) #@114 Completion table for BibTeX string keys. Initialized from `bibtex-predefined-strings' and `bibtex-string-files'. (defvar bibtex-strings #[(#1=#:string #2=#:predicate #3=#:mode) "r\306 \307!\203\310!\202p)q\210 \311=\2030\312\n\211\313\f!\203)\314\315 !\f) #\202] \204J\316\n\211\313\f!\203C\314\315 !\f) #\202]\317\n\211\313\f!\203Y\314\315 !\f) #)\207" [#4=#:window #3# #1# #5=#:string bibtex-strings #2# minibuffer-selected-window window-live-p window-buffer t all-completions functionp bibtex-parse-strings bibtex-string-files-init try-completion test-completion] 4] (#$ . 43576)) (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 #[(#1=#:string #2=#:predicate #3=#:mode) "r\306 \307!\203\310!\202p)q\210 \311=\2030\312\n\211\313\f!\203)\314\315\311\"\f) #\202] \204J\316\n\211\313\f!\203C\314\315\311\"\f) #\202]\317\n\211\313\f!\203Y\314\315\311\"\f) #)\207" [#4=#:window #3# #1# #5=#:string bibtex-reference-keys #2# minibuffer-selected-window window-live-p window-buffer t all-completions functionp bibtex-parse-keys nil try-completion test-completion] 5] (#$ . 44309)) (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 (#$ . 45055)) #@39 Stores if timer is already installed. (defvar bibtex-parse-idle-timer nil (#$ . 45188)) #@52 Last reported percentage for the progress message. (defvar bibtex-progress-lastperc nil (#$ . 45282)) #@33 Last reported progress message. (defvar bibtex-progress-lastmes nil (#$ . 45390)) #@33 Interval for progress messages. (defvar bibtex-progress-interval nil (#$ . 45478)) #@32 History list for reading keys. (defvar bibtex-key-history nil (#$ . 45567)) #@39 History list for reading entry types. (defvar bibtex-entry-type-history nil (#$ . 45649)) #@39 History list for reading field names. (defvar bibtex-field-history nil (#$ . 45745)) #@30 Last reformat options given. (defvar bibtex-reformat-previous-options nil (#$ . 45836)) #@44 Last reformat reference keys option given. (defvar bibtex-reformat-previous-reference-keys nil (#$ . 45930)) #@45 Regexp matching the name of a BibTeX field. (defconst bibtex-field-name "[^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*" (#$ . 46045)) #@50 Regexp matching the name part of a BibTeX field. (defconst bibtex-name-part (concat ",[ \n]*\\(" bibtex-field-name "\\)") (#$ . 46180)) #@59 Regexp matching the reference key part of a BibTeX entry. (defconst bibtex-reference-key "[][[:alnum:].:;?!`'/*@+|()<>&_^$-]+" (#$ . 46323)) #@42 Regexp matching a BibTeX field constant. (defconst bibtex-field-const "[][[:alnum:].:;?!`'/*@+=|<>&_^$-]+" (#$ . 46470)) #@45 Regexp matching the name of a BibTeX entry. (defvar bibtex-entry-type (byte-code "\301\302\303\304\"!\305Q\207" [bibtex-entry-field-alist "@[ ]*\\(?:" regexp-opt mapcar car "\\)"] 5) (#$ . 46597)) #@68 Regexp matching the header line of a BibTeX entry (including key). (defvar bibtex-entry-head (concat "^[ ]*\\(" bibtex-entry-type "\\)[ ]*[({][ \n]*\\(" bibtex-reference-key "\\)") (#$ . 46802)) #@75 Regexp matching the header line of a BibTeX entry (possibly without key). (defvar bibtex-entry-maybe-empty-head (concat bibtex-entry-head "?") (#$ . 47006)) #@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 "\\)?") (#$ . 47169)) #@73 Regexp matching any valid BibTeX entry (including String and Preamble). (defvar bibtex-any-valid-entry-type (byte-code "\301\302\303\304\305\306\"\"!\307Q\207" [bibtex-entry-field-alist "^[ ]*@[ ]*\\(?:" regexp-opt append ("String" "Preamble") mapcar car "\\)"] 7) (#$ . 47407)) #@70 Regexp subexpression number of the type part in `bibtex-entry-head'. (defconst bibtex-type-in-head 1 (#$ . 47695)) #@69 Regexp subexpression number of the key part in `bibtex-entry-head'. (defconst bibtex-key-in-head 2 (#$ . 47816)) #@52 Regexp matching the name of a BibTeX String entry. (defconst bibtex-string-type "^[ ]*\\(@[ ]*String\\)[ ]*[({][ \n]*" (#$ . 47935)) #@59 Regexp matching the header line of a BibTeX String entry. (defconst bibtex-string-maybe-empty-head (concat bibtex-string-type "\\(" bibtex-reference-key "\\)?") (#$ . 48078)) #@61 Regexp matching the prefix part of a BibTeX Preamble entry. (defconst bibtex-preamble-prefix "[ ]*\\(@[ ]*Preamble\\)[ ]*[({][ \n]*" (#$ . 48259)) (byte-code "\302B\303\304 \305\306O\307 \306\310O\311\260\312BC!\207" [current-load-list bibtex-comment-start bibtex-font-lock-syntactic-keywords (lambda (#1=#:defconst-tmp-var) (defconst bibtex-font-lock-syntactic-keywords #1#)) "^[ ]*\\(" 0 1 "\\)" nil "\\>" (1 '(11))] 7) #@51 *Default expressions to highlight in BibTeX mode. (defvar bibtex-font-lock-keywords (byte-code " \304B\n\305BE\306 \307Q\310B\311 \307Q\312B\313BBB\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head bibtex-key-in-head bibtex-field-name (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))] 5) (#$ . -48695)) #@36 Regexp for `bibtex-font-lock-url'. (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) (#$ . 49181)) #@54 If non-nil, `bibtex-parse-string' accepts empty key. (defvar bibtex-string-empty-key nil (#$ . 49415)) #@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 (#$ . 49525)) #@79 Replacement for `forward-sexp' to be used by `hs-minor-mode'. ARG is ignored. (defalias 'bibtex-hs-forward-sexp #[(arg) "\300\301!\203 \302\225Sb\210\303\304!\207" [looking-at "@\\S(*\\s(" 0 forward-sexp 1] 2 (#$ . 49745)]) (add-to-list 'hs-special-modes-alist '(bibtex-mode "@\\S(*\\s(" "\\s)" nil bibtex-hs-forward-sexp nil)) #@337 Parse a string of the format . The functions PARSE-LHS and PARSE-RHS are used to parse the corresponding substrings. These functions are expected to return nil if parsing is not successful. If the returned values of both functions are non-nil, return a cons pair of these values. Do not move point. (defalias 'bibtex-parse-association #[(parse-lhs parse-rhs) "\305 \306\216\212 \307\211\205%\310\311!\205%\312\225b\205%\f \211\205% \nB-\207" [save-match-data-internal parse-lhs right left parse-rhs match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil looking-at "[ \n]*=[ \n]*" 0] 3 (#$ . 50081)]) #@367 Parse the name part of a BibTeX field. If the field name is found, return a triple consisting of the position of the very first character of the match, the actual starting position of the name part and end position of the match. Move point to end of field name. If `bibtex-autoadd-commas' is non-nil add missing comma at end of preceding BibTeX field as necessary. (defalias 'bibtex-parse-field-name #[nil "\304!\203\305\225b\210\305\224\306\224\305\225E\207 \2054\304\307\n\310Q!\2054\311\312x\210 \203,\313\314`\"\210\315c\210\316u\210\317 \207" [bibtex-name-part bibtex-autoadd-commas bibtex-field-name buffer-read-only looking-at 0 1 "[ \n]*\\(?:" "\\)[ \n]*=" " \n" nil error "Comma missing at buffer position %s" "," -1 bibtex-parse-field-name] 4 (#$ . 50783)]) #@39 Syntax-table to parse matched braces. (defconst bibtex-braced-string-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\310#\210\302\313\310#\210\302\314\310#\210\302\315\310#\210)\207" [st make-syntax-table modify-syntax-entry 123 "(}" 125 "){" 91 "." 93 40 41 92 34] 4) (#$ . 51567)) #@39 Syntax-table to parse matched quotes. (defconst bibtex-quoted-string-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 34 "\""] 4) (#$ . 51925)) #@215 Parse a BibTeX field string enclosed by braces or quotes. If a syntactically correct string is found, a pair containing the start and end position of the field string is returned, nil otherwise. Do not move point. (defalias 'bibtex-parse-field-string #[nil "g\306=\203\212\307 p\310\216\311\n!\210\312\313!\210+`)\2065g\314=\2055\212\307 p\315\216\311 !\210\312\313!\210+`)\211\205?`B)\207" [#1=#:buffer #2=#:table bibtex-quoted-string-syntax-table #3=#:buffer #4=#:table bibtex-braced-string-syntax-table 34 syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table forward-sexp 1 123 ((byte-code "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) end-point] 3 (#$ . 52152)]) #@323 Parse the text part of a BibTeX field. The text part is either a string, or an empty string, or a constant followed by one or more <# (string|constant)> pairs. If a syntactically correct text is found, a pair containing the start and end position of the text is returned, nil otherwise. Move point to end of field text. (defalias 'bibtex-parse-field-text #[nil "`\305\211\211\n\204@ \204@\306\f!\203\307\225b\210\202-\310 \211\203+Ab\210\202-\311\306\312!\203:\307\225b\210\202`\211\203\f\313\305w\210 ?\205Q\n\205Q \n`E,\207" [boundaries failure end-point starting-point bibtex-field-const nil looking-at 0 bibtex-parse-field-string t "[ \n]*#[ \n]*" " \n"] 5 (#$ . 52902)]) #@209 Parse the BibTeX field beginning at the position of point. If a syntactically correct field is found, return a cons pair containing the boundaries of the name and text parts of the field. Do not move point. (defalias 'bibtex-parse-field #[nil "\300\301\302\"\207" [bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text] 3 (#$ . 53611)]) (defalias 'bibtex-start-of-field #[(bounds) "@@\207" [bounds] 1]) (put 'bibtex-start-of-field 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-start-of-name-in-field #[(bounds) "@A@\207" [bounds] 1]) (put 'bibtex-start-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-end-of-name-in-field #[(bounds) "\301@8\207" [bounds 2] 2]) (put 'bibtex-end-of-name-in-field 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-start-of-text-in-field #[(bounds) "A@\207" [bounds] 1]) (put 'bibtex-start-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-end-of-text-in-field #[(bounds) "\3018\207" [bounds 2] 2]) (put 'bibtex-end-of-text-in-field 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-end-of-field #[(bounds) "\3018\207" [bounds 3] 2]) (put 'bibtex-end-of-field 'byte-optimizer 'byte-compile-inline-expand) #@313 Search forward to find a BibTeX field of name NAME. If a syntactically correct field is found, return a pair containing the boundaries of the name and text parts of the field. The search is limited by optional arg BOUND. If BOUND is t the search is limited by the end of the current entry. Do not move point. (defalias 'bibtex-search-forward-field #[(name &optional bound) "\306 \307\216\212 \310=\203\n\311 Q\310\312\313\314\215+\202V\315\316Q\310\312\211\204K\317 \310#\203K\320\224\321\224\321\225E\322 \211\2031\205UB,+\207" [save-match-data-internal bound bibtex-name-part bibtex-any-entry-maybe-empty-head bounds case-fold-search match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t "[ \n]*=\\|" nil done (byte-code "\303\304!\203\n\305\225b\210\204.\306 \307\310#\203.\311\224\203#\312\313\307\"\210\202\n\305\224b\210\314 \211\203\205V\211@A@)b\210\303\n!\203F\312\313\"\210\3158)b\210\314 \211\2042\307\207" [bounds regexp name looking-at "[ ]*@" 0 re-search-forward nil t 2 throw done bibtex-parse-field 3] 5) ",[ \n]*\\(" "\\)[ \n]*=[ \n]*" re-search-forward 0 1 bibtex-parse-field-text regexp name right left name-part] 5 (#$ . 54884)]) #@324 Search backward to find a BibTeX field of name NAME. If a syntactically correct field is found, return a pair containing the boundaries of the name and text parts of the field. The search is limited by the optional arg BOUND. If BOUND is t the search is limited by the beginning of the current entry. Do not move point. (defalias 'bibtex-search-backward-field #[(name &optional bound) "\306 \307\216 \310=\203\212\311 )\312\n\313Q\310\314\211\212\315\316 \310#\205i\212\317!\205=\320\224\321\224\321\225E\320\225b\210\322 \211)\204b \204b\323 \310#\203b\320\224\321\224\321\225E\212\320\225b\210\322 )\202A \205i\f B.\207" [save-match-data-internal bound name right left case-fold-search match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t bibtex-beginning-of-entry ",[ \n]*\\(" "\\)[ \n]*=[ \n]*" nil search-backward "," looking-at 0 1 bibtex-parse-field-text re-search-backward name-part] 4 (#$ . 56149)]) #@123 Get content of name in BibTeX field defined via BOUNDS. If optional arg REMOVE-OPT-ALT is non-nil remove "OPT" and "ALT". (defalias 'bibtex-name-in-field #[(bounds &optional remove-opt-alt) "\303\211@A@)\304@8)\"\n\203#\305\306 \"\203# \307\310O\202$ )\207" [bounds name remove-opt-alt buffer-substring-no-properties 2 string-match "\\`\\(OPT\\|ALT\\)" 3 nil] 5 (#$ . 57142)]) #@242 Get text in BibTeX field defined via BOUNDS. If optional arg CONTENT is non-nil extract content of field by removing field delimiters and concatenating the resulting string. If `bibtex-expand-strings' is non-nil, also expand BibTeX strings. (defalias 'bibtex-text-in-field-bounds #[(bounds &optional content) "\203h\212 \211A@)b\210 \306 8)\307\211`\211 W\203a\310\f!\203E\311\312!\2039\313 \314 \315#A\206: B\312\225b\210)\202X\316 \317 @T AS\"B Ab\210)\320\321\307\315#\210\202\322\323\237\",\207\317 \211A@) \306 8)\"\207" [content bounds opoint epoint bibtex-field-const mtch 2 nil looking-at match-string-no-properties 0 assoc-string bibtex-strings t bibtex-parse-field-string buffer-substring-no-properties re-search-forward "\\=[ \n]*#[ \n]*" apply concat bibtex-expand-strings] 5 (#$ . 57535)]) #@139 Get content of field FIELD of current BibTeX entry. Return nil if not found. If optional arg FOLLOW-CROSSREF is non-nil, follow crossref. (defalias 'bibtex-text-in-field #[(field &optional follow-crossref) "\212\203\n\306 \202 \307\310 \311 \"\211\203\312\f\307\"\202>\205>\nb\210\311\313 \"\211\205>\312\f\307\"\314 !\205=\315 !),\207" [follow-crossref end beg field bounds crossref-field bibtex-end-of-entry t bibtex-beginning-of-entry bibtex-search-forward-field bibtex-text-in-field-bounds "\\(OPT\\)?crossref" bibtex-find-crossref bibtex-text-in-field] 4 (#$ . 58373)]) #@340 Parse the prefix part of a BibTeX string entry, including reference key. If the string prefix is found, return a triple consisting of the position of the very first character of the match, the actual starting position of the reference key and the end position of the match. If `bibtex-string-empty-key' is non-nil accept empty string key. (defalias 'bibtex-parse-string-prefix #[nil "\305\306 !\2054`\307\225b\210\306 !\203!\307\225b\210\n\307\224\307\225E\2023\f\2053\306\310!\2053\311\312x\210\n``E))\207" [case-fold-search bibtex-string-type start bibtex-reference-key bibtex-string-empty-key t looking-at 0 "=" " \n" nil] 3 (#$ . 58971)]) #@287 Parse the postfix part of a BibTeX string entry, including the text. If the string postfix is found, return a triple consisting of the position of the actual starting and ending position of the text and the very last character of the string entry. Move point past BibTeX string entry. (defalias 'bibtex-parse-string-postfix #[nil "\302\303 \211\205 A@b\210\304\305!\205 \306\225b\210 @ A@\306\225E*\207" [case-fold-search bounds t bibtex-parse-field-text looking-at "[ \n]*[})]" 0] 4 (#$ . 59629)]) #@266 Parse a BibTeX string entry beginning at the position of point. If a syntactically correct entry is found, return a cons pair containing the boundaries of the reference key and text parts of the entry. If EMPTY-KEY is non-nil, key may be empty. Do not move point. (defalias 'bibtex-parse-string #[(&optional empty-key) "\302\303\304\")\207" [empty-key bibtex-string-empty-key bibtex-parse-association bibtex-parse-string-prefix bibtex-parse-string-postfix] 3 (#$ . 60142)]) #@249 Search forward to find a BibTeX string entry. If a syntactically correct entry is found, a pair containing the boundaries of the reference key and text parts of the string is returned. If EMPTY-KEY is non-nil, key may be empty. Do not move point. (defalias 'bibtex-search-forward-string #[(&optional empty-key) "\212\305 \306\216\307\310 \204#\311 \310\307#\203#\212\312\224b\210\313\f!)\202\n -\207" [save-match-data-internal bounds case-fold-search bibtex-string-type empty-key match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) t nil search-forward-regexp 0 bibtex-parse-string] 4 (#$ . 60626)]) #@59 Return the key part of a BibTeX string defined via BOUNDS (defalias 'bibtex-reference-key-in-string #[(bounds) "\301@A@\302@8\"\207" [bounds buffer-substring-no-properties 2] 4 (#$ . 61285)]) #@240 Get text in BibTeX string field defined via BOUNDS. If optional arg CONTENT is non-nil extract content by removing field delimiters and concatenating the resulting string. If `bibtex-expand-strings' is non-nil, also expand BibTeX strings. (defalias 'bibtex-text-in-string #[(bounds &optional content) "\302 \"\207" [bounds content bibtex-text-in-field-bounds] 3 (#$ . 61486)]) (defalias 'bibtex-start-of-text-in-string #[(bounds) "A@\207" [bounds] 1]) (put 'bibtex-start-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-end-of-text-in-string #[(bounds) "AA@\207" [bounds] 1]) (put 'bibtex-end-of-text-in-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'bibtex-end-of-string #[(bounds) "\301A8\207" [bounds 2] 2]) (put 'bibtex-end-of-string 'byte-optimizer 'byte-compile-inline-expand) #@30 Extract BibTeX type in head. (defalias 'bibtex-type-in-head #[nil "\301\224T\225\"\207" [bibtex-type-in-head buffer-substring-no-properties] 3 (#$ . 62327)]) (put 'bibtex-type-in-head 'byte-optimizer 'byte-compile-inline-expand) #@73 Extract BibTeX key in head. Return optional arg EMPTY if key is empty. (defalias 'bibtex-key-in-head #[(&optional empty) "\302!\206 \207" [bibtex-key-in-head empty match-string-no-properties] 2 (#$ . 62564)]) (put 'bibtex-key-in-head 'byte-optimizer 'byte-compile-inline-expand) #@84 Parse BibTeX preamble. Point must be at beginning of preamble. Do not move point. (defalias 'bibtex-parse-preamble #[nil "\305\306 !\205!\307\224\310\224\212\307\225b\210\311 )\n\205 \f D\nB+)\207" [case-fold-search bibtex-preamble-prefix bounds pref-start start t looking-at 0 1 bibtex-parse-string-postfix] 3 (#$ . 62853)]) #@53 Return t if STR1 and STR2 are equal, ignoring case. (defalias 'bibtex-string= #[(str1 str2) "\302\303\304 \303\304\305&\305=\207" [str1 str2 compare-strings 0 nil t] 8 (#$ . 63192)]) (put 'bibtex-string= 'byte-optimizer 'byte-compile-inline-expand) #@42 Delete all whitespace starting at point. (defalias 'bibtex-delete-whitespace #[nil "\300\301!\205\n`\302\225|\207" [looking-at "[ \n]+" 0] 2 (#$ . 63449)]) #@73 Compute line number of point regardless whether the buffer is narrowed. (defalias 'bibtex-current-line #[nil "\300\301`\"n\203\f\301\202 \302\\\207" [count-lines 1 0] 3 (#$ . 63613)]) #@448 Parse a valid BibTeX entry (maybe without key if EMPTY-KEY is t). A valid entry is a syntactical correct one with type contained in `bibtex-entry-field-alist'. Ignore @String and @Preamble entries. Return a cons pair with buffer positions of beginning and end of entry if a valid entry is found, nil otherwise. Do not move point. After a call to this function `match-data' corresponds to the header of the entry, see regexp `bibtex-entry-head'. (defalias 'bibtex-valid-entry #[(&optional empty-key) "\306\307\310\n\203 \202\f!\205a\212\311 \312\216\313\225b\210\212\225b\210\310\314!)\203-\315\202.\316\307\317\307w\210\320 \211\203M\3218)b\210\2027\310!\203W\313\225,\205`\313\224B)*\207" [end case-fold-search empty-key bibtex-entry-maybe-empty-head bibtex-entry-head save-match-data-internal t nil looking-at match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 "[ ]*(" ",?[ \n]*)" ",?[ \n]*}" " \n" bibtex-parse-field 3 bibtex-type-in-head bounds entry-closer] 2 (#$ . 63806)]) #@493 Move point to beginning of the next valid BibTeX entry. Do not move if we are already at beginning of a valid BibTeX entry. With optional argument BACKWARD non-nil, move backward to beginning of previous valid one. A valid entry is a syntactical correct one with type contained in `bibtex-entry-field-alist' or, if `bibtex-sort-ignore-string-entries' is nil, a syntactical correct string entry. Return buffer position of beginning and end of entry if a valid entry is found, nil otherwise. (defalias 'bibtex-skip-to-valid-entry #[(&optional backward) "\305\306\211\307 \210 \204Y \203o\202m\204Y\310 \2068\f?\2058\311 \211\2058\211@@)\312A8)B\211\204 \203J\313\314\306\315#\210\202 \316\317\306\315#\203 \320\224b\210\202 +\207" [bounds found case-fold-search backward bibtex-sort-ignore-string-entries t nil beginning-of-line bibtex-valid-entry bibtex-parse-string 2 re-search-backward "^[ ]*@" move re-search-forward "\n\\([ ]*@\\)" 1] 5 (#$ . 64880) "P"]) #@394 Call FUN for each BibTeX entry in buffer (possibly narrowed). FUN is called with three arguments, the key of the entry and the buffer positions of beginning and end of entry. Also, point is at beginning of entry and `match-data' corresponds to the header of the entry, see regexp `bibtex-entry-head'. If `bibtex-sort-ignore-string-entries' is non-nil, FUN is not called for @String entries. (defalias 'bibtex-map-entries #[(fun) "\306\307\212eb\210\310 \211\205+\311\n!\210 \312\313 !\206\f)@A#\210Ab\210\202+\207" [found case-fold-search bibtex-any-entry-maybe-empty-head fun empty bibtex-key-in-head t nil bibtex-skip-to-valid-entry looking-at "" match-string-no-properties] 4 (#$ . 65876)]) #@367 Echo a message about progress of current buffer. If FLAG is a string, the message is initialized (in this case a value for INTERVAL may be given as well (if not this is set to 5)). If FLAG is `done', the message is deinitialized. If FLAG is nil, a message is echoed if point was incremented at least `bibtex-progress-interval' percent since last message was echoed. (defalias 'bibtex-progress-message #[(&optional flag interval) ";\203\n\206\f\306\307\211\207\310=\203 \311\312 \"\210\313\211\207deZ\211\307U\203.\314\2025`eZ\314_ \245\211\f \\Y\205H\311\315 #*\207" [flag bibtex-progress-lastmes interval bibtex-progress-interval bibtex-progress-lastperc size 5 0 done message "%s (done)" nil 100 "%s (%d%%)" perc] 5 (#$ . 66591)]) #@57 Return a string dependent on `bibtex-field-delimiters'. (defalias 'bibtex-field-left-delimiter #[nil "\301=\203\302\207\303\207" [bibtex-field-delimiters braces "{" "\""] 2 (#$ . 67352)]) #@57 Return a string dependent on `bibtex-field-delimiters'. (defalias 'bibtex-field-right-delimiter #[nil "\301=\203\302\207\303\207" [bibtex-field-delimiters braces "}" "\""] 2 (#$ . 67549)]) #@57 Return a string dependent on `bibtex-entry-delimiters'. (defalias 'bibtex-entry-left-delimiter #[nil "\301=\203\302\207\303\207" [bibtex-entry-delimiters braces "{" "("] 2 (#$ . 67747)]) #@57 Return a string dependent on `bibtex-entry-delimiters'. (defalias 'bibtex-entry-right-delimiter #[nil "\301=\203\302\207\303\207" [bibtex-entry-delimiters braces "}" ")"] 2 (#$ . 67943)]) #@53 Flash at BibTeX entry head before point, if exists. (defalias 'bibtex-flash-head #[(prompt) "\306`\212\307 \210\310\n!\205-`W\205- \224b\210\311`!\203$\312\313!\202-\314\315\f\316` \225\"#+\207" [pnt case-fold-search bibtex-any-entry-maybe-empty-head bibtex-type-in-head prompt bibtex-key-in-head t bibtex-beginning-of-entry looking-at pos-visible-in-window-p sit-for 1 message "%s%s" buffer-substring-no-properties] 6 (#$ . 68140)]) #@61 Make an optional field named FIELD in current BibTeX entry. (defalias 'bibtex-make-optional-field #[(field) ":\203\301\302@PAB!\207\301\302P!\207" [field bibtex-make-field "OPT"] 3 (#$ . 68587)]) #@47 Make sure point is outside of a BibTeX entry. (defalias 'bibtex-move-outside-of-entry #[nil "`\301 \210`W\203$b\210\302\303!\210`SSf\304U\204$\305\306\307\310#\210\311u\210\312\307w)\207" [orig-point bibtex-end-of-entry beginning-of-line 1 10 re-search-forward "^[ ]*[@\n]" nil move -1 " \n"] 4 (#$ . 68795)]) #@152 Go to beginning of line of first BibTeX entry in buffer. If `bibtex-sort-ignore-string-entries' is non-nil, @String entries are ignored. Return point (defalias 'bibtex-beginning-of-first-entry #[nil "eb\210\300 \210`\207" [bibtex-skip-to-valid-entry] 1 (#$ . 69119)]) #@399 Search for BibTeX field enclosing point. For `bibtex-mode''s internal algorithms, a field begins at the comma following the preceding field. Usually, this is not what the user expects. Thus if COMMA is non-nil, the "current field" includes the terminating comma. Unless NOERR is non-nil, signal an error if no enclosing field is found. On success return bounds, nil otherwise. Do not move point. (defalias 'bibtex-enclosing-field #[(&optional comma noerr) "\212\203\304\210\305\304x\210h\306U\203\307u\210\310 \311\"\211\2038\n\211@@)`X\2038\n\312\n8)`Y\2038\n\202@ ?\205@\313\314!*\207" [comma bibtex-field-name bounds noerr nil " " 44 -1 bibtex-search-backward-field t 3 error "Can't find enclosing BibTeX field"] 4 (#$ . 69395)]) #@81 Move point to beginning of first field. Optional arg BEG is beginning of entry. (defalias 'bibtex-beginning-first-field #[(&optional beg) "\203\nb\210\202 \302 \210\303 !\210\304\225b\207" [beg bibtex-any-entry-maybe-empty-head bibtex-beginning-of-entry looking-at 0] 2 (#$ . 70151)]) #@120 Reinsert the Nth stretch of killed BibTeX text (field or entry). Optional arg COMMA is as in `bibtex-enclosing-field'. (defalias 'bibtex-insert-kill #[(n &optional comma) "\204\306\307!\210\310\311=\203.\312\n!\313 8)b\210\314`!\210\315\316!\210\317 \320\f\"\321\322\321$\202>\323 \210\314`!\210\315\316!\210 \324 \"c)\207" [bibtex-last-kill-command fun comma bounds bibtex-field-kill-ring bibtex-entry-kill-ring error "BibTeX kill ring is empty" #[(kryp kr) "\303 \304!GZ\nG\"\n\233L@\207" [kryp n kr mod eval] 5] field bibtex-enclosing-field 3 set-mark message "Mark set" bibtex-make-field bibtex-field-kill-ring-yank-pointer t nil bibtex-skip-to-valid-entry bibtex-entry-kill-ring-yank-pointer] 5 (#$ . 70447)]) #@110 Helper function for `bibtex-clean-entry'. Formats current entry according to variable `bibtex-entry-format'. (defalias 'bibtex-format-entry #[nil "\212\214\306 \210\307\307=\203\310\202\311\211\211\211\211\211\211@ABCeb\210\312D\311\307#\2045\313\314!\210\315\224T\315\225EF\316\317FE\"G\307#\320B>\203[FE|\210 @c\210\321B>\203rEb\210\322\311w\210\323\324!\210\325 c\210*eb\210\326\307!H\316\327H\307#\211I\205\223IA\330\232?\205\223IA\211A\203\240\331 8@\202\244 A@@\211\311J\211K\203\360K@J\332J8\203\347\307\316J@H\307#\211I\203\347IA\330\232\204\347\f\204\334\307\202\347\333B>\203\347\313\334!\210KA\211K\204\257, \203\f\204\333B>\203\313\335!\210\336e!\210\337 \211@\203/\340@\211@@@)!L\340@@\332@8)\307\"M\340@\211@@A@)!N\340@@\331@@8)!O\340@\211@A@)!P\340@@\331@8)\307\"Q\341\342\317N\211\332\\\"\"R\317R\203xN\332\\\202zNO\"S\343@\307\"\330\232T\311U\344B>\203\312T\203\275R\204\261\316S\n\307#\211I?\206\255\332I8)\203\275LM|\210\307U\202\312R\203\312Nb\210\323\332!\210U\204*S B\345B>\203\365Pb\210\346\347!\203\365Qb\210\323\350!\210Pb\210\323\324!\210\321B>\203#Pb\210\346\351!\203\323\324!\210\352 c\210\353Q!Sb\210\346\354!\203#\323\324!\210\355 c\210\356B>\203QS\357VW\360W\315\311V\315\311\307&*\307=\203QPb\210\346\361!\203Q\362\363!\210\364B>\203\236T\203\236S\365VW\360W\315\311V\315\311\307&*\307=\203\236A\203\236\212\214~\210\366A\307\"\205\212\367\370!*\211X\203\235\311TPTb\210Xc\210)T\203\322S\370VW\360W\315\311V\315\311\307&*\307=\203\322\367\365!\211Y\203\321\311TPTb\210Yc\210)T\203\355\333B>\203\355\316S\n\307#\203\355\313\371S\"\210\320B>\203&\316S\372 A@@ A@A@Z#\307#@\211[\203NO|\210Nb\210[c\210\202%\373NO\"\210)Mb\210.\n\202\333B>\203\304\315\311\\]\n\311[\211^\203y^@[\332[8\203Z[@\\B\\[@ \235\204p\332[8\204p\313\374[@\"\210^A\211^\204F*\\\203\303\\\311[\211_\203\243_@\211[ \235\203\232]T]_A\211_\204\212*]\315U\203\264\313\375\\\"\210\202\303]\324V\203\303\313\376\\]#\210*\377B>\203\361`\203\340\346\201a!\204\340\201ac\210\202\361`\204\361\346\201a!\203\361\323\324!\210\346\201a!\203\374\311u\210\321B>\203\322\311w\210\323\324!\210\201b c\210\201cB>\205\201d . \207" [bibtex-entry-format field-list req-field-list entry-list non-empty-alternative alternatives-there bibtex-narrow-to-entry t (realign opts-or-alts required-fields numerical-fields last-comma page-dashes delimiters unify-case inherit-booktitle) nil re-search-forward error "Not inside a BibTeX entry" 0 assoc-string buffer-substring-no-properties unify-case delimiters " \n" delete-char 1 bibtex-entry-left-delimiter bibtex-parse-entry "crossref" "" 2 3 required-fields "More than one non-empty alternative" "All alternatives are empty" bibtex-beginning-first-field bibtex-parse-field copy-marker string-match "OPT\\|ALT" bibtex-text-in-field-bounds opts-or-alts numerical-fields looking-at "\\(\"[0-9]+\"\\)\\|\\({[0-9]+}\\)" -1 "[{\"]" bibtex-field-left-delimiter marker-position "[}\"]" bibtex-field-right-delimiter page-dashes "pages" compare-strings "\\([\"{][0-9]+\\)[ \n]*--?[ \n]*\\([0-9]+[\"}]\\)" replace-match "\\1-\\2" inherit-booktitle "booktitle" bibtex-find-entry bibtex-text-in-field "title" "Mandatory field `%s' is empty" append downcase-region "Mandatory field `%s' is missing" "Alternative mandatory field `%s' is missing" "Alternative fields `%s' are defined %s times" last-comma bounds crossref-key format case-fold-search bibtex-entry-type end-type beg-type bibtex-entry-field-alist fields-alist field rfield #1=#:--cl-dolist-temp-- beg-field end-field beg-name end-name beg-text end-text opt-alt field-name empty-field deleted str2 str1 title booktitle bibtex-user-optional-fields fname altlist found #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- bibtex-comma-after-last-field "," bibtex-entry-right-delimiter realign bibtex-fill-entry] 10 (#$ . 71179)]) #@298 Return an abbreviation of STRING with at least LEN characters. If LEN is positive the abbreviation is terminated only after a consonant or at the word end. If LEN is negative the abbreviation is strictly enforced using abs (LEN) characters. If LEN is not a number, STRING is returned unchanged. (defalias 'bibtex-autokey-abbrev #[(string len) "\247\203 G\304!X\203 \207\305\232\203\306\207\305W\203% \305\304!O\207\307\310\311 S#\211\203: \305 TO\202; *\207" [len string case-fold-search abort-char abs 0 "" t string-match "[^aeiou]"] 5 (#$ . 75256)]) #@226 Get content of BibTeX field FIELD. Return empty string if not found. Optional arg CHANGE-LIST is a list of substitution patterns that is applied to the content of FIELD. It is an alist with pairs (OLD-REGEXP . NEW-STRING). (defalias 'bibtex-autokey-get-field #[(field &optional change-list) "\306\n \"\307\f\204\310 \307\f\211 \2033 @\f\311\f@\fA\f\312$ A\211 \204\307\f\f-\207" [bibtex-autokey-expand-strings bibtex-expand-strings field bibtex-autokey-use-crossref content case-fold-search bibtex-text-in-field nil "" replace-regexp-in-string t change-list pattern #1=#:--cl-dolist-temp--] 6 (#$ . 75834)]) #@232 Get contents of the name field of the current entry. Do some modifications based on `bibtex-autokey-name-change-strings'. Return the names as a concatenated string obeying `bibtex-autokey-names' and `bibtex-autokey-names-stretch'. (defalias 'bibtex-autokey-get-names #[nil "\306\307\"\211\310\230\203 \202?\311\312\313\314 \315\"\"\316 \247\2036 G \\X\2046 G Z \237\233\237\317\320 #\fP+)\207" [bibtex-autokey-name-change-strings names case-fold-search name-list additional-names bibtex-autokey-names bibtex-autokey-get-field "author\\|editor" "" t mapcar bibtex-autokey-demangle-name split-string "[ \n]+and[ \n]+" nil mapconcat identity bibtex-autokey-names-stretch bibtex-autokey-additional-names bibtex-autokey-name-separator] 6 (#$ . 76472)]) #@74 Get the last part from a well-formed FULLNAME and perform abbreviations. (defalias 'bibtex-autokey-demangle-name #[(fullname) "\305\306\307 \"\203\310\311 \"\202>\306\312 \"\203\310\311 \"\202>\306\313 \"\203,\310\314 \"\202>\306\315 \"\203:\310\311 \"\202>\316\317 \" \320\n\f\"!*\207" [case-fold-search fullname name bibtex-autokey-name-case-convert-function bibtex-autokey-name-length nil string-match "\\([[:upper:]][^, ]*\\)[^,]*," match-string 1 "\\([^, ]*\\)," "\\(\\<[[:lower:]][^ ]* +\\)+\\([[:upper:]][^ ]*\\)" 2 "\\([^ ]+\\) *\\'" error "Name `%s' is incorrectly formed" bibtex-autokey-abbrev] 4 (#$ . 77246)]) #@78 Return year field contents as a string obeying `bibtex-autokey-year-length'. (defalias 'bibtex-autokey-get-year #[nil "\302\303!\211\304G Z]\305O)\207" [yearfield bibtex-autokey-year-length bibtex-autokey-get-field "year" 0 nil] 5 (#$ . 77886)]) #@76 Get title field contents up to a terminator. Return the result as a string (defalias 'bibtex-autokey-get-title #[nil "\306\307\310\"\311 \"\203 \312\211\224O\312\313\211\211\247\203/\\W\203\207\311\314 \"\203\207\315\312 \" \312\225\313O\211\203^\311\316@\317Q\f\"\204^A\211\204I)\204T\247\203wX\203\200\fB\202\f B\202\311\314 \"\204\225\320 \"\321\322\237#.\207" [bibtex-autokey-titleword-change-strings titlestring case-fold-search bibtex-autokey-title-terminators word titlewords-extra t bibtex-autokey-get-field "title" string-match 0 nil "\\b\\w+" match-string "\\`\\(?:" "\\)\\'" append mapconcat bibtex-autokey-demangle-title titlewords counter bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-ignore lst bibtex-autokey-titleword-separator] 5 (#$ . 78140)]) #@136 Do some abbreviations on TITLEWORD. The rules are defined in `bibtex-autokey-titleword-abbrevs' and `bibtex-autokey-titleword-length'. (defalias 'bibtex-autokey-demangle-title #[(titleword) "\306 \203\307\310 \211@@)\311Q\f\"\204 A\211\204 \203+ \211@A)\2022 \312\f \"!*\207" [bibtex-autokey-titleword-abbrevs alist case-fold-search x titleword bibtex-autokey-titleword-case-convert-function t string-match "\\`\\(?:" "\\)\\'" bibtex-autokey-abbrev bibtex-autokey-titleword-length] 5 (#$ . 79022)]) #@3533 Generate automatically a key for a BibTeX entry. Use the author/editor, the year and the title field. The algorithm works as follows. The name part: 1. Use the author or editor field to generate the name part of the key. Expand BibTeX strings if `bibtex-autokey-expand-strings' is non-nil. 2. Change the content of the name field according to `bibtex-autokey-name-change-strings' (see there for further detail). 3. Use the first `bibtex-autokey-names' names in the name field. If there are up to `bibtex-autokey-names' + `bibtex-autokey-names-stretch' names, use all names. 4. Use only the last names to form the name part. From these last names, take at least `bibtex-autokey-name-length' characters (truncate only after a consonant or at a word end). 5. Convert all last names using the function `bibtex-autokey-name-case-convert-function'. 6. Build the name part of the key by concatenating all abbreviated last names with the string `bibtex-autokey-name-separator' between any two. If there are more names in the name field than names used in the name part, append the string `bibtex-autokey-additional-names'. The year part: 1. Build the year part of the key by truncating the content of the year field to the rightmost `bibtex-autokey-year-length' digits (useful values are 2 and 4). 2. If the year field (or any other field required to generate the key) is absent, but the entry has a valid crossref field and `bibtex-autokey-use-crossref' is non-nil, use the field of the crossreferenced entry instead. The title part 1. Change the content of the title field according to `bibtex-autokey-titleword-change-strings' (see there for further detail). 2. Truncate the title before the first match of `bibtex-autokey-title-terminators' and delete those words which appear in `bibtex-autokey-titleword-ignore'. Build the title part using the first `bibtex-autokey-titlewords' words from this truncated title. If the truncated title ends after up to `bibtex-autokey-titlewords' + `bibtex-autokey-titlewords-stretch' words, use all words from the truncated title. 3. For every title word that appears in `bibtex-autokey-titleword-abbrevs' use the corresponding abbreviation (see documentation of this variable for further detail). 4. From every title word not generated by an abbreviation, take at least `bibtex-autokey-titleword-length' characters (truncate only after a consonant or at a word end). 5. Convert all title words using the function `bibtex-autokey-titleword-case-convert-function'. 6. Build the title part by concatenating all abbreviated title words with the string `bibtex-autokey-titleword-separator' between any two. Concatenate the key: 1. Concatenate `bibtex-autokey-prefix-string', the name part, the year part and the title part. If the name part and the year part are both non-empty insert `bibtex-autokey-name-year-separator' between the two. If the title part and the year (or name) part are non-empty, insert `bibtex-autokey-year-title-separator' between the two. 2. If `bibtex-autokey-before-presentation-function' is non-nil, it must be a function taking one argument. Call this function with the generated key as the argument. Use the return value of this function (a string) as the key. 3. If `bibtex-autokey-edit-before-use' is non-nil, present the key in the minibuffer to the user for editing. Insert the key given by the user. (defalias 'bibtex-generate-autokey #[nil "\306 \307 \310  \211\311\232\206 \311\232?\205\f \311\232\203& \311\232\206)\n\311\232?\205. \n\260\n \203@ \n!\202B\n,\207" [names year title bibtex-autokey-prefix-string bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator bibtex-autokey-get-names bibtex-autokey-get-year bibtex-autokey-get-title "" autokey bibtex-autokey-before-presentation-function] 6 (#$ . 79544)]) #@50 Return global key alist based on `bibtex-files'. (defalias 'bibtex-global-key-alist #[nil "\203\302\303\304\305\306\307!\"\"\207 \207" [bibtex-files bibtex-reference-keys apply append mapcar #[(buf) "rq\210 )\207" [buf bibtex-reference-keys] 1] bibtex-files-expand t] 6 (#$ . 83534)]) #@176 Read BibTeX key from minibuffer using PROMPT and default KEY. If optional arg GLOBAL is non-nil, completion is based on the keys in `bibtex-reference-keys' of `bibtex-files', (defalias 'bibtex-read-key #[(prompt &optional key global) "\305\306 \n\203 \307 \202 \305\211\f\310&)\207" [completion-ignore-case prompt global bibtex-reference-keys key nil completing-read bibtex-global-key-alist bibtex-key-history] 7 (#$ . 83830)]) #@59 Read BibTeX string key from minibuffer using default KEY. (defalias 'bibtex-read-string-key #[(&optional key) "\303\304\305 \306\211\n\307&)\207" [completion-ignore-case bibtex-strings key t completing-read "String key: " nil bibtex-key-history] 7 (#$ . 84269)]) #@428 Set `bibtex-reference-keys' to the keys used in the whole buffer. Find both entry keys and crossref entries. If ABORTABLE is non-nil abort on user input. If VERBOSE is non-nil give messages about progress. Return alist of keys if parsing was completed, `aborted' otherwise. If `bibtex-parse-keys-fast' is non-nil, use fast but simplified algorithm for parsing BibTeX keys. If parsing fails, try to set this variable to nil. (defalias 'bibtex-parse-keys #[(&optional abortable verbose) "\304\211\212\305 \306\216 \203\307\310 \311P!\210\312\313\215-\207" [crossref-keys ref-keys save-match-data-internal verbose nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) bibtex-progress-message buffer-name ": parsing reference keys" userkey (byte-code "eb\210\203}\306 \307\310\311R\312\n\313\306#\203y\f\203%\314 \203%\315\316\317\"\210\320\225\203F\321\320\224T\320\225S\"\322 \"\204B CB)\202\323\321\224T\225\"\306#\203\313\324!\206c)\322 \"\204u \306BB)\202*\202\210\306\313 \325\326!\210*\313\211!\203\256!@\322 @\"\204\245 B!A\211!\204\222*\"\203\270\327\330!\210\211#\207" [bibtex-parse-keys-fast bibtex-entry-head re case-fold-search abortable key t "\\|" ",[ \n]*crossref[ \n]*=[ \n]*" "\\(\"[^\"]*\"\\|{[^}]*}\\)[ \n]*[,})]" re-search-forward nil input-pending-p throw userkey aborted 3 buffer-substring-no-properties assoc assoc-string match-string-no-properties bibtex-map-entries #[(key beg end) "\203\306 \203\307\310\311\"\210 \203\312 \210\313\n \"\204\"\n\314B B\315\316\f\"\211\205E\317 \314\"\211\205E\313\n\"?\205E\nCB\211\207" [abortable verbose key ref-keys end bounds input-pending-p throw userkey aborted bibtex-progress-message assoc t bibtex-search-forward-field "crossref" bibtex-text-in-field-bounds crossref-keys] 3] bibtex-progress-message done crossref-keys bibtex-type-in-head bibtex-entry-field-alist empty bibtex-key-in-head ref-keys bounds bibtex-sort-ignore-string-entries #1=#:--cl-dolist-temp-- verbose bibtex-reference-keys] 5)] 3 (#$ . 84541)]) #@342 Set `bibtex-strings' to the string definitions in the whole buffer. If ADD is non-nil add the new strings to `bibtex-strings' instead of simply resetting it. If ADD is an alist of strings, also add ADD to `bibtex-strings'. If ABORTABLE is non-nil abort on user input. Return alist of strings if parsing was completed, `aborted' otherwise. (defalias 'bibtex-parse-strings #[(&optional add abortable) "\212\306 \307\216eb\210 \205\n<\205\n\310\211 <\203E \310 \211\203D@ \311 @ \312#\204; BA\211\204'*\313\314\215.\207" [save-match-data-internal add bibtex-strings key bounds strings match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil assoc-string t userkey (byte-code "\305 \211\2036 \203\306 \203\307\310\311\"\210\312!\313\n \314#\204*\n\315\314\"B B\211AA@)b\210\202 \211\207" [bounds abortable key strings bibtex-strings bibtex-search-forward-string input-pending-p throw userkey aborted bibtex-reference-key-in-string assoc-string t bibtex-text-in-string] 5) string #1=#:--cl-dolist-temp--] 5 (#$ . 86676)]) #@65 Return `bibtex-strings'. Initialize this variable if necessary. (defalias 'bibtex-strings #[nil "<\203\207\301\302 !\207" [bibtex-strings bibtex-parse-strings bibtex-string-files-init] 2 (#$ . 87789)]) #@117 Return initialization for `bibtex-strings'. Use `bibtex-predefined-strings' and BibTeX files `bibtex-string-files'. (defalias 'bibtex-string-files-init #[nil "\306 \307\216\310 \206 \n\311\"\312\211\211\211\211\211 !\"\312#\211$\203\241$@#\313\314#\"\204<#\315P#\316#!\203]\317#!\203T#B\202\230\320\321#\"\210\202\230!\312%\211&\203\215&@%\317\322#%\"\211!\203\204B\323&A\211&\204h* \204\230\320\324#\"\210$A\211$\204)*\312#\211'\203\356'@#\325\326!(\327\216r(q\210\330#!\210eb\210\331 \211\203\344\332\f!\333\f\323\"B B\f\334\fA8)b\210\202\306+'A\211'\204\255*\335) \237\". \207" [save-match-data-internal bibtex-string-file-path default-directory found bounds compl match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string ":+" nil string-match "\\.bib\\'" ".bib" file-name-absolute-p file-readable-p error "BibTeX strings file %s not found" expand-file-name t "File %s not in paths defined via bibtex-string-file-path" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents bibtex-search-forward-string bibtex-reference-key-in-string bibtex-text-in-string 2 append fullfilename string-files case-fold-search dirlist bibtex-string-files filename #2=#:--cl-dolist-temp-- dir #3=#:--cl-dolist-temp-- #4=#:--cl-dolist-temp-- #1# bibtex-predefined-strings] 7 (#$ . 88002)]) #@290 Parse buffer in the background during idle time. Called by `run-with-idle-timer'. Whenever Emacs has been idle for `bibtex-parse-keys-timeout' seconds, parse all BibTeX buffers which have been modified after last parsing. Parsing initializes `bibtex-reference-keys' and `bibtex-strings'. (defalias 'bibtex-parse-buffers-stealthily #[nil "\212\304 \305 \211\205@\306 ?\205@ @q\210\n\307=\2038\310 =\2048\214~\210\311\312!<\2037\313\312\"<\2037\310 ) A\211\204 \314+\207" [strings-init buffers major-mode bibtex-buffer-last-parsed-tick buffer-list bibtex-string-files-init input-pending-p bibtex-mode buffer-modified-tick bibtex-parse-keys t bibtex-parse-strings nil] 4 (#$ . 89501)]) #@287 Return an expanded list of BibTeX buffers based on `bibtex-files'. 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. (defalias 'bibtex-files-expand #[(&optional current force) "\306\206 \307\"\310\211\211\310\211\203\243@\211\300=\203-\311 \"\202\232\312!\203< B\202\232\313\314\"\204J\315P\316!\203Y\fB\202\232\310\211 \310\211 \203\215 @\317\320\"\211!\203\204\fB\321 A\211 \204i*\204\231\322\323\"\210*A\211\204*\f\310\211!\203\311!@\317!\204\300\322\324\"\210!A\211!\204\256* \310\211\"\203\355\"@\311\f\325\321\314\321$\"\"A\211\"\204\324*\326\f!\210\f\310\211#\203,#@\317!\203#\327!\nBr\n@q\210$\204%<\204\"\330 \210)#A\211#\204\374*&\203Gp\n>\204Gp\nB$\203W\330 \210\202W&\204Wp\n>\203W\331p\n\"\n,\207" [bibtex-file-path default-directory buffer-list dir-list file-list file-path split-string ":+" nil append file-accessible-directory-p string-match "\\.bib\\'" ".bib" file-name-absolute-p file-readable-p expand-file-name t error "File %s not in paths defined via bibtex-file-path" "BibTeX file %s not found" directory-files delete-dups find-file-noselect bibtex-parse-keys delq bibtex-files file #1=#:--cl-dolist-temp-- found fullfilename dir #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- #4=#:--cl-dolist-temp-- #5=#:--cl-dolist-temp-- force bibtex-reference-keys current] 8 (#$ . 90205)]) #@194 Complete word fragment before point to longest prefix of COMPLETIONS. COMPLETIONS is an alist of strings. If point is not after the part of a word, all strings are listed. Return completion. (defalias 'bibtex-complete-internal #[(completions) "\306\212\307\310!\210\311u\210`)`\312 \n\"\313 \f\"\211\204$\314\315 \"\202S \306=\203. \202S \230\204? \n|\210 c\210 \202S\316\317!\210\320\220\321\322 \f\" \"\221\210\316\323!\210\311-\207" [case-fold-search beg end part-of-word completions completion t re-search-backward "[ {\"]" nil buffer-substring-no-properties try-completion error "Can't find completion for `%s'" message "Making completion list..." "*Completions*" display-completion-list all-completions "Making completion list...done"] 6 (#$ . 91824)]) #@147 Cleanup after inserting string STR. Remove enclosing field delimiters for STR. Display message with expansion of STR using expansion list COMPL. (defalias 'bibtex-complete-string-cleanup #[(str compl) "\212;\205 \303 \304#A\211\203\305\306\n\"\210\307 *\207" [str compl abbr assoc-string t message "Abbreviation for `%s'" bibtex-remove-delimiters] 5 (#$ . 92605)]) #@125 Display summary message on entry KEY after completion of a crossref key. Use `bibtex-summary-function' to generate summary. (defalias 'bibtex-complete-crossref-cleanup #[(key) "\212;\205\302\303\"\205\304\305 \")\207" [key bibtex-summary-function bibtex-find-entry t message "Ref: %s"] 3 (#$ . 92984)]) #@103 Push summery of current BibTeX entry to kill ring. Use `bibtex-summary-function' to generate summary. (defalias 'bibtex-copy-summary-as-kill #[nil "\212\302 \210\303!\203\304\305\306 \"!\202\307\310!)\207" [bibtex-entry-maybe-empty-head bibtex-summary-function bibtex-beginning-of-entry looking-at kill-new message "%s" error "No entry found"] 4 (#$ . 93301) nil]) #@93 Return summary of current BibTeX entry. Used as default value of `bibtex-summary-function'. (defalias 'bibtex-summary #[nil "\306!\203d\307\310\311\312\313\314 \315 !\316\"\317 #\320$\321%\307&\320'\313(\322 )\323\324*\"+\323\325!,\323\326\327\"-\330\331\313!B\313#B\332)B\333+B\313,B\334-B\257\335#.\207\336\337!\207" [bibtex-entry-maybe-empty-head bibtex-autokey-name-case-convert-function bibtex-autokey-name-length bibtex-autokey-names bibtex-autokey-names-stretch bibtex-autokey-name-separator looking-at identity infty 1 0 " " " etal" bibtex-autokey-get-names 4 bibtex-autokey-get-year 5 2 bibtex-autokey-get-title bibtex-autokey-get-field "journal" "volume" "pages" (("-.*\\'" . "")) mapconcat #[(arg) "A\301\230?\205 @AP\207" [arg ""] 2] ": " ", " ":" "" error "Entry not found" bibtex-autokey-additional-names names bibtex-autokey-year-length year bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-length bibtex-autokey-titleword-separator title bibtex-autokey-transcriptions journal volume pages] 9 (#$ . 93678)]) #@137 Fill current field from the ARGth same field's text in DIRECTION. Generic function used by `bibtex-pop-previous' and `bibtex-pop-next'. (defalias 'bibtex-pop #[(arg direction) "\306\307!\211\211@@)\211A@)\3108)\311\307\"\312\212\313=\203; \314=\2034!\2026\"b\210\202K \314=\203H\315 \210\202K\316 \210 \204\223#S\211#\317Y\203\223 \314=\203z\320\f!\211\203t\211@@)b\210\202K\307\211\202L\321\f!\211\203\215\3228)b\210\202K\307\211\203O \203\252\323\324 \314=\203\244\325\202\245\326\"\210\202\360\327!\330\211@@)!\330\3228)!$%&\331\332!\210 b\210\n |\210% U\203\337\333 \334 \261\210\202\343&c\210\335%!!\335$!\"+.\336\312\211\211\307$\210\313\211'\207" [bounds start-old-field start-old-text end-old-text field-name failure bibtex-enclosing-field t 2 bibtex-name-in-field nil bibtex-pop previous bibtex-beginning-of-entry bibtex-end-of-entry 0 bibtex-search-backward-field bibtex-search-forward-field 3 error "No %s matching BibTeX field" "previous" "next" bibtex-text-in-field-bounds copy-marker bibtex-flash-head "From: " bibtex-field-left-delimiter bibtex-field-right-delimiter marker-position bibtex-find-text last-command direction bibtex-pop-previous-search-point bibtex-pop-next-search-point arg nend nbeg new-text this-command] 6 (#$ . 94824)]) #@187 Move point backward to beginning of field. This function uses a simple, fast algorithm assuming that the field begins at the beginning of a line. We use this function for font-locking. (defalias 'bibtex-beginning-of-field #[nil "\302\303Q\304 \210\305 !?\205\306 \307\310#)\207" [bibtex-field-name field-reg "^[ ]*" "[ ]*=" beginning-of-line looking-at re-search-backward nil t] 4 (#$ . 96156)]) #@47 Font-lock for URLs. BOUND limits the search. (defalias 'bibtex-font-lock-url #[(bound) "\306`\307\211\211\211\211\310 \210\204\245`X\203\245\311\306#\312\313!\203\245\314 \211\203\245 @ A@\211Sf\315>\203D S\nf\316>\203N\nT\nY\203\245\307\nb\210\204\236\211A@@\211\203\236\f@\317\320\307\320\307\306&*\306=\205\231\311A \306#\205\231\320\224 Y\211\203c* b\210\202\203\263\321\320\224\320\225\322\320\224$\210.\207" [found end start bounds field pnt t nil bibtex-beginning-of-field re-search-forward match-string-no-properties 1 bibtex-parse-field-text (125 34) (123 34) compare-strings 0 bibtex-button bibtex-url case-fold-search bound bibtex-font-lock-url-regexp bibtex-generate-url-list url lst str2 str1] 9 (#$ . 96565)]) #@58 Font-lock for crossref fields. BOUND limits the search. (defalias 'bibtex-font-lock-crossref #[(bound) "\306`\307\310\211\211\311 \210\204,\312 \306#\203,\313\224T\313\225S\n\fY\211\203\203=\314\n \315\316\n \"\n\306&\210.\207" [found end start crossref-reg pnt case-fold-search t "^[ ]*crossref[ ]*=[ \n]*\\(\"[^\"]*\"\\|{[^}]*}\\)[ \n]*[,})]" nil bibtex-beginning-of-field re-search-forward 1 bibtex-button bibtex-find-crossref buffer-substring-no-properties bound] 8 (#$ . 97364)]) #@32 Call BUTTON's BibTeX function. (defalias 'bibtex-button-action #[(button) "\301\302\303\"\302\304\"\"\207" [button apply button-get bibtex-function bibtex-args] 5 (#$ . 97881)]) (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-find-crossref "mouse-2, RET: follow crossref"] 9) #@74 Make a BibTeX button from BEG to END of type TYPE in the current buffer. (defalias 'bibtex-button #[(beg end type &rest args) "\304 \302\n\305 &\207" [beg end type args make-text-button bibtex-args] 7 (#$ . 98345)]) #@2578 Major mode for editing BibTeX files. General information on working with BibTeX mode: Use commands such as \[bibtex-Book] to get a template for a specific entry. Then fill in all desired fields using \[bibtex-next-field] to jump from field to field. After having filled in all desired fields in the entry, clean the new entry with the command \[bibtex-clean-entry]. Some features of BibTeX mode are available only by setting the variable `bibtex-maintain-sorted-entries' to non-nil. However, then BibTeX mode works only with buffers containing valid (syntactical correct) and sorted entries. This is usually the case, if you have created a buffer completely with BibTeX mode and finished every new entry with \[bibtex-clean-entry]. For third party BibTeX files, call the command \[bibtex-convert-alien] to fully take advantage of all features of BibTeX mode. Special information: A command such as \[bibtex-Book] outlines the fields for a BibTeX book entry. The names of optional fields start with the string OPT, and are thus ignored by BibTeX. The names of alternative fields from which only one is required start with the string ALT. The OPT or ALT string may be removed from the name of a field with \[bibtex-remove-OPT-or-ALT]. \[bibtex-make-field] inserts a new field after the current one. \[bibtex-kill-field] kills the current field entirely. \[bibtex-yank] yanks the last recently killed field after the current field. \[bibtex-remove-delimiters] removes the double-quotes or braces around the text of the current field. \[bibtex-empty-field] replaces the text of the current field with the default "" or {}. \[bibtex-find-text] moves point to the end of the current field. \[bibtex-complete] completes word fragment before point according to context. The command \[bibtex-clean-entry] cleans the current entry, i.e. it removes OPT/ALT from the names of all non-empty optional or alternative fields, checks that no required fields are empty, and does some formatting dependent on the value of `bibtex-entry-format'. Furthermore, it can automatically generate a key for the BibTeX entry, see `bibtex-generate-autokey'. Note: some functions in BibTeX mode depend on entries being in a special format (all fields beginning on separate lines), so it is usually a bad idea to remove `realign' from `bibtex-entry-format'. BibTeX mode supports Imenu and hideshow minor mode (`hs-minor-mode'). ---------------------------------------------------------- Entry to BibTeX mode calls the value of `bibtex-mode-hook' if that value is non-nil. \{bibtex-mode-map} (defalias 'bibtex-mode #[nil "\306 \210\307!\210\310\311\312 !\210\313\314!\210\f\204\315 \316\317#\313\320!\210\321\313\322!\210(\313\323!\210\324(!\325P\313\326!\210\327\313\330!\210\331\313\332!\210\333\313\334!\210\335\313\336!\210\337)*\\\340\"\313\341!\210\342!\343+,EC-\316.\313\344!\210\345/!\210\3450!\210\346\347!\207" [bibtex-mode-map major-mode mode-name bibtex-mode-syntax-table bibtex-parse-idle-timer bibtex-parse-keys-timeout kill-all-local-variables use-local-map bibtex-mode "BibTeX" set-syntax-table make-local-variable bibtex-buffer-last-parsed-tick run-with-idle-timer t bibtex-parse-buffers-stealthily paragraph-start "[ \f\n ]*$" comment-start comment-start-skip regexp-quote "\\>[ ]*" comment-column 0 defun-prompt-regexp "^[ ]*@[[:alnum:]]+[ ]*" outline-regexp "[ ]*@" fill-paragraph-function bibtex-fill-field fill-prefix make-string 32 font-lock-defaults (bibtex-font-lock-keywords nil t ((36 . "\"") (34 . ".")) nil (font-lock-syntactic-keywords . bibtex-font-lock-syntactic-keywords) (font-lock-extra-managed-props category) (font-lock-mark-block-function lambda nil (set-mark (bibtex-end-of-entry)) (bibtex-beginning-of-entry))) nil choose-completion-string-functions easy-menu-add run-mode-hooks bibtex-mode-hook bibtex-comment-start bibtex-entry-offset bibtex-contline-indentation bibtex-entry-head bibtex-key-in-head imenu-generic-expression imenu-case-fold-search bibtex-edit-menu bibtex-entry-menu] 4 (#$ . 98571) nil]) #@352 Return list of allowed fields for entry ENTRY-TYPE. More specifically, the return value is a cons pair (REQUIRED . OPTIONAL), where REQUIRED and OPTIONAL are lists of the required and optional field names for ENTRY-TYPE according to `bibtex-entry-field-alist', `bibtex-include-OPTkey', `bibtex-include-OPTcrossref', and `bibtex-user-optional-fields'. (defalias 'bibtex-field-list #[(entry-type) "\306 \307#\310\211\211\204\311\312\"\210\313 \"\203.\314\f8\203.\314\f8@\314\f8A@\2029\fA@@\fA@A@\203S\315\316;\204M\317!\205OE\nB\313 \"\203^\320\nB\321\n\" \n+B\207" [entry-type bibtex-entry-field-alist optional required e bibtex-include-OPTcrossref assoc-string t nil error "Fields for BibTeX entry type %s not defined" member-ignore-case 2 "key" "Used for reference key creation if author and editor fields are missing" functionp ("crossref" "Reference key of the cross-referenced entry") append bibtex-include-OPTkey bibtex-user-optional-fields] 5 (#$ . 102647)]) #@131 Insert a new BibTeX entry of type ENTRY-TYPE. After insertion call the value of `bibtex-add-entry-hook' if that value is non-nil. (defalias 'bibtex-entry #[(entry-type) "\205\n\306\307\310 \"!\311 !\312 \313 E!\204\314\315 \"\210\fj\210\316 \317 \261\210 \203. c\210\212\320\321\n@\"\210\320\322\nA\"\210 \203B\323c\210\324c\210\fj\210\325 \326\261\210)\327\330!\210\331 \"\203^\332 \210\333\334!*\207" [bibtex-maintain-sorted-entries entry-type field-list key bibtex-entry-offset bibtex-comma-after-last-field bibtex-read-key format "%s key: " bibtex-field-list bibtex-prepare-new-entry nil error "Entry with key `%s' already exists" "@" bibtex-entry-left-delimiter mapc bibtex-make-field bibtex-make-optional-field "," "\n" bibtex-entry-right-delimiter "\n\n" bibtex-next-field t member-ignore-case bibtex-autofill-entry run-hooks bibtex-add-entry-hook bibtex-autofill-types] 4 (#$ . 103652) (let ((completion-ignore-case t)) (list (completing-read "Entry Type: " bibtex-entry-field-alist nil t nil 'bibtex-entry-type-history)))]) #@389 Update an existing BibTeX entry. In the BibTeX entry at point, make new fields for those items that may occur according to `bibtex-field-list', but are not yet present. Also, add field delimiters to numerical fields if they are not present. If ENTRY-TYPE is non-nil, change first the entry type to ENTRY-TYPE. When called interactively with a prefix arg, query for a value of ENTRY-TYPE. (defalias 'bibtex-entry-update #[(&optional entry-type) "\212\306 \210\307!\205\334\310\225b\210 \203!\212\311\312 P\313\211\211\314%\210)\202)\315\n\224T\n\225\"\316 !\317 @!\317 A!\313 \320 \211 \203\232\321 \322\"\323  \324 8)\322\"!\"\325\326\"\f\322#\f\"\325\326\" \322# \"\327\330\331 !\"\203\222  \332 8)b\210\333 c\210 \211 A@)b\210\334 c\210!b\210*\202:\335\313x\210\f\313#\211$\203\273$@#\336#!\210$A\211$\204\250* \313#\211%\203\331%@#\337#!\210%A\211%\204\306.\313)\207" [bibtex-entry-maybe-empty-head entry-type bibtex-type-in-head field-list required optional bibtex-beginning-of-entry looking-at 0 replace-match "@" nil 1 buffer-substring-no-properties bibtex-field-list copy-tree bibtex-parse-field bibtex-name-in-field t copy-marker 3 delete assoc-string string-match "\\`[0-9]+\\'" bibtex-text-in-field-bounds 2 bibtex-field-right-delimiter bibtex-field-left-delimiter " \n" bibtex-make-field bibtex-make-optional-field bounds end fname field #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp--] 7 (#$ . 104705) (list (if current-prefix-arg (let ((completion-ignore-case t)) (completing-read "New entry type: " bibtex-entry-field-alist nil t nil 'bibtex-entry-type-history))))]) #@339 Parse entry at point, return an alist. The alist elements have the form (FIELD . TEXT), where FIELD can also be the special strings "=type=" and "=key=". For the FIELD "=key=" TEXT may be nil. Remove "OPT" and "ALT" from FIELD. Move point to the end of the last field. If optional arg CONTENT is non-nil extract content of text fields. (defalias 'bibtex-parse-entry #[(&optional content) "\306\211\307\n!\203H\310\311 \224T \225\"B B\312\306\313 !\206 \f)B B\314\225b\210\315 \211\203H\316\317\"\320\"B B\3218)b\210\202) *\207" [bounds alist bibtex-entry-maybe-empty-head bibtex-type-in-head empty bibtex-key-in-head nil looking-at "=type=" buffer-substring-no-properties "=key=" match-string-no-properties 0 bibtex-parse-field bibtex-name-in-field t bibtex-text-in-field-bounds 3 content] 4 (#$ . 106343)]) #@487 Try to fill fields of current BibTeX entry based on neighboring entries. The current entry must have a key. Determine the neighboring entry (previouse or next) whose key is more similar to the key of the current entry. For all empty fields of the current entry insert the corresponding field contents of the neighboring entry. Finally try to update the text based on the difference between the keys of the neighboring and the current entry (for example, the year parts of the keys). (defalias 'bibtex-autofill-entry #[nil "\306 \210\307 \210\310!\205z\311 \224T \225\"\312\313 !\206\n) \225\314\211\312\211\211\211 !\"#$%&$b\210\212\315\224Sb\210\307 \210\310!\203\200&\311 \224T \225\"'(\316(\315\312'\315\312\314&*\314=\203\200%\312\313 !\206r\n)\211!\232\204\200! `)\212\317 \210\320 \210\310!\203\341&\311 \224T \225\"'(\316(\315\312'\315\312\314&*\314=\203\341%\312\313 !\206\270\n)\211!\232\204\341 \203\333\321\322% D\"G\321\322%!D\"GW\203\341! `) \205x\212 b\210\323 )`$\324 \211\2034\325\326\f\314\" \314#\211)\203\327\f\314\"\322\232\204\f\330\f8)b\210\2020\f\211A@)b\210`\f\331\f8)|\210)Ac\210)\202\361\321\322% D\"*\332\333*\"\205O*\315\211\224O\211*+%*G\312O, *G\312O-\334\335-!$\336#\205w\337,!\210\202c,. \207" [bibtex-entry-head bibtex-type-in-head empty bibtex-key-in-head bounds other undo-boundary bibtex-beginning-of-entry looking-at buffer-substring-no-properties nil match-string-no-properties t 0 compare-strings bibtex-end-of-entry bibtex-skip-to-valid-entry try-completion "" bibtex-parse-entry bibtex-parse-field assoc-string bibtex-name-in-field bibtex-text-in-field-bounds 3 2 string-match "[0-9]+\\'" re-search-backward regexp-quote move replace-match other-key tmp bibtex-sort-ignore-string-entries case-fold-search key-end key type str2 str1 text prefix _ suffix other-suffix] 10 (#$ . 107178) nil]) #@158 Print helpful information about current FIELD in current BibTeX entry. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-print-help-message #[(&optional field comma) "\204 \306\307\211 #@\310\311\"\203F\312\313 \314\307\n\314\307\315&*\315=\203*\316\317!\207\320\313 \314\307\n\314\307\315&*\315=\203B\316\321!\207\316\322!\207\315\212\323 \210\324 !\210\325\224T\225\")\326!\327\330@A\"\315#\211\203~\316\331A@\"\202\201\316\332!,\207" [field comma str2 str1 case-fold-search bibtex-entry-maybe-empty-head bibtex-find-text-internal nil string-match "@" "@string" compare-strings 0 t message "String definition" "@preamble" "Preamble definition" "Entry key" bibtex-beginning-of-entry looking-at buffer-substring-no-properties bibtex-field-list assoc-string append "%s" "No comment available" bibtex-type-in-head type field-list comment] 9 (#$ . 109110) (list nil t)]) #@496 Make a field named FIELD in current BibTeX entry. FIELD is either a string or a list of the form (FIELD-NAME COMMENT-STRING INIT ALTERNATIVE-FLAG) as in `bibtex-entry-field-alist'. If MOVE is non-nil, move point past the present field before making the new field. If INTERACTIVE is non-nil, move point to the end of the new field. Otherwise move point past the new field. MOVE and INTERACTIVE are t when called interactively. INIT is surrounded by field delimiters, unless NODELIM is non-nil. (defalias 'bibtex-make-field #[(field &optional move interactive nodelim) ":\204C \203\306 \210\307\310!\203\311u\210\312c\210\n \\j\210\3138\203)\314c\210@\315\261\210\f\203:\n \316Z\\j\210\317c\210\f\204F\n \\j\210\3168\211\204U\320\202m\321!\203a ;\204m\322\323\"\210\203yc\210\202\202\324 \325 \261\210)\205\232h\326>\203\221\327u\210\205\232\330@!\207" [field move bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation bibtex-find-text looking-at "[}\"]" nil ",\n" 3 "ALT" " " 2 "= " "" functionp error "`%s' is not a string" bibtex-field-left-delimiter bibtex-field-right-delimiter (125 34) -1 bibtex-print-help-message init nodelim interactive bibtex-help-message] 4 (#$ . 110076) (list (let ((completion-ignore-case t) (field-list (bibtex-field-list (save-excursion (bibtex-beginning-of-entry) (looking-at bibtex-any-entry-maybe-empty-head) (bibtex-type-in-head))))) (completing-read "BibTeX field name: " (append (car field-list) (cdr field-list)) nil nil nil bibtex-field-history)) t t)]) #@275 Move to beginning of BibTeX entry (beginning of line). If inside an entry, move to the beginning of it, otherwise move to the beginning of the previous entry. If point is ahead of all BibTeX entries move point to the beginning of buffer. Return the new location of point. (defalias 'bibtex-beginning-of-entry #[nil "\300\301w\210\302\303!\203 \301u\210\304\305\301\306#\210`\207" [" " nil looking-at "@" re-search-backward "^[ ]*@" move] 4 (#$ . 111670) nil]) #@219 Move to end of BibTeX entry (past the closing brace). If inside an entry, move to the end of it, otherwise move to the end of the previous entry. Do not move if ahead of first entry. Return the new location of point. (defalias 'bibtex-end-of-entry #[nil "\305`\306 \307\305!\203Ab\210\202G\310\305!\206\311 \211\203/\312A8)b\210\202G\313\f!\203<\314\315!\210\202Gt\203D\316\317!\210\nb\210`,\207" [bounds _ pnt case-fold-search bibtex-any-valid-entry-type t bibtex-beginning-of-entry bibtex-valid-entry bibtex-parse-string bibtex-parse-preamble 2 looking-at error "Syntactically incorrect BibTeX entry starts here." message "Not on a known BibTeX entry."] 5 (#$ . 112142) nil]) #@62 Goto line ARG, counting from beginning of (narrowed) buffer. (defalias 'bibtex-goto-line #[(arg) "eb\210\302=\203\303\304\305\306 S$\207 Sy\207" [selective-display arg t re-search-forward "[\n ]" nil end] 5 (#$ . 112847)]) #@158 Make the current BibTeX entry visible. If entry is smaller than `window-body-height', entry is centered in window. Otherwise display the beginning of entry. (defalias 'bibtex-reposition-window #[nil "`\303\304 !\303\305 !\306  ZV\203'\307 \\\310\\\311\245!\210\312 \210\nb\202C\307 !\210\312\313!\210\303\n! ZT\306 V\203A\307 !\202C\nb+\207" [end beg pnt line-number-at-pos bibtex-beginning-of-entry bibtex-end-of-entry window-body-height bibtex-goto-line 1 2 recenter 0] 4 (#$ . 113080) nil]) #@62 Put mark at beginning, point at end of current BibTeX entry. (defalias 'bibtex-mark-entry #[nil "\300\301 !\210\302 \207" [set-mark bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 113589) nil]) #@234 Count number of entries in current buffer or region. With prefix argument COUNT-STRING-ENTRIES count all entries, otherwise count all entries except @String entries. If mark is active count entries in region, if not in whole buffer. (defalias 'bibtex-count-entries #[(&optional count-string-entries) "\304?\214 \203\305 \306 }\210\307\310!\210)\311\312 \203\313\202 \314\n#*\207" [count-string-entries bibtex-sort-ignore-string-entries number mark-active 0 region-beginning region-end bibtex-map-entries #[(key beg end) "T\211\207" [number] 2] message "%s contains %d entries." "Region" "Buffer"] 4 (#$ . 113797) "P"]) #@41 Check BibTeX entry for spelling errors. (defalias 'bibtex-ispell-entry #[nil "\300\212\301 )\212\302 )\"\207" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 114432) nil]) #@53 Check abstract of BibTeX entry for spelling errors. (defalias 'bibtex-ispell-abstract #[nil "\212\301 \210\302\303\304\")\211\203\305\211A@)\3068)\"\202\"\307\310!)\207" [bounds bibtex-beginning-of-entry bibtex-search-forward-field "abstract" t ispell-region 2 error "No abstract in entry"] 5 (#$ . 114632) nil]) #@40 Narrow buffer to current BibTeX entry. (defalias 'bibtex-narrow-to-entry #[nil "\212~\210\300 \301 })\207" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 114960) nil]) #@349 Return index of BibTeX entry head at or past position of point. The index is a list (KEY CROSSREF-KEY ENTRY-NAME) that is used for sorting the entries of the BibTeX buffer. CROSSREF-KEY is nil unless the value of `bibtex-maintain-sorted-entries' is `crossref'. Move point to the end of the head of the entry found. Return nil if no entry found. (defalias 'bibtex-entry-index #[nil "\306\307 \310\306#\205D\310\311 !\206\n)\312\f\224T\f\225\"\227\313=\203>\314\315\306\"\2058\316\306\" E)\202C\310 E*)\207" [case-fold-search bibtex-entry-maybe-empty-head empty bibtex-key-in-head bibtex-type-in-head entry-name t re-search-forward nil match-string-no-properties buffer-substring-no-properties crossref bibtex-search-forward-field "\\(OPT\\)?crossref" bibtex-text-in-field-bounds key bibtex-maintain-sorted-entries bounds] 4 (#$ . 115144)]) (defalias 'bibtex-init-sort-entry-class-alist #[nil "\306\307!?\205R\310\307!\210\311\312\n\312\211\203K\f@ T \312\211 \203C @\211;\2034 \227\2025 BB A\211 \204&*\fA\211\204\312,\211\207" [alist i bibtex-sort-entry-class class #1=#:--cl-dolist-temp-- entry local-variable-p bibtex-sort-entry-class-alist make-local-variable -1 nil #2=#:--cl-dolist-temp--] 4]) #@233 Predicate for sorting BibTeX entries with indices INDEX1 and INDEX2. Each index is a list (KEY CROSSREF-KEY ENTRY-NAME). The predicate depends on the variable `bibtex-maintain-sorted-entries'. If its value is nil use plain sorting. (defalias 'bibtex-lessp #[(index1 index2) "\204 ?\207 \204 \306\207\n\307=\203TA@\203A A@\2039A@ A@\231\206\230A@ A@\230\205S@ @\231\207 @A@\231?\207 A@\203N@ A@\231\207@ @\231\207\n\310=\203\223\311\3128 \"\206k\311\313 \"\206k\314A\311\312 8 \"\206}\311\313 \"\206}\315A\211\fW\206\221 \fU\205\221@ @\231*\207@ @\231\207" [index1 index2 bibtex-maintain-sorted-entries bibtex-sort-entry-class-alist n2 n1 nil crossref entry-class assoc 2 catch-all (nil . 1000) (nil . 1000)] 5 (#$ . 116404)]) #@287 Sort BibTeX buffer alphabetically by key. The predicate for sorting is defined via `bibtex-maintain-sorted-entries'. If its value is nil use plain sorting. Text outside of BibTeX entries is not affected. If `bibtex-sort-ignore-string-entries' is non-nil, @String entries are ignored. (defalias 'bibtex-sort-buffer #[nil "\300 \210\301 \210\302\303\304\305\306\303\307&\207" [bibtex-beginning-of-first-entry bibtex-init-sort-entry-class-alist sort-subr nil bibtex-skip-to-valid-entry bibtex-end-of-entry bibtex-entry-index bibtex-lessp] 7 (#$ . 117166) nil]) #@636 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. 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 crossref key of current entry and SPLIT is t. (defalias 'bibtex-find-crossref #[(crossref-key &optional pnt split) "\306\211\211\212\307 \310\"p)\np= \204#\f\203j\311\312 \"\210\202j\f\203Z \204-` b\210\203<\313\314 !\210\202@\315\n!\210 b\210\316 \210\317 \210\203j V\203j\320\321!\210\202j\203d b\210\202j\nq\210 b\210 +\207" [eqb pos buffer crossref-key split pnt nil bibtex-find-entry t message "Crossref key `%s' not found" select-window split-window pop-to-buffer bibtex-reposition-window beginning-of-line error "The referencing entry must precede the crossrefed entry!"] 3 (#$ . 117734) (let ((crossref-key (save-excursion (bibtex-beginning-of-entry) (let ((bounds (bibtex-search-forward-field "crossref" t))) (if bounds (bibtex-text-in-field-bounds bounds t)))))) (list (bibtex-read-key "Find crossref key: " crossref-key t) (point) t))]) #@477 Move point to the beginning of BibTeX entry named KEY. Return position of entry if KEY is found or nil if not found. With prefix arg 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'. DISPLAY is t when called interactively. (defalias 'bibtex-find-entry #[(key &optional global start display) "\203f \203f\306\307!\310\211\n\2043\f\211A@\211\2033r q\210\311 \"A\203/\312 !)\202\n\203O\203O\313 !B\314 !\210\315 \210)\202c\n\203Y q\210\202c\203c\316\317 \"\210\n+\207\307\212\206peb\210\320\321\322\323 !\324\260\310\307#\205\205\325\224)\211\203\233b\210\203\245\315 \210\202\245\203\245\316\317 \"\210*\207" [global bibtex-files found buffer buffer-list key bibtex-files-expand t nil assoc-string bibtex-find-entry buffer-name pop-to-buffer bibtex-reposition-window message "Key `%s' not found" re-search-forward "^[ ]*\\(" "\\)[ ]*[({][ \n]*\\(" regexp-quote "\\)[ \n]*[,=]" 0 bibtex-reference-keys display same-window-buffer-names case-fold-search start bibtex-entry-type pnt] 7 (#$ . 119201) (list (bibtex-read-key "Find key: " nil current-prefix-arg) current-prefix-arg nil t)]) #@377 Prepare a new BibTeX entry with index INDEX. INDEX is a list (KEY CROSSREF-KEY ENTRY-NAME). Move point where the entry KEY should be placed. If `bibtex-maintain-sorted-entries' is non-nil, perform a binary search to look for place for KEY. This requires that buffer is sorted, see `bibtex-validate'. Return t if preparation was successful or nil if entry KEY already exists. (defalias 'bibtex-prepare-new-entry #[(index) "\306 \210@\307\211\203#\n;\203\n\310\230\204#\311\n!\211\204) \204)\312 \210\202\335 \204\335\313\212\314 )\212db\210\315\313!)\211\203HA\202Ie Y\205S \307\211\212\204\262 \\\316\245b\210\315\313!\210\317 \320\"\203\224\321 \232\203\215\211\202^\202\\\322 \210\315 \210` \232\203\254\211\202^\202\\)b\210\321 \210\212\317 )\211\203\314\320\"\203\333\322 \210o\204\330\323\316y!\210\324 \210. ?\205\343\313*\207" [index key-exist key bibtex-maintain-sorted-entries case-fold-search left bibtex-init-sort-entry-class-alist nil "" bibtex-find-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 bounds right found actual-index new] 4 (#$ . 120600)]) #@482 Validate if buffer or region is syntactically correct. Check also for duplicate keys and correct sort order provided `bibtex-maintain-sorted-entries' is non-nil. With optional argument TEST-THOROUGHLY non-nil check also for the absence of required fields and for questionable month fields. If mark is active, validate current region, if not the whole buffer. Only check known entry types, so you can put comments outside of entries. Return t if test was successful, nil otherwise. (defalias 'bibtex-validate #[(&optional test-thoroughly) "\306\307\211\212\214 \203\310 \311 }\210eb\210\312\313!\210\307\211\314\315\307\306#\211\203o\312 \210\316\224b\210\317 \211\203< Ab\210\202\320 \206C\321 \211\203T \322 A8)b\210\202\3239!\203i\324 \325B B\316\225b\210\202\fb\210\202*\312\326!\210 \203}\306\202\307\211\211:;<\312\327!\210\330\331!\210\312\326!\210+\332 \210\333\307\306\"\307=\211>\203\371>@=r=q\210?)\307@\211A\203\357A@\211@A\203\346\334@@?\"A\203\346\335@@!\210\324 \336\337@@\340\341=!!#B BAA\211A\204\271*>A\211>\204\243*B\203\312\342!\210\306C\330\343!\210)\312\326!\210* \203\215\344\341 !D\345EFG\346 \347\"r\350E!q\210FDH\351=\204;\351 \210\352\353!\210ed|\210\354\n\203L\355\202M\356\261\210 \307I\211J\203uJ@I\336\357GI@IA$c\210JA\211J\204Z*\360\307!\210\352\361!\210\362\363!\210)\364E!\210+\307\202\233\365\366 \203\227\367\202\230\370\"\210\306+\207" [case-fold-search error-list syntax-error mark-active end bounds t nil region-beginning region-end bibtex-progress-message "Checking syntactical structure" re-search-forward "^[ ]*@" 0 bibtex-valid-entry bibtex-parse-string bibtex-parse-preamble 2 looking-at bibtex-current-line "Syntax error (check esp. commas, braces, and quotes)" done "Checking for duplicate keys" bibtex-map-entries #[(key beg end) "\306 \210\307  \203/\n \235\203\310 \311\312\n\"B\fB\202/ \203/\313 \"\204/\310 \314B\fB\n B\211\207" [current previous key key-list error-list bibtex-maintain-sorted-entries bibtex-progress-message bibtex-entry-index bibtex-current-line format "Duplicate key `%s'" bibtex-lessp "Entries out of order"] 4] bibtex-parse-keys bibtex-files-expand assoc-string bibtex-find-entry format "Duplicate key `%s' in %s" abbreviate-file-name buffer-file-name "Checking required fields and month fields" #[(key beg end) "\306 \210\307\310\224T\225\" \311#\312\n\313\234\314\234!\312\n\315\234\314\234!\316\211 \316\211!\"\317#!\210\320 \211 \203\324\321 !\211$\322%&\323&\314\316%\314\316\311&*\311=\203w\324 !'\325\326'\"\206j\307'(\311#)\204w\327 \330B)B)\307$ \311#\"\331\" \"\331\307$\f\311#\f\"\332\"8\203\252!\203\247\327 \333B)B)\202\252\311!$\334%&\323&\314\316%\314\316\311&*\311=\203\305\311)  \332 8)b\210\202/ \203\332\f\316* \316\"\211+\203+@\"\332\"8\203\376\"@*B*\202\212#b\210\327 )\335\336\"@\"B)B)+A\211+\204\347**A\205?\212#b\210\327 )\335\337*@*\211,A@)#B)B\211).\207" [bibtex-type-in-head bibtex-entry-field-alist entry-list req creq crossref-there bibtex-progress-message assoc-string buffer-substring-no-properties t copy-sequence 1 0 2 nil bibtex-beginning-first-field bibtex-parse-field bibtex-name-in-field "month" compare-strings bibtex-text-in-field-bounds string-match "\\`[\"{].+[\"}]\\'" bibtex-current-line "Questionable month field" delete 3 "More than one non-empty alternative" "crossref" format "Required field `%s' missing" "Alternative fields `%s'/`%s' missing" bounds alt-there field beg field-name str2 str1 month bibtex-predefined-month-strings error-list alt #1=#:--cl-dolist-temp-- x] 9] file-name-nondirectory "*BibTeX validation errors*" sort car-less-than-car get-buffer-create compilation-mode toggle-read-only -1 "BibTeX mode command `bibtex-validate'\n" "Maybe undetected errors due to syntax errors. Correct and validate again.\n" "\n" "%s:%d: %s\n" set-buffer-modified-p 1 goto-line 3 display-buffer message "%s is syntactically correct" "Region" "Buffer" bibtex-any-valid-entry-type key-list current previous buffer #2=#:--cl-dolist-temp-- bibtex-reference-keys key #3=#:--cl-dolist-temp-- test-thoroughly bibtex-sort-ignore-string-entries default-directory err-buf dir file major-mode err #4=#:--cl-dolist-temp--] 10 (#$ . 121912) "P"]) #@161 Check for duplicate keys in `bibtex-files'. With optional prefix arg STRINGS, check for duplicate strings, too. Return t if test was successful, nil otherwise. (defalias 'bibtex-validate-globally #[(&optional strings) "\306\307!\310\211\211\211\211\310\211&\203\246&@\212 q\210\310\211\211'()eb\210\311*\310\307#\203\225\312+\224T+\225\")\310,\313-!\206I,)(.\203j)\314/0\3150\316\310/\316\310\307&*\307=\204t\317)1\307#\203)('\235\203\213\320\321\322 \323 ($B\202)('B'\202) 'B B,&A\211&\204*\f\211A@\211\203\n \236Ar\nq\210\f\310\2112\203\n2@\211 \236A\310(\2113\2033@(\317( \"\203\367\324(!\210\320\325\322 \323 (\326\322 !!%B3A\2113\204\324*2A\2112\204\303+\202\247\203g\3274r\3304!q\2105\331=\204&\331 \210\332\333!\210ed|\210\334c\210\335\336\"\3106\2117\203O7@\2116c\2107A\2117\204>*\337\310!\210\332\340!\210\341\342!\210)\3434!\210)\310\202l\344\345!\210\307-\207" [error-list current-keys current-buf buffer-key-list buffer-list buffer bibtex-files-expand 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-find-entry "%s:%d: Duplicate key `%s' in %s\n" abbreviate-file-name "*BibTeX validation errors*" get-buffer-create compilation-mode toggle-read-only -1 "BibTeX mode command `bibtex-validate-globally'\n\n" sort string-lessp set-buffer-modified-p 1 goto-line 3 display-buffer message "No duplicate keys." #1=#:--cl-dolist-temp-- key-list key entry-type bibtex-entry-head bibtex-type-in-head empty bibtex-key-in-head strings str2 str1 bibtex-entry-field-alist #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- err-buf major-mode err #4=#:--cl-dolist-temp--] 11 (#$ . 126266) "P"]) #@206 Move point to end of text of next BibTeX field or entry head. With prefix BEGIN non-nil, move point to its beginning. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-next-field #[(begin &optional comma) "\306\307\310#\310\211\204\307\2026\311\n8b\210\312\n@\313\307#\203$\307\2026\314\315!\203.\316\225b\210\314\317!\2036\307 \203F\320 \310\307#\203F\316\224b\210\321\f\310 #*\207" [comma end-of-entry bounds bibtex-any-entry-maybe-empty-head begin bibtex-help-message bibtex-find-text-internal t nil 3 assoc-string ("@String" "@Preamble") looking-at ",[ \n]*" 0 "[)}][ \n]*" re-search-forward bibtex-find-text] 5 (#$ . 128114) (list current-prefix-arg t)]) #@424 Move point to end of text of current BibTeX field or entry head. With optional prefix BEGIN non-nil, move point to its beginning. Unless NOERROR is non-nil, an error is signaled if point is not on a BibTeX field. If optional arg HELP is non-nil print help message. When called interactively, the value of HELP is `bibtex-help-message'. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-find-text #[(&optional begin noerror help comma) "\305\306\307#\211\2038\n\203 A@b\210\310\311!\203-\307u\210\202-\312 8b\210h\313>\203-\314u\210 \205@\315 @!\202@\f?\205@\316\317!)\207" [comma bounds begin help noerror bibtex-find-text-internal t nil looking-at "[{\"]" 2 (125 34) -1 bibtex-print-help-message error "Not on BibTeX field"] 5 (#$ . 128853) (list current-prefix-arg nil bibtex-help-message t)]) #@610 Find text part of current BibTeX field or entry head. Return list (NAME START-TEXT END-TEXT END STRING-CONST) with field or entry name, start and end of text, and end of field or entry head. STRING-CONST is a flag which is non-nil if current subfield delimited by # is a BibTeX string constant. Return value is nil if field or entry head are not found. If optional arg NOERROR is non-nil, an error message is suppressed if text is not found. If optional arg SUBFIELD is non-nil START-TEXT and END-TEXT correspond to the current subfield delimited by #. Optional arg COMMA is as in `bibtex-enclosing-field'. (defalias 'bibtex-find-text-internal #[(&optional noerror subfield comma) "\212`\306\307\"\307\310\211\211\211\211\211\211\211 !\"\311 \210!\203Q\312!\307\"!\211!A@)!!\313!8)!!\314!8)\202#\315\307!\211!\203\225\"!!\313!A8)X\203\220\316!\211!A@)!\211!AA@)!!\313!A8)\202#\307\202#\317 \211!\203\330\"!!\313!A8)X\203\323\320!\211!A@)!\211!AA@)!!\313!A8)\202#\307\202#\321#!\203!\322\225b\210\203\364\323 $\324\216\325\326\310\307#\210*\"`X\203\327%!&\224\206 \322\225&\225\206\322\225\211\307\202#\307\202#\307'\203\203\f\204\203\n\211\204\203b\210 \204\203\321(!\322\225\307\204U\330 \211!\211A\310\203|\"X\203j\"X\203j\307\202nb\210\321\331!\2036\322\225b\2026\307\211\2026\f\204\224 \257\202\254\n\203\243)\204\243\332\333!\202\254)?\205\254\332\334!.\f\207" [comma string-const no-sub done failure end bibtex-enclosing-field t nil bibtex-beginning-of-entry bibtex-name-in-field 2 3 bibtex-parse-string "@String" bibtex-parse-preamble "@Preamble" looking-at 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "\\=[ \n]*," match-string-no-properties bibtex-parse-field-string "[ \n]*#[ \n]*" error "Not on text part of BibTeX field" "Not on BibTeX field" end-text start-text name case-fold-search bounds pnt bibtex-entry-maybe-empty-head save-match-data-internal bibtex-type-in-head bibtex-key-in-head subfield bibtex-field-const noerror] 12 (#$ . 129722)]) #@189 Remove the string starting optional/alternative fields. Align text and go thereafter to end of text. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-remove-OPT-or-ALT #[(&optional comma) "\305\306!\212 \211@A@)b\210\307\310!\205G\311\224\311\225|\210\312\313!\210\314u\210\315 \210 \2032\f\316Zj\210\2025\317c\210\312\313!\210\315 \210 \203E\317c\202G\fj+\207" [comma bounds case-fold-search bibtex-align-at-equal-sign bibtex-text-indentation t bibtex-enclosing-field looking-at "OPT\\|ALT" 0 search-forward "=" -1 delete-horizontal-space 2 " "] 4 (#$ . 131925) (list t)]) #@137 Remove "" or {} around current BibTeX field text. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-remove-delimiters #[(&optional comma) "\302\303\304#\305 8?\205\306 8S\306 8|\210 A@ A@T|)\207" [comma bounds bibtex-find-text-internal nil t 4 2] 4 (#$ . 132571) (list t)]) #@236 Kill the entire enclosing BibTeX field. With prefix arg COPY-ONLY, copy the current field to `bibtex-field-kill-ring', but do not actually kill it. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-kill-field #[(&optional copy-only comma) "\212\306\307 !\211\310\n8)\n\211@@) b\210\311\312w\210\313\n!\312\314\n!E B\211GV\2037S \233\312\241\210 \204C\f |\210-\315\211\207" [case-fold-search comma bounds end beg bibtex-field-kill-ring t bibtex-enclosing-field 3 "," nil bibtex-name-in-field bibtex-text-in-field-bounds field bibtex-field-kill-ring-max bibtex-field-kill-ring-yank-pointer copy-only bibtex-last-kill-command] 5 (#$ . 132910) (list current-prefix-arg t)]) #@136 Copy the BibTeX field at point to the kill ring. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-copy-field-as-kill #[(&optional comma) "\301\302\"\207" [comma bibtex-kill-field t] 3 (#$ . 133661) (list t)]) #@149 Kill the entire enclosing BibTeX entry. With prefix arg COPY-ONLY, copy the current entry to `bibtex-entry-kill-ring', but do not actually kill it. (defalias 'bibtex-kill-entry #[(&optional copy-only) "\212\306\307 \310 \210\311\n\312\313#\203\314\224b\210`\315 \"\fB\211G V\203, S\f\233\312\241\210\f\2048 |\210,\316\211\207" [case-fold-search beg bibtex-any-entry-maybe-empty-head end bibtex-entry-kill-ring bibtex-entry-kill-ring-max t bibtex-beginning-of-entry bibtex-end-of-entry re-search-forward nil move 0 buffer-substring-no-properties entry bibtex-entry-kill-ring-yank-pointer copy-only bibtex-last-kill-command] 5 (#$ . 133933) "P"]) #@69 Copy the entire enclosing BibTeX entry to `bibtex-entry-kill-ring'. (defalias 'bibtex-copy-entry-as-kill #[nil "\300\301!\207" [bibtex-kill-entry t] 2 (#$ . 134600) nil]) #@217 Reinsert the last BibTeX item. More precisely, reinsert the field or entry killed or yanked most recently. With argument N, reinsert the Nth most recently killed BibTeX item. See also the command \[bibtex-yank-pop]. (defalias 'bibtex-yank #[(&optional n) "\302S\303\"\210\304\211\207" [n this-command bibtex-insert-kill t bibtex-yank] 3 (#$ . 134778) "*p"]) #@554 Replace just-yanked killed BibTeX item with a different item. This command is allowed only immediately after a `bibtex-yank' or a `bibtex-yank-pop'. In this case, the region contains a reinserted previously killed BibTeX item. `bibtex-yank-pop' deletes that item and inserts in its place a different killed BibTeX item. With no argument, the previous kill is inserted. With argument N, insert the Nth previous kill. If N is negative, this is a more recent kill. The sequence of kills wraps around, so that after the oldest one comes the newest one. (defalias 'bibtex-yank-pop #[(n) "\304=\204\n\305\306!\210\304\307`\310\307!|\210\311 \307\")\207" [last-command this-command inhibit-read-only n bibtex-yank error "Previous command was not a BibTeX yank" t mark bibtex-insert-kill] 3 (#$ . 135145) "*p"]) #@155 Delete the text part of the current field, replace with empty text. Optional arg COMMA is as in `bibtex-enclosing-field'. It is t for interactive calls. (defalias 'bibtex-empty-field #[(&optional comma) "\303!\211\211A@)b\210` \304 8)|\210\305 \306 \261\210\307\310\311\n#)\207" [comma bounds bibtex-help-message bibtex-enclosing-field 2 bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-find-text t nil] 5 (#$ . 135964) (list t)]) #@200 Replace text of current field with the similar field in previous entry. With arg, goes up ARG entries. Repeated, goes up so many times. May be intermixed with \[bibtex-pop-next] (bibtex-pop-next). (defalias 'bibtex-pop-previous #[(arg) "\301\302\"\207" [arg bibtex-pop previous] 3 (#$ . 136423) "p"]) #@216 Replace text of current field with the text of similar field in next entry. With arg, goes down ARG entries. Repeated, goes down so many times. May be intermixed with \[bibtex-pop-previous] (bibtex-pop-previous). (defalias 'bibtex-pop-next #[(arg) "\301\302\"\207" [arg bibtex-pop next] 3 (#$ . 136734) "p"]) #@601 Finish editing the current BibTeX entry and clean it up. Check that no required fields are empty and formats entry dependent on the value of `bibtex-entry-format'. If the reference key of the entry is empty or a prefix argument is given, calculate a new reference key. (Note: this works only if fields in entry begin on separate lines prior to calling `bibtex-clean-entry' or if 'realign is contained in `bibtex-entry-format'.) Don't call `bibtex-clean-entry' on @Preamble entries. At end of the cleaning process, the functions in `bibtex-clean-entry-hook' are called with region narrowed to entry. (defalias 'bibtex-clean-entry #[(&optional new-key called-by-reformat) "\306\307 \310!\206\f\311\312!\313 \224T \225\"\314\315 !\206\n)-./ \31601\3171\320\3140\320\314\306&*\306=\203D\311\321!\210\202d \32201\3171\320\3140\320\314\306&*\306=\203a\323\202d\324 \2102\204m\f\204\254\325 3\204{\f\326\230\203\214 \323=\203\207\327\f!\202\213\330\331\f\"\212\332 \323=\203\2314\202\2335!\210 \224\203\250 \224 \225|\210\fc\210)6?\205\312\212\333 \210\3325\314\334#\203\303\320\224b\210`)7.7{8\3359\336 ):\314 9\203;\203\351 \323=\204.7|\210\337:!? `.\2128c\210)\202\340\f!\210`.U?\206\340\f\3147#  \203\311\341!\210\342 \314<\211=\203M=@\"A\203C\311\344\345 \"\210)=A\211=\204** \323=\203q?<\203\273\346\f?\"\204\273\f\347\350 \306\"B?B?\202\273><\203\273\346\f>\"\204\212\f\306B>B>\202\237\346\f>\"A\204\237\f\306B\351\fC>\"B>:A@\203\273\346:A@>\"\204\273:A@C>B>,,\205\312\212\214\352 \210\353\354!*-\207" [bibtex-any-entry-maybe-empty-head bibtex-type-in-head empty bibtex-key-in-head key entry-type t bibtex-beginning-of-entry looking-at error "Not inside a BibTeX entry" buffer-substring-no-properties nil match-string-no-properties "preamble" compare-strings 0 "No clean up of @Preamble entries" "string" string bibtex-format-entry bibtex-generate-autokey "" bibtex-read-string-key bibtex-read-key "Key to use: " re-search-forward bibtex-end-of-entry move crossref bibtex-entry-index bibtex-prepare-new-entry bibtex-find-entry "New inserted entry yields duplicate key" bibtex-files-expand assoc-string "Duplicate key in %s" buffer-file-name assoc bibtex-text-in-string bibtex-parse-string delete bibtex-narrow-to-entry run-hooks bibtex-clean-entry-hook _ start case-fold-search str2 str1 new-key bibtex-autokey-edit-before-use bibtex-string-maybe-empty-head bibtex-entry-maybe-empty-head called-by-reformat end entry bibtex-maintain-sorted-entries index bibtex-sort-ignore-string-entries buffer #1=#:--cl-dolist-temp-- bibtex-reference-keys bibtex-strings] 8 (#$ . 137053) "P"]) #@139 Fill BibTeX field delimited by BOUNDS. If JUSTIFY is non-nil justify as well. If optional arg MOVE is non-nil move point to end of field. (defalias 'bibtex-fill-field-bounds #[(bounds justify &optional move) "\306\3078)!\n\204\211A@)b\210\202d\211@@)b\210\310u\210\311 \210\312\313!\210\310u\210 \f\\j\210\314\315 \"\210\316\317!\210\320u\210 \203M \321Z\\j\210\202P\322c\210\310u\210\311 \210 \203`\322c\210\202dj\210\323\324 \310`%\210\205u b)\207" [bounds end-field justify bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign copy-marker 3 nil bibtex-delete-whitespace open-line 1 re-search-forward "[ \n]*=" replace-match "=" -1 2 " " fill-region-as-paragraph line-beginning-position bibtex-text-indentation default-justification move] 7 (#$ . 139769)]) #@179 Like \[fill-paragraph], but fill current BibTeX field. If optional prefix JUSTIFY is non-nil justify as well. In BibTeX mode this function is bound to `fill-paragraph-function'. (defalias 'bibtex-fill-field #[(&optional justify) "\303`!\304\305!\306\n\"\210 b*\207" [bounds pnt justify copy-marker bibtex-enclosing-field t bibtex-fill-field-bounds] 3 (#$ . 140580) "*P"]) #@310 Fill current BibTeX entry. Realign entry, so that every field starts on a separate line. Field names appear in column `bibtex-field-indentation', field text starts in column `bibtex-text-indentation' and continuation lines start here, too. If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too. (defalias 'bibtex-fill-entry #[nil "\305`!\305\306 !\307 \310\311 \210\fj\210\312 !\210\313 \211\203(\314\315\211#\210\202\316\317!\2031\310u\210\320\310x\210\311 \210\321\322!\210\310u\210\fj\210 b,\207" [bounds beg end pnt bibtex-entry-offset copy-marker bibtex-end-of-entry bibtex-beginning-of-entry nil bibtex-delete-whitespace bibtex-beginning-first-field bibtex-parse-field bibtex-fill-field-bounds t looking-at "," " \n" open-line 1] 4 (#$ . 140962) "*"]) #@72 Realign BibTeX entries such that they are separated by one blank line. (defalias 'bibtex-realign #[nil "eb\210\303\304\305Q\306 !\203\307\310!\210\311 \312\303#\203#\307\313!\210\202\314 \210\311\312\303#\205?\315 \210\316 \210\317m\203=\320\202>\321!*\207" [bibtex-entry-type entry-type case-fold-search t "[ \n]*\\(" "\\)" looking-at replace-match "\\1" re-search-forward nil "\n\n\\1" beginning-of-line bibtex-end-of-entry bibtex-delete-whitespace open-line 1 2] 4 (#$ . 141751)]) #@367 Reformat all BibTeX entries in buffer or region. Without prefix argument, reformatting is based on `bibtex-entry-format'. With prefix argument, read options for reformatting from minibuffer. With \[universal-argument] \[universal-argument] prefix argument, reuse previous answers (if any) again. If mark is active reformat entries in region, if not in whole buffer. (defalias 'bibtex-reformat #[(&optional read-options) "`\306 !\307\232\205\n\206  \2039\f\203\n\202N\310\311\312\313\314 \203)\315\202*\316\317P\320B\321BBBB\"\211\202N'\322=\203D\323\202N\324\325\326'B\211'\"' \205a\f\203\\ \202a\327\330!\211(\322)\331*\214+\203u\332 \333 }\210\326'>\203\334 \210\335\336\337\"\210\340\341!\210\335\342!\210)(\203\247\343\344!\210,\203\247\335\345\337\"\210\346 \210\335\342!\210b.\207" [pnt read-options bibtex-reformat-previous-options bibtex-reformat-previous-reference-keys use-previous-options bibtex-comma-after-last-field prefix-numeric-value 16 mapcar #[(option) "\301@!\205 A\207" [option y-or-n-p] 2] ("Realign entries (recommended)? " quote realign) ("Remove empty optional and alternative fields? " quote opts-or-alts) ("Remove delimiters around pure numerical fields? " quote numerical-fields) "Insert" "Remove" " comma at end of entry? " 'last-comma (("Replace double page dashes by single ones? " quote page-dashes) ("Inherit booktitle? " quote inherit-booktitle) ("Force delimiters? " quote delimiters) ("Unify case of entry types and field names? " quote unify-case)) t (realign opts-or-alts numerical-fields delimiters last-comma page-dashes unify-case inherit-booktitle) remove required-fields realign y-or-n-p "Generate new reference keys automatically? " nil region-beginning region-end bibtex-realign bibtex-progress-message "Formatting" 1 bibtex-map-entries #[(key beg end) "\301 \210\302\303\"\207" [reformat-reference-keys bibtex-progress-message bibtex-clean-entry t] 3] done kill-local-variable bibtex-reference-keys "Sorting" bibtex-sort-buffer bibtex-entry-format reformat-reference-keys bibtex-sort-ignore-string-entries bibtex-autokey-edit-before-use mark-active bibtex-maintain-sorted-entries] 7 (#$ . 142255) "*P"]) #@368 Make an alien BibTeX buffer fully usable by BibTeX mode. If a file does not conform with all standards used by BibTeX mode, some of the high-level features of BibTeX mode are not available. This function tries to convert current buffer to conform with these standards. With prefix argument READ-OPTIONS non-nil, read options for reformatting entries from minibuffer. (defalias 'bibtex-convert-alien #[(&optional read-options) "\304\305!\210\306\307\310\311#\210\312 \210\313=\203\310\202\"\203\"\310\314\315!\210\310\316 )\204.\304\317!\207\304\320!\210\306\321\310\311#\210\322 !\210db\210\304\323!\207" [transient-mark-mode mark-active bibtex-maintain-sorted-entries read-options message "Starting to validate buffer..." sit-for 1 nil t bibtex-realign 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."] 4 (#$ . 144454) "*P"]) #@429 Complete word fragment before point according to context. If point is inside key or crossref field perform key completion based on `bibtex-reference-keys'. Inside a month field perform key completion based on `bibtex-predefined-month-strings'. Inside any other field (including a String or Preamble definition) perform string completion based on `bibtex-strings'. An error is signaled if point is outside key or BibTeX field. (defalias 'bibtex-complete #[nil "`\306\307\211\211\212\310\307\306\"\211\203j\f\n\211A@)Y\203j\f\n\311\n8)X\203j\312\n\306\"\211\313%\314%\315\307 \315\307\306&*\306=\203I\316\202f \317%\314%\315\307 \315\307\306&*\306=\203d&\202f\320 \202\371\321 \210\322\306!\211\203\251\f\n@A@Y\203\214\f\311\n@8X\203\214\323\202\371\f\n\211A@)Y\203\371\f\n\211AA@)X\203\371\320 \202\371\324 \211\203\315\f\n\211A@)Y\203\371\f\n\211AA@)X\203\371\320 \202\371\325'!\203\371(\224\203\352\f(\224Y\203\352\f(\225X\204\367(\224\204\371\f\315\225U\203\371\326)\326=\203\307\211)*\327\330 !)\202a\316=\203$\307*\331)\332\327\330 !!)\202a\323=\2038\307)\306*\327!)\202a\203[\306*\333\334\335\336\337\340\341DE\342BBBBB)\337\327!\")\202a\307)\343\344!-\207" [compl name bounds case-fold-search pnt str2 t nil bibtex-enclosing-field 2 bibtex-name-in-field "crossref" compare-strings 0 crossref-key "month" bibtex-strings bibtex-beginning-of-entry bibtex-parse-string string bibtex-parse-preamble looking-at key bibtex-complete-internal bibtex-global-key-alist #[(choice buffer mini-p base-size) "\304\305 \n #\210\306 !\210\307\207" [choose-completion-string-functions choice buffer base-size nil choose-completion-string bibtex-complete-crossref-cleanup t] 4] bibtex-complete-crossref-cleanup lambda (choice buffer mini-p base-size) (setq choose-completion-string-functions nil) (choose-completion-string choice buffer base-size) bibtex-complete-string-cleanup choice quote (t) error "Point outside key or BibTeX field" str1 bibtex-predefined-month-strings bibtex-entry-maybe-empty-head bibtex-key-in-head choose-completion-string-functions completion-ignore-case] 9 (#$ . 145452) nil]) #@62 Insert a new BibTeX @Article entry; see also `bibtex-entry'. (defalias 'bibtex-Article #[nil "\300\301!\207" [bibtex-entry "Article"] 2 (#$ . 147639) "*"]) #@59 Insert a new BibTeX @Book entry; see also `bibtex-entry'. (defalias 'bibtex-Book #[nil "\300\301!\207" [bibtex-entry "Book"] 2 (#$ . 147801) "*"]) #@62 Insert a new BibTeX @Booklet entry; see also `bibtex-entry'. (defalias 'bibtex-Booklet #[nil "\300\301!\207" [bibtex-entry "Booklet"] 2 (#$ . 147954) "*"]) #@61 Insert a new BibTeX @InBook entry; see also `bibtex-entry'. (defalias 'bibtex-InBook #[nil "\300\301!\207" [bibtex-entry "InBook"] 2 (#$ . 148116) "*"]) #@67 Insert a new BibTeX @InCollection entry; see also `bibtex-entry'. (defalias 'bibtex-InCollection #[nil "\300\301!\207" [bibtex-entry "InCollection"] 2 (#$ . 148275) "*"]) #@68 Insert a new BibTeX @InProceedings entry; see also `bibtex-entry'. (defalias 'bibtex-InProceedings #[nil "\300\301!\207" [bibtex-entry "InProceedings"] 2 (#$ . 148452) "*"]) #@61 Insert a new BibTeX @Manual entry; see also `bibtex-entry'. (defalias 'bibtex-Manual #[nil "\300\301!\207" [bibtex-entry "Manual"] 2 (#$ . 148632) "*"]) #@68 Insert a new BibTeX @MastersThesis entry; see also `bibtex-entry'. (defalias 'bibtex-MastersThesis #[nil "\300\301!\207" [bibtex-entry "MastersThesis"] 2 (#$ . 148791) "*"]) #@59 Insert a new BibTeX @Misc entry; see also `bibtex-entry'. (defalias 'bibtex-Misc #[nil "\300\301!\207" [bibtex-entry "Misc"] 2 (#$ . 148971) "*"]) #@64 Insert a new BibTeX @PhdThesis entry; see also `bibtex-entry'. (defalias 'bibtex-PhdThesis #[nil "\300\301!\207" [bibtex-entry "PhdThesis"] 2 (#$ . 149124) "*"]) #@66 Insert a new BibTeX @Proceedings entry; see also `bibtex-entry'. (defalias 'bibtex-Proceedings #[nil "\300\301!\207" [bibtex-entry "Proceedings"] 2 (#$ . 149292) "*"]) #@65 Insert a new BibTeX @TechReport entry; see also `bibtex-entry'. (defalias 'bibtex-TechReport #[nil "\300\301!\207" [bibtex-entry "TechReport"] 2 (#$ . 149466) "*"]) #@66 Insert a new BibTeX @Unpublished entry; see also `bibtex-entry'. (defalias 'bibtex-Unpublished #[nil "\300\301!\207" [bibtex-entry "Unpublished"] 2 (#$ . 149637) "*"]) #@49 Insert a new BibTeX @String entry with key KEY. (defalias 'bibtex-String #[(&optional key) "?\205 \305\306 \305\307E!\204\310\311 \"\210\312 G!\203 \305\fj\210\313\314 \261\210 \2033 c\210\2025`\315\316 \261\210 \203A`\317 \320 \321\261\210\nb*\207" [bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries endpos key bibtex-entry-offset nil bibtex-prepare-new-entry "String" error "Entry with key `%s' already exists" zerop "@String" bibtex-entry-left-delimiter " = " bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n"] 4 (#$ . 149811) (list (bibtex-read-string-key))]) #@38 Insert a new BibTeX @Preamble entry. (defalias 'bibtex-Preamble #[nil "\302 \210j\210\303\304 \305 \261\210`\306 \307 \310\261\210 b)\207" [bibtex-entry-offset endpos bibtex-move-outside-of-entry "@Preamble" bibtex-entry-left-delimiter bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n"] 3 (#$ . 150454) "*"]) #@298 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). Then the URL is passed to `browse-url' unless NO-BROWSE is nil. Return the URL or nil if none can be generated. (defalias 'bibtex-url #[(&optional pos no-browse) "\212\203b\210\306 \210\307\310!\310 \311\211\211\211\211\211A@\211\203\377\312\f\211@@)\310#A\211\203!\313\f\211@A)\"\203!\311\fA\211\204`\314\315\"\202\351\f@;\203l\f\211A@\f\311\211 \203\326 @\312@\310#A\313A@\"\203\307\316\3178!\203\244\3178!\202\301\3178\247\203\267\314\3178\"\202\301\320\3178\310\311$ B\202\315\321\322\"\210 A\211 \204v*\n\203\344\323\324\n \237#\202\351\323\325 \237\"t\203\363\326\327 \"\210!\204!\330 !\210\202! \204 t\203 \326\331!\210 . \207" [pos bibtex-generate-url-list fmt obj scheme url bibtex-beginning-of-entry bibtex-parse-entry t nil assoc-string string-match match-string 0 functionp 2 replace-match error "Match failed: %s" apply format concat message "%s" browse-url "No URL known." field lst case-fold-search fields-alist x step #1=#:--cl-dolist-temp-- no-browse] 9 (#$ . 150815) nil]) (provide 'bibtex)