;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:27 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/textmodes/bibtex.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bibtex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\304\302B\305\303B\306\307\310\311\312\313\314\315\316&\210\307\317\311\320\313\310\315\321&\207" [current-load-list bibtex-maintainer-address bibtex-maintainer-salutation bibtex-version "Dirk Herrmann " "Hallo Dirk," "(emacs 20.4)" custom-declare-group bibtex nil "BibTeX mode." :group tex :prefix "bibtex-" bibtex-autokey "Generates 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 '(#$ . 1094) :group 'bibtex :type 'hook) #@154 *Controls type of field delimiters used. Set this to `braces' or `double-quotes' according to your personal preferences. This variable is buffer-local. (custom-declare-variable 'bibtex-field-delimiters ''braces '(#$ . -1241) :group 'bibtex :type '(choice (const braces) (const double-quotes))) (make-variable-buffer-local 'bibtex-field-delimiters) #@152 *Controls type of entry delimiters used. Set this to `braces' or `parentheses' according to your personal preferences. This variable is buffer-local. (custom-declare-variable 'bibtex-entry-delimiters ''braces '(#$ . -1597) :group 'bibtex :type '(choice (const braces) (const parentheses))) (make-variable-buffer-local 'bibtex-entry-delimiters) #@58 *All entries listed here will have an OPTcrossref field. (custom-declare-variable 'bibtex-include-OPTcrossref ''("InProceedings" "InCollection") '(#$ . -1948) :group 'bibtex :type '(repeat string)) #@194 *If non-nil, all entries will have an OPTkey field. If this is a string, it will be used as the initial field text. If this is a function, it will be called to generate the initial field text. (custom-declare-variable 'bibtex-include-OPTkey 't '(#$ . -2153) :group 'bibtex :type '(choice (const :tag "None" nil) (string :tag "Initial text") (function :tag "Initialize Function" :value fun) (other :tag "Default" t))) #@224 *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' (see documentation of this variable for details). (custom-declare-variable 'bibtex-user-optional-fields ''(("annote" "Personal annotation (ignored)")) '(#$ . -2577) :group 'bibtex :type '(repeat (group (string :tag "Field") (string :tag "Comment") (option (group :inline t :extra-offset -4 (choice :tag "Init" :value "" string function)))))) #@1411 *Controls 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. 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 booktitle field is empty, it is set to the contents of the title field of the crossreferenced entry. Caution: this will work only if buffer is correctly sorted. 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 numerical-fields) '(#$ . -3100) :group 'bibtex :type '(choice (const :tag "None" nil) (const :tag "All" t) (set :menu-tag "Some" (const opts-or-alts) (const numerical-fields) (const page-dashes) (const inherit-booktitle) (const realign) (const last-comma) (const delimiters) (const unify-case)))) #@158 *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 '(#$ . -4876) :group 'bibtex :type 'hook) #@233 *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.). This variable is buffer-local. (custom-declare-variable 'bibtex-sort-ignore-string-entries 't '(#$ . -5137) :group 'bibtex :type 'boolean) (make-variable-buffer-local 'bibtex-sort-ignore-string-entries) #@316 *If non-nil, BibTeX mode maintains all BibTeX entries in sorted order. Setting this variable to nil will strip off some comfort (e.g., TAB completion for reference keys in minibuffer, automatic detection of duplicates) from BibTeX mode. See also `bibtex-sort-ignore-string-entries'. This variable is buffer-local. (custom-declare-variable 'bibtex-maintain-sorted-entries 'nil '(#$ . -5548) :group 'bibtex :type 'boolean) (make-variable-buffer-local 'bibtex-maintain-sorted-entries) #@76 *Max length of `bibtex-field-kill-ring' before discarding oldest elements. (custom-declare-variable 'bibtex-field-kill-ring-max '20 '(#$ . -6037) :group 'bibtex :type 'integer) #@76 *Max length of `bibtex-entry-kill-ring' before discarding oldest elements. (custom-declare-variable 'bibtex-entry-kill-ring-max '20 '(#$ . -6220) :group 'bibtex :type 'integer) #@247 *Specifies interval for parsing buffers. All BibTeX buffers in Emacs are parsed if Emacs has been idle `bibtex-parse-keys-timeout' seconds. Only buffers which were modified after last parsing and which are maintained in sorted order are parsed. (custom-declare-variable 'bibtex-parse-keys-timeout '60 '(#$ . -6404) :group 'bibtex :type 'integer) #@912 Defines entry types and their associated fields. List of (ENTRY-NAME (REQUIRED OPTIONAL) (CROSSREF-REQUIRED CROSSREF-OPTIONAL)) triples. If the third element is nil, the first pair is always used. If not, the second pair is used in the case of presence of a crossref field and the third in the case of absence. 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 the comment to appear 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. (defvar 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]" "" t) ("editor" "Editor1 [and Editor2 ...] [and others]" "" 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]" "" t) ("editor" "Editor1 [and Editor2 ...] [and others]" "" 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]" "" t) ("editor" "Editor1 [and Editor2 ...] [and others]" "" 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]" "" t) ("editor" "Editor1 [and Editor2 ...] [and others]" "" 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"))))) (#$ . 6758)) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list bibtex-comment-start boundp "@Comment "] 2) #@57 List of functions to call when entry has been inserted. (custom-declare-variable 'bibtex-add-entry-hook 'nil '(#$ . 18365) :group 'bibtex :type 'hook) #@164 Alist of month string definitions. Should contain all strings used for months in the BibTeX style files. Each element is a list with just one element: the string. (custom-declare-variable 'bibtex-predefined-month-strings ''(("jan") ("feb") ("mar") ("apr") ("may") ("jun") ("jul") ("aug") ("sep") ("oct") ("nov") ("dec")) '(#$ . 18523) :group 'bibtex :type '(repeat (list string))) #@151 Alist of string definitions. Should contain the strings defined in the BibTeX style files. Each element is a list with just one element: the string. (custom-declare-variable 'bibtex-predefined-strings '(append bibtex-predefined-month-strings '(("acmcs") ("acta") ("cacm") ("ibmjrd") ("ibmsj") ("ieeese") ("ieeetc") ("ieeetcad") ("ipl") ("jacm") ("jcss") ("scp") ("sicomp") ("tcs") ("tocs") ("tods") ("tog") ("toms") ("toois") ("toplas"))) '(#$ . 18911) :group 'bibtex :type '(repeat (list string))) #@267 *List of BibTeX files containing string definitions. Those files must be specified using pathnames relative to the directories specified in `bibtex-string-file-path'. This variable is only evaluated when BibTeX mode is entered (i.e., when loading the BibTeX file). (custom-declare-variable 'bibtex-string-files 'nil '(#$ . -19418) :group 'bibtex :type '(repeat file)) #@69 *Colon separated list of paths to search for `bibtex-string-files'. (defvar bibtex-string-file-path (getenv "BIBINPUTS") (#$ . -19793)) #@75 *If not nil print help messages in the echo area on entering a new field. (custom-declare-variable 'bibtex-help-message 't '(#$ . -19935) :group 'bibtex :type 'boolean) #@129 *String to use as a prefix for all generated keys. See the documentation of function `bibtex-generate-autokey' for more detail. (custom-declare-variable 'bibtex-autokey-prefix-string '"" '(#$ . -20111) :group 'bibtex-autokey :type 'string) #@271 *Number of names to use for the automatically generated reference key. If this is variable is nil, all names are used. Possibly more names are used according to `bibtex-autokey-names-stretch'. See the documentation of function `bibtex-generate-autokey' for more detail. (custom-declare-variable 'bibtex-autokey-names '1 '(#$ . -20358) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@177 *Number of names that can additionally be used. These names are used only, if all names are used then. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-names-stretch '0 '(#$ . -20773) :group 'bibtex-autokey :type 'integer) #@146 *String to prepend to the generated key if not all names could be used. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-additional-names '"" '(#$ . -21068) :group 'bibtex-autokey :type 'string) #@281 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" "ss") ("\\\"u\\|\\\\\\\"u" "ue") ("\\\"U\\|\\\\\\\"U" "Ue") ("\\\\`\\|\\\\'\\|\\\\\\^\\|\\\\~\\|\\\\=\\|\\\\\\.\\|\\\\u\\|\\\\v\\|\\\\H\\|\\\\t\\|\\\\c\\|\\\\d\\|\\\\b" "") ("{" "") ("}" "")) (#$ . 21335)) #@327 Alist of (OLD-REGEXP NEW-STRING) pairs. Any part of name 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, so be sure to avoid inifinite loops here. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-change-strings 'bibtex-autokey-transcriptions '(#$ . 22135) :group 'bibtex-autokey :type '(repeat (list (regexp :tag "Old") (string :tag "New")))) #@137 *Function called for each name to perform case conversion. See the documentation of function `bibtex-generate-autokey' for more detail. (custom-declare-variable 'bibtex-autokey-name-case-convert ''downcase '(#$ . -22661) :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"))) #@197 *Number of characters from name to incorporate into key. If this is set to anything but a number, all characters are used. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-length ''infty '(#$ . -23104) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@127 *String that comes between any two names in the key. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-separator '"" '(#$ . -23456) :group 'bibtex-autokey :type 'string) #@147 *Number of rightmost digits from the year field to incorporate into key. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-year-length '2 '(#$ . -23702) :group 'bibtex-autokey :type 'integer) #@288 *If non-nil use year field from crossreferenced entry if necessary. If this variable is non-nil and the current entry has no year, but a valid crossref entry, the year field from the crossreferenced entry is used. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-year-use-crossref-entry 't '(#$ . -23965) :group 'bibtex-autokey :type 'boolean) #@312 *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 the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titlewords '5 '(#$ . -24381) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@175 *Regexp list defining the termination of the main part of the title. Case of the regexps is ignored. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-title-terminators ''("\\." "!" "\\?" ":" ";" "--") '(#$ . -24842) :group 'bibtex-autokey :type '(repeat regexp)) #@212 *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 the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titlewords-stretch '2 '(#$ . -25177) :group 'bibtex-autokey :type 'integer) #@283 *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 matchs a regexp from that list, it is not included in the title part of the key. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-ignore ''("A" "An" "On" "The" "Eine?" "Der" "Die" "Das" "[^A-Z].*" ".*[^a-zA-Z0-9].*") '(#$ . -25512) :group 'bibtex-autokey :type '(repeat regexp)) #@142 *Function called for each titleword to perform case conversion. See the documentation of function `bibtex-generate-autokey' for more detail. (custom-declare-variable 'bibtex-autokey-titleword-case-convert ''downcase '(#$ . -26001) :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"))) #@263 *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 the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-abbrevs 'nil '(#$ . -26454)) #@333 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, so be sure to avoid inifinite loops here. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-change-strings 'bibtex-autokey-transcriptions '(#$ . 26803) :group 'bibtex-autokey :type '(repeat (list (regexp :tag "Old") (string :tag "New")))) #@204 *Number of characters from title words to incorporate into key. If this is set to anything but a number, all characters are used. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-length '5 '(#$ . -27340) :group 'bibtex-autokey :type '(choice (const :tag "All" infty) integer)) #@117 *String to be put between the title words. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-titleword-separator '"_" '(#$ . -27699) :group 'bibtex-autokey :type 'string) #@132 *String to be put between name part and year part of key. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-name-year-separator '"" '(#$ . -27941) :group 'bibtex-autokey :type 'string) #@132 *String to be put between name part and year part of key. See the documentation of function `bibtex-generate-autokey' for details. (custom-declare-variable 'bibtex-autokey-year-title-separator '":_" '(#$ . -28197) :group 'bibtex-autokey :type 'string) #@75 *If non-nil, user is allowed to edit the generated key before it is used. (custom-declare-variable 'bibtex-autokey-edit-before-use 't '(#$ . -28455) :group 'bibtex-autokey :type 'boolean) #@349 Function to call before the generated key is presented. If non-nil this should be a single function, which is called before the generated key is presented (in entry or, if `bibtex-autokey-edit-before-use' is t, in minibuffer). This function must take one argument (the automatically generated key), and must return with a string (the key to use). (custom-declare-variable 'bibtex-autokey-before-presentation-function 'nil '(#$ . 28650) :group 'bibtex-autokey :type '(choice (const nil) function)) #@95 *Offset for BibTeX entries. Added to the value of all other variables which determine colums. (custom-declare-variable 'bibtex-entry-offset '0 '(#$ . -29154) :group 'bibtex :type 'integer) #@54 *Starting column for the name part in BibTeX fields. (custom-declare-variable 'bibtex-field-indentation '2 '(#$ . -29349) :group 'bibtex :type 'integer) #@117 *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 = ")) '(#$ . -29509) :group 'bibtex :type 'integer) #@59 *Starting column for continuation lines of BibTeX fields. (custom-declare-variable 'bibtex-contline-indentation '(+ bibtex-text-indentation 1) '(#$ . -29784) :group 'bibtex :type 'integer) #@158 *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 '(#$ . -29980) :group 'bibtex :type 'boolean) #@73 *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 '(#$ . -30247) :group 'bibtex :type 'boolean) (byte-code "\300\301!\203 \302\303M\210\202\302\304M\210\305\306!\203\307\306M\210\202\"\307\310M\210\300\207" [boundp mark-active bibtex-mark-active #[nil "\207" [mark-active] 1] #[nil "\203\301 \207\301\302!\207" [zmacs-regions mark t] 2] fboundp run-with-idle-timer bibtex-run-with-idle-timer #[(secs repeat function &rest args) "\303\304 \n\205 \305%\207" [function secs repeat start-itimer "bibtex" t] 6]] 2) #@63 Replacement for `forward-sexp' to be used by `hs-minor-mode'. (defalias 'bibtex-hs-forward-sexp #[(arg) "\301W\203\n\302\303!\207\304\305!\203\301\225b\210\306u\210\307\303!\207\307\303!\207" [arg 0 backward-sexp 1 looking-at "@\\S(*\\s(" -1 forward-sexp] 2 (#$ . 30859)]) (byte-code "\305\306\307\"\210\302B\310\302!\204K\311 \312\313\314 #\210\312\315\316 #\210\312\317\320 #\210\312\321\322 #\210\312\323\322 #\210\312\324\325 #\210\312\326\327 #\210\312\330\327 #\210\312\331\332 #\210 )\304B\310\304!\204\347\333 \334 \335\336#\210\334 \337\340#\210\334 \341\342#\210\334 \343\344#\210\334 \345\346#\210\334 \347\346#\210\334 \350\346#\210\334 \351\352#\210\334 \353\354#\210\334 \355\356#\210\334 \357\360#\210\334 \361\362#\210\334 \363\364#\210\334 \365\366#\210\334 \367\370#\210\334 \371\372#\210\334 \373\374#\210\334 \375\376#\210\334 \377\201@#\210\334 \201A\201B#\210\334 \201C\201D#\210\334 \201E\201F#\210\334 \201G\201H#\210\334 \201I\201J#\210\334 \201K\201L#\210\334 \201M\201N#\210\334 \201O\201P#\210\334 \201Q\201R#\210\334 \201S\201T#\210\334 \201U\201V#\210\334 \201W\201X#\210\334 \201Y\201Z#\210\334 \201[\201\\#\210\334 \201]\201Z#\210\334 \201^\201_#\210\334 \201`\201a#\210\334 \201b\201X#\210\334 \201c\201d#\210\334 \201e\201f#\210\334 \201g\201h#\210\334 \201i\201V#\210\334 \201j\201k#\210\334 \201l\201m#\210\334 \201n\201o#\210\334 \201p\201q#\210\334 \201r\201s#\210\334 \201t\201u#\210 )\305\207" [current-load-list st bibtex-mode-syntax-table km bibtex-mode-map add-to-list hs-special-modes-alist (bibtex-mode "@\\S(*\\s(" "\\s)" nil bibtex-hs-forward-sexp nil) boundp make-syntax-table modify-syntax-entry 34 "\"" 36 "$$ " 37 "< " 39 "w " 64 92 "\\" 12 "> " 10 126 " " make-sparse-keymap define-key " " bibtex-find-text "\n" bibtex-next-field "\211" bibtex-complete-string [(meta tab)] bibtex-complete-key "\"" bibtex-remove-delimiters "{" "}" "" bibtex-clean-entry "" bibtex-fill-entry "?" 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-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 "" 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) #@33 BibTeX-Edit Menu in BibTeX mode (defvar bibtex-edit-menu nil (#$ . 33751)) (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]) ("Operating on Current Entry" ["Fill Entry" bibtex-fill-entry t] ["Clean Entry" bibtex-clean-entry 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] "--" ["Ispell Entry" bibtex-ispell-entry t] ["Ispell Entry Abstract" bibtex-ispell-abstract t] ["Narrow to Entry" bibtex-narrow-to-entry t] "--" ["View Cite Locations (RefTeX)" reftex-view-crossref-from-bibtex (fboundp 'reftex-view-crossref-from-bibtex)]) ("Operating on Current Field" ["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 Complete" bibtex-complete-string t] ["Key Complete" bibtex-complete-key t] "--" ["Help about Current Field" bibtex-print-help-message t]) ("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]) ("Miscellaneous" ["Convert Alien Buffer" bibtex-convert-alien t] ["Submit Bug Report" bibtex-submit-bug-report t]))) #@33 Entry-Types Menu in BibTeX mode (defvar bibtex-entry-menu nil (#$ . 35682)) (byte-code "\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\257$\210\302 B\331\302!\204$\332\303 B\331\303!\2040\332\304 B\331\304!\204<\332\305 B\331\305!\204H\332\333 B\331\333!\204U\332\334 B\331\334!\204b\332\335 B\331\335!\204o\332\336 B\331\336!\204|\332\337\336!\210\340 B\331\340!\204\215\332 \337\340!\210\341 B\331\341!\204\236\332!\337\341!\210\342 B\331\342!\204\257\332\"\343 B\331\343!\204\274\332#\344 B\331\344!\204\311\332$\345 B\331\345!\204\326\332%\346 B\331\346!\204\343\332&\347 B\331\347!\204\360\332'\350 B\331\350!\204\375\332(\351 B\331\351!\204\n\332)\352 B\331\352!\204\332*\353 B\354+\355 B\356+P-\357 B\360/\332\207" [bibtex-mode-map current-load-list bibtex-pop-previous-search-point bibtex-pop-next-search-point bibtex-field-kill-ring bibtex-field-kill-ring-yank-pointer 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] boundp nil bibtex-entry-kill-ring bibtex-entry-kill-ring-yank-pointer bibtex-last-kill-command bibtex-strings make-variable-buffer-local bibtex-reference-keys bibtex-buffer-last-parsed-tick bibtex-parse-idle-timer bibtex-progress-lastperc bibtex-progress-lastmes bibtex-progress-interval bibtex-key-history bibtex-entry-type-history bibtex-field-history bibtex-reformat-previous-options bibtex-reformat-previous-reference-keys bibtex-field-name "[^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*" bibtex-entry-type "@" bibtex-reference-key "[][a-zA-Z0-9.:;?!`'/*@+=|()<>&_^$-]+"] 20) #@135 *Starting on an opening brace, find the corresponding closing brace. When the function is called, NESTING-LEVEL has to be set to `0'. (defalias 'bibtex-parse-nested-braces #[(nesting-level) "\301\302!\203\303\304!\210\305T!\207\301\306!\203)\307u\210\307U\203 `\207\303\310!\210\305S!\207\311\207" [nesting-level looking-at "{" search-forward-regexp "{[^{}]*" bibtex-parse-nested-braces "}" 1 "[^{}]*" nil] 2 (#$ . -37948)]) #@280 *Parse a field string enclosed by braces. The field string has to be syntactically correct, which means that the number of opening and closing braces has to match. If this is the case, a pair containing the start and end position of the field string is returned, nil otherwise. (defalias 'bibtex-parse-field-string-braced #[nil "\303 \304\216`\305\306\307!\203\310\311!\nb\210 \205\n B,\207" [save-match-data-internal end-point starting-point match-data ((set-match-data save-match-data-internal)) nil looking-at "{" bibtex-parse-nested-braces 0] 2 (#$ . -38387)]) #@70 *Starting on an opening quote, find the corresponding closing quote. (defalias 'bibtex-parse-quoted-string #[nil "\301\302!\205 \303\304\305#)\207" [rx "\"\\([^\"\\]\\|\\(\\\\\\(.\\|\n\\)\\)\\)*\"" looking-at search-forward-regexp nil t] 4 (#$ . -38967)]) #@180 *Parse a field string enclosed by quotes. If a syntactically correct string is found, a pair containing the start and end position of the field string is returned, nil otherwise. (defalias 'bibtex-parse-field-string-quoted #[nil "\303 \304\216`\305\306\307!\203\310 \nb\210 \205\n B,\207" [save-match-data-internal end-point starting-point match-data ((set-match-data save-match-data-internal)) nil looking-at "\"" bibtex-parse-quoted-string] 2 (#$ . -39234)]) #@190 *Parse a 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. (defalias 'bibtex-parse-field-string #[nil "\303 \304\216`\305 \206 \306 \211b\210 ,\207" [save-match-data-internal boundaries starting-point match-data ((set-match-data save-match-data-internal)) bibtex-parse-field-string-braced bibtex-parse-field-string-quoted] 3 (#$ . -39710)]) #@242 *Search forward to find a 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. The search is delimited by BOUND. (defalias 'bibtex-search-forward-field-string #[(bound) "\305 \306\216`\307 \204>` W\203>\310\311 \312#\203 \313\224b\210\314 \206&\315 \211\2037\fA X\2037\f\202:\316u\210)\202 \nb\210 ,\207" [save-match-data-internal boundaries starting-point bound temp-boundaries match-data ((set-match-data save-match-data-internal)) nil search-forward-regexp "[{\"]" move 0 bibtex-parse-field-string-braced bibtex-parse-field-string-quoted 1] 5 (#$ . -40192)]) #@354 *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 successfull. If both functions return non-nil, a pair containing the returned values of the functions PARSE-LHS and PARSE-RHSis returned. (defalias 'bibtex-parse-association #[(parse-lhs parse-rhs) "\306 \307\216` \310 \203\311\312!\203\313\225b\210 \fb\210 \205+\n\205+ \nB-\207" [save-match-data-internal parse-lhs right left starting-point parse-rhs match-data ((set-match-data save-match-data-internal)) nil looking-at "[ \n]*=[ \n]*" 0] 3 (#$ . -40902)]) (byte-code "\301B\302\301!\204\f\303\304\301!\207" [current-load-list bibtex-field-name-for-parsing boundp nil make-variable-buffer-local] 2) #@254 *Parse the field name stored in bibtex-field-name-for-parsing. 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. (defalias 'bibtex-parse-field-name #[nil "\303\304!\205 `\305\225b\210\303 !\205\305\224\305\225E\305\225b\210\n))\207" [start bibtex-field-name-for-parsing boundaries looking-at ",[ \n]*" 0] 3 (#$ . -41745)]) (byte-code "\301B\302\301\207" [current-load-list bibtex-field-const "[][a-zA-Z0-9.:;?!`'/*@+=|<>&_^$-]+"] 2) #@290 *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. (defalias 'bibtex-parse-field-text #[nil "`\305\211 \204?\204?\306 !\203\307\225b\210\202,\310 \211\203)\fAb\210\202+\311)\306\312!\2048`\211\202\307\225b\210\202?\205K \205K\n B+\207" [failure end-point starting-point bibtex-field-const boundaries nil looking-at 0 bibtex-parse-field-string t "[ \n]*#[ \n]*"] 4 (#$ . -42335)]) #@168 *Parse a BibTeX field of regexp NAME. If a syntactically correct field is found, a pair containing the boundaries of the name and text parts of the field is returned. (defalias 'bibtex-parse-field #[(name) "\302\303\304\"\207" [name bibtex-field-name-for-parsing bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text] 3 (#$ . -42984)]) #@209 *Search forward to find a field of name NAME. If a syntactically correct field is found, a pair containing the boundaries of the name and text parts of the field is returned. The search is limited by BOUND. (defalias 'bibtex-search-forward-field #[(name bound) "\306 \307\216 `\310 \204A` W\203A\311\312 \313#\203A\314\224b\210\315\316\317\"\211\203:AA X\203:\202=\320u\210)\202 \fb\210 ,\207" [save-match-data-internal name bibtex-field-name-for-parsing boundaries starting-point bound match-data ((set-match-data save-match-data-internal)) nil search-forward "," t 0 bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text 1 temp-boundaries] 5 (#$ . -43348)]) #@210 *Search backward to find a field of name NAME. If a syntactically correct field is found, a pair containing the boundaries of the name and text parts of the field is returned. The search is limited by BOUND. (defalias 'bibtex-search-backward-field #[(name bound) "\306 \307\216 `\310 \204.` Y\203.\311\312 \313#\203.\314\315\316\"\211\203*)\202 \fb\210 ,\207" [save-match-data-internal name bibtex-field-name-for-parsing boundaries starting-point bound match-data ((set-match-data save-match-data-internal)) nil search-backward "," t bibtex-parse-association bibtex-parse-field-name bibtex-parse-field-text temp-boundaries] 5 (#$ . -44053)]) (defalias 'bibtex-start-of-field #[(bounds) "@@\207" [bounds] 1]) (defalias 'bibtex-end-of-field #[(bounds) "AA\207" [bounds] 1]) (defalias 'bibtex-start-of-name-in-field #[(bounds) "@A@\207" [bounds] 1]) (defalias 'bibtex-end-of-name-in-field #[(bounds) "@AA@\207" [bounds] 1]) (defalias 'bibtex-start-of-text-in-field #[(bounds) "A@\207" [bounds] 1]) (defalias 'bibtex-end-of-text-in-field #[(bounds) "AA\207" [bounds] 1]) #@274 *Parse the prefix part of a bibtex string, including the 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. (defalias 'bibtex-parse-string-prefix #[nil "\304\305\306!\205\"`\307\225b\210\305\n!\205! \307\224\307\225E\307\225b\210 )))\207" [case-fold-search start bibtex-reference-key boundaries t looking-at "^[ ]*@string[ \n]*[({][ \n]*" 0] 3 (#$ . -45148)]) #@244 *Parse the postfix part of a bibtex string, 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. (defalias 'bibtex-parse-string-postfix #[nil "\303\304 \211\205! Ab\210\305\306!\205! @ A\307\225E\307\225b\210\n)*\207" [case-fold-search text-boundaries boundaries t bibtex-parse-field-text looking-at "[ \n]*[})]" 0] 4 (#$ . -45688)]) #@169 *Parse 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 entry is returned. (defalias 'bibtex-parse-string #[nil "\300\301\302\"\207" [bibtex-parse-association bibtex-parse-string-prefix bibtex-parse-string-postfix] 3 (#$ . -46181)]) #@187 *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. (defalias 'bibtex-search-forward-string #[nil "\305 \306\216\307`\310 \204.\311\312\310\307#\203.\313\224b\210\314 \211\203'\f\202*\315u\210)\202 \nb\210 -\207" [save-match-data-internal case-fold-search starting-point boundaries temp-boundaries match-data ((set-match-data save-match-data-internal)) t nil search-forward-regexp "^[ ]*@string[ \n]*[({][ \n]*" 0 bibtex-parse-string 1] 5 (#$ . -46514)]) #@187 *Search backward 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 field is returned. (defalias 'bibtex-search-backward-string #[nil "\305 \306\216\307`\310 \204(\311\312\310\307#\203(\313\224b\210\314 \211\203$\f)\202 \nb\210 -\207" [save-match-data-internal case-fold-search starting-point boundaries temp-boundaries match-data ((set-match-data save-match-data-internal)) t nil search-backward-regexp "^[ ]*@string[ \n]*[({][ \n]*" 0 bibtex-parse-string] 5 (#$ . -47124)]) (defalias 'bibtex-end-of-string #[(bounds) "AAA@\207" [bounds] 1]) (defalias 'bibtex-start-of-reference-key-in-string #[(bounds) "@A@\207" [bounds] 1]) (defalias 'bibtex-end-of-reference-key-in-string #[(bounds) "@AA@\207" [bounds] 1]) (defalias 'bibtex-start-of-text-in-string #[(bounds) "A@\207" [bounds] 1]) (defalias 'bibtex-end-of-text-in-string #[(bounds) "AA@\207" [bounds] 1]) (byte-code "\303B\306 \307\n\310\260\304B \311P\305B\312\313B\314 \315B\316 \317B \320B\321\320!\204b\f \322D \323\324\325FE\326\327Q\312\330E\331\332Q\312\330E\306\332Q\312\333E\334\257\324\207" [current-load-list bibtex-entry-type bibtex-reference-key bibtex-entry-head bibtex-entry-maybe-empty-head bibtex-type-in-head "^[ ]*\\(" "\\)[ ]*[({][ \n]*\\(" "\\)" "?" 1 bibtex-key-in-head 2 bibtex-entry-postfix "[ \n]*,?[ \n]*[})]" bibtex-key-in-entry bibtex-font-lock-keywords boundp font-lock-function-name-face font-lock-constant-face nil t "^\\([ ]*" ".*\\)$" font-lock-comment-face "^[ ]*\\(OPT" "\\)[ ]*=" font-lock-variable-name-face "*Default expressions to highlight in BibTeX mode." bibtex-comment-start bibtex-field-name] 6) (defalias 'bibtex-delete-whitespace #[nil "\300\301!\205\n`\302\225|\207" [looking-at "[ \n]+" 0] 2]) (defalias 'bibtex-current-line #[nil "\300\301`\"i\302\232\203\301\202\302\\\207" [count-lines 1 0] 3]) (defalias 'bibtex-member-of-regexp #[(string list) "\303 \203\304\305 @\306Q\n\"\204 A\211\204 )\207" [case-fold-search list string nil string-match "^" "$"] 5]) (defalias 'bibtex-assoc-of-regexp #[(string alist) "\303 \203\304\305 @@\306Q\n\"\204 A\211\204 @)\207" [case-fold-search alist string t string-match "^" "$"] 5]) (defalias 'bibtex-skip-to-valid-entry #[(&optional backward) "\306\307\310\311 \312#\313Q\314 ?\205{\f\203o\202m?\205{`\315\n!\203;\316\314\211\306#\203G\317\224 \232\203G\306\202G\204G\320 \203G\306 \203Q b\210\202w\f\203h Sb\210\321\322\314\323#\203w\324\224b\210\202w Tb\210\325\326\314\323#\203w\327u\210)\202 +\207" [case-fold-search bibtex-entry-field-alist valid-bibtex-entry found backward pnt t "@[ ]*\\(" mapconcat #[(type) "\301@\302Q\207" [type "\\(" "\\)"] 3] "\\|" "\\)" nil looking-at bibtex-search-entry 0 bibtex-parse-string re-search-backward "^[ ]*\\(@\\)" move 1 re-search-forward "^[ ]*@" -1 bibtex-sort-ignore-string-entries] 5]) (defalias 'bibtex-map-entries #[(fun) "\306\307 \210\310 \311\306#\205M`\312\n\224T\n\225\"\227 \224\203$\312 \224 \225\"\202%\313\2045 \227\314\230\204=\315 \"\203B\f!\210b\210\316 \210+\202)\207" [case-fold-search bibtex-entry-maybe-empty-head bibtex-type-in-head bibtex-key-in-head reference-key entry-type t bibtex-beginning-of-entry re-search-forward nil buffer-substring-no-properties "" "string" assoc-ignore-case bibtex-end-of-entry pnt bibtex-sort-ignore-string-entries bibtex-entry-field-alist fun] 5]) (defalias 'bibtex-progress-message #[(&optional flag interval) "deZ\211\306U\203\307\202`eZ\307_\245\n\204\" \f\\Y\204'\n;\203F\n;\203;\n\2039\202;\310 \311 \312P \"\202U\n\313\232\205U\311 \314P!\210\315\211*\207" [size perc flag bibtex-progress-interval bibtex-progress-lastperc bibtex-progress-lastmes 0 100 5 message " (%d%%)" done " (done)" nil interval] 4]) (defalias 'bibtex-field-left-delimiter #[nil "\301\232\203\302\207\303\207" [bibtex-field-delimiters braces "{" "\""] 2]) (defalias 'bibtex-field-right-delimiter #[nil "\301\232\203\302\207\303\207" [bibtex-field-delimiters braces "}" "\""] 2]) (defalias 'bibtex-entry-left-delimiter #[nil "\301\232\203\302\207\303\207" [bibtex-entry-delimiters braces "{" "("] 2]) (defalias 'bibtex-entry-right-delimiter #[nil "\301\232\203\302\207\303\207" [bibtex-entry-delimiters braces "}" ")"] 2]) (defalias 'bibtex-search-entry #[(empty-head &optional bound noerror backward) "`\203 \202\n\n \203M\306\307 #\203(\310\f\311#\211\203\2033\312\224b\202I\306\232\203>\313\314!\210\311\232\203H\fb\210\306)\202\203W\202Xd\306\211\204\370\315 #\203\370\316 \212\225b\210\317\320!)\203\204\321\202\205\322`\306 \204\317\317\323!\203\244\312\225X\203\244\312\225b\210\324!!\211\"\203\304\325\"!X\203\304\325\"!b\210` \202\313 b\210\311)\202\215*\317#!\203\364\326\312\225S\312\225\"\230\203\364\312\225X\203\364\315#!\210\311)\202`\203\327!\210`\202\306\232\203\313\314!\210\311\232\203\fb\210\306+*\207" [empty-head bibtex-entry-maybe-empty-head bibtex-entry-head prefix pnt backward nil re-search-backward bibtex-search-entry t 0 error "Search of BibTeX entry failed" re-search-forward match-data looking-at "[ ]*(" ")" "}" "[ \n]*" bibtex-parse-field bibtex-end-of-field buffer-substring-no-properties set-match-data found bound noerror md limit bibtex-type-in-head entry-closer finished infix-start bibtex-field-name bounds bibtex-entry-postfix] 5]) (defalias 'bibtex-flash-head #[nil "\305\306\307\n\306\305#\203 \224b\210\f\225\202&\306\210\310\306x\210`\311 \210\310\306w\210\312`!\2032\313\314!\2028\315\316` {\"*\207" [case-fold-search flash bibtex-entry-head bibtex-type-in-head bibtex-key-in-entry t nil re-search-backward " " beginning-of-line pos-visible-in-window-p sit-for 1 message "From: %s"] 4]) #@60 Makes an optional field named E-T in current BibTeX entry. (defalias 'bibtex-make-optional-field #[(e-t) ":\203\301\302@PAB!\207\301\302P!\207" [e-t bibtex-make-field "OPT"] 3 (#$ . 53077)]) (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]) (defalias 'bibtex-beginning-of-first-entry #[nil "eb\210\300\301\302\303#\203\304 \210`\207" [re-search-forward "^[ ]*@" nil move beginning-of-line] 4]) (defalias 'bibtex-beginning-of-last-entry #[nil "db\210\300\301\302\303#\203\304 \210`\207" [re-search-backward "^[ ]*@" nil move beginning-of-line] 4]) (defalias 'bibtex-inside-field #[nil "\300\210\301\300x\210h\302U\203\303u\210h\304U\204h\305U\205\306u\207" [nil " " 44 -2 125 34 -1] 2]) (defalias 'bibtex-enclosing-field #[(&optional noerr) "\306`\307  b\210\310 \n\"\211\203'\311\f! X\203'\312\f! Y\203'\f\202/ ?\205/\313\314!,\207" [case-fold-search old-point boe bibtex-field-name bounds noerr t bibtex-beginning-of-entry bibtex-search-backward-field bibtex-start-of-field bibtex-end-of-field error "Can't find enclosing BibTeX field"] 4]) (defalias 'bibtex-enclosing-entry-maybe-empty-head #[nil "\304`\305\n\306\304#\204\307\310!\210 b\210 \224b\210\311\304\306\304#?\205&\307\310!\210 b*\207" [case-fold-search old-point bibtex-entry-maybe-empty-head bibtex-type-in-head t re-search-backward nil error "Can't find enclosing BibTeX entry" bibtex-search-entry] 4]) (defalias 'bibtex-insert-current-kill #[(n) "\204\306\307!\207\310\232\203\311\202\312\310\232\203\313\202\314\315 \316\n!GZ\316 !G\"\316 !\233\n\fL@\310\232\203d\317\320\317\321\"\210\322\323!\203M\317u\210)\324`!\210\325\326!\210\327 \330\234\317 \331\234E\321\"\202\204\332\232\203\200m\204q\333 \210\324`!\210\325\326!\210 \330\234c\202\204\306\334\",\207" [bibtex-last-kill-command kr kryp n ARGth-kill-element current error "BibTeX kill ring is empty" field bibtex-field-kill-ring bibtex-entry-kill-ring bibtex-field-kill-ring-yank-pointer bibtex-entry-kill-ring-yank-pointer mod eval nil bibtex-find-text t looking-at "[}\"]" set-mark message "Mark set" bibtex-make-field 1 2 entry bibtex-beginning-of-entry "Unknown tag field: %s. Please submit a bug report" bibtex-help-message] 5]) #@143 *Replaces delimiters for field strings between START and STOP. If the current delimiters equal the new delimiters, the buffer is not changed. (defalias 'bibtex-format-field-delimiters #[(start stop) "b\210\303 !\211\205;\n@b\210\304\305 !\204\306\307!\210\305 c\210\nASb\210\304\310 !\2042\306\307!\210\310 c\210\303 !\211\204 \311)\207" [start stop boundaries bibtex-search-forward-field-string looking-at bibtex-field-left-delimiter delete-char 1 bibtex-field-right-delimiter nil] 3 (#$ . -55515)]) (defalias 'bibtex-format-entry #[nil "\306`\307 \310\310\310\311\312 !@\n\313@!\232\203\"\314\315!\202X\nb\210\316A@\"\211B\203\220\317B!\320B!\321B!\322B!CDE\211Fb\210\323\324!\203`\306Db\210\323\325!\204`\306\326\327\330FE\"\"\203}\330DTCS\"\211\331\232\203}\310,\332B!b\210\316A@\"\211B\2041)\f\203\240 \204\240 b\210\314\333!\210\nb\210\334G@\"\210\335\224TH\335\225I\330HI\"\227J\336JK\"\211L\337\234\335\234ML\340\234\335\234NO\306\232\203\336\341\202\340OP\310Q\342P>\203\367HI|\210L@c\210\343P>\203Ib\210\344\310w\210\345\337!\210\346 c\210\nb\210\316A@\"\211B\203\361\311\347B!!R\311\332B!!S\311\317B!!F\311\320B!!E\311\321B!!D\311\322B!!C\330\326\350\330F\211\351\\\"\"\203bF\351\\\202dFE\"T\352P>\203\276Fb\210\323\353!\203\276Db\210\323\325!\203\264Fb\210\323\354!\203\253 \204\253\336TM\"\203\253Fb\210\355 \210\314\356T\"\210\202\320RS|\210\202\320Fb\210\355 \210\202\320\357P>\203\342Db\210\323\360!\203\342Cb\210\345\361!\210Db\210\345\337!\210\202\320\343P>\203\360\362DC\"\210\363P>\203\326\364T\227\"\203Db\210\323\365!\203\366\367!\210\370P>\203ZT\227\371\232\203ZDb\210\323\325!\203Z \203Z\372 \306\"\204Z\312 U\307 \210\316\373U\"\211B\203YDb\210\310u\210\330\321B!T\322B!S\"c\210*Db\210\323\325!\203\207\310u\210 \203t\336TN\"\204\201 \204\207\336TM\"\203\207\314\356T\"\210\342P>\203\315\336JK\"A@V\374V\335\234V\337\234W#X\336TX\"@YFb\210Y\203\305FE|\210Yc\210\202\314\375FE\"\210+\306QQ\204\334Rb\210\202\343\310QSb\210.\316A@\"\211B\204)\323\376 !\203\374\310u\210\377P>\203)Z\203\323\201[!\204\201[c\210\202)Z\204)\323\201[!\203)\345\337!\210\323\201[!\2034\310u\210\343P>\203I\344\310w\210\345\337!\210\201\\ c\210\201]P>\205V\201^ ..\207" [case-fold-search beg start crossref-there alternatives-there non-empty-alternative t bibtex-beginning-of-entry nil copy-marker bibtex-end-of-entry marker-position error "Not on a known BibTeX entry" bibtex-search-forward-field bibtex-start-of-name-in-field bibtex-end-of-name-in-field bibtex-start-of-text-in-field bibtex-end-of-text-in-field looking-at "ALT" "\\(\"\"\\)\\|\\({}\\)" string-match "\\(OPT\\)?crossref" buffer-substring-no-properties "" bibtex-end-of-field "All alternatives are empty" re-search-forward 0 assoc-ignore-case 1 2 (realign opts-or-alts numerical-fields last-comma page-dashes delimiters unify-case inherit-booktitle) unify-case delimiters " \n" delete-char bibtex-entry-left-delimiter bibtex-start-of-field "^\\(OPT\\)\\|\\(ALT\\)$" 3 opts-or-alts "OPT\\|ALT" "OPT" bibtex-remove-OPT-or-ALT "Mandatory field ``%s'' is empty" numerical-fields "\\(\"[0-9]+\"\\)\\|\\({[0-9]+}\\)" -1 bibtex-format-field-delimiters page-dashes "^\\(OPT\\)?pages$" "\\([\"{][0-9]+\\)[ \n]*--?[ \n]*\\([0-9]+[\"}]\\)" replace-match "\\1-\\2" inherit-booktitle "booktitle" bibtex-find-entry-location "title" append downcase-region bibtex-field-right-delimiter last-comma end bibtex-field-name bounds end-text begin-text end-name begin-name bibtex-entry-type begin-type end-type entry-type bibtex-entry-field-alist entry-list req creq bibtex-entry-format format field-done begin-field end-field field-name stop fl bibtex-user-optional-fields field-list new-field-name bibtex-comma-after-last-field "," bibtex-entry-right-delimiter realign bibtex-fill-entry] 8]) (defalias 'bibtex-autokey-change #[(string change-list) "\306 \307\fG\306\n W\203:\f \234\n\310\n@\n\"\2033\n\307\211\224O\n\311\234\n\307\225\306OQ\202 T\211\202 \n-\207" [case-fold-search string return-string index change-list len nil 0 string-match 1 change-item] 6]) (defalias 'bibtex-autokey-abbrev #[(string len) "\247\203\f GX\203 \207\304\232\203\305\207\306\307\310 S#\211\203+ \304 TO\202, *\207" [len string case-fold-search abort-char 0 "" t string-match "[^aeiou]"] 5]) (defalias 'bibtex-autokey-get-namefield #[(min max) "b\210\306\307\310\n \"\211\203#\311\312\313\f!T\314\f!S\"\315 \316\"\"\202$\317+\207" [min case-fold-search author-or-editor max bounds bibtex-autokey-name-change-strings t "\\(author\\)\\|\\(editor\\)" bibtex-search-forward-field bibtex-autokey-change buffer-substring-no-properties bibtex-start-of-text-in-field bibtex-end-of-text-in-field append (("\n" " ")) ""] 6]) (defalias 'bibtex-autokey-get-names #[(namefield) "\304\305\n\306\232\2040\305\307\310\n\"\203\"\n\311\211\224O\n\311\225\305O\202&\n\306\312 C\")\202 *\207" [case-fold-search names namefield name t nil "" string-match "[ \n]and[ \n]" 0 append] 3]) (defalias 'bibtex-autokey-demangle-name #[(fullname) "\306\307\310 \"\2032 \311\211\224O\307\312\n\"\203-\307\313\n\"\203&\n\311\224T\306O\202.\314\315 \"\202.\n)\202q\307\316 \"\203p\307\317 \"\203Y\307\313 \311\225#\203R \311\224T\306O\202q\314\315 \"\202q\307\320 \"\203i \311\224T\306O\202q\314\315 \"\202q \307\321 \"\203\201 \311\211\224O\202\202  \f!+\207" [case-fold-search fullname von-last lastname usename bibtex-autokey-name-case-convert nil string-match "," 0 "^[a-z]" "[ ][A-Z]" error "Name %s is incorrectly formed" "[ ]" "[ ][a-z]" " [^ ]*$" "[ ]+"] 4]) (defalias 'bibtex-autokey-get-namelist #[(namefield) "\301\302\303!\"\207" [namefield mapcar #[(fullname) "\302\303\"\304O\305\306! \"\207" [fullname bibtex-autokey-name-length string-match "[^ ]" nil bibtex-autokey-abbrev bibtex-autokey-demangle-name] 4] bibtex-autokey-get-names] 4]) (defalias 'bibtex-autokey-get-yearfield-digits #[(max) "\303\304\"\211\203!\305\306 !\307 !\"\310\311\n\"\210\n\312\224\312\225O)\202\"\313)\207" [max bounds year bibtex-search-forward-field "year" buffer-substring-no-properties bibtex-start-of-text-in-field bibtex-end-of-text-in-field string-match "[^0-9]*\\([0-9]+\\)" 1 ""] 5]) (defalias 'bibtex-autokey-get-yearfield #[(min max) "b\210\306\307\n!\211\310\230\203D\f\203D\311\312\n\"\211\205&\313\314 !T\315 !S\"\316\306\"\204?\317 \320 \210\307!)\202@\310*\202E *\207" [min case-fold-search max year bibtex-autokey-year-use-crossref-entry bounds t bibtex-autokey-get-yearfield-digits "" bibtex-search-forward-field "\\(OPT\\)?crossref" buffer-substring-no-properties bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-find-entry-location bibtex-end-of-entry bibtex-beginning-of-entry crossref-field stop] 5]) (defalias 'bibtex-autokey-get-titlestring #[(min max) "b\210\306\307\310\n\"\211\203\311\312\313 !T\314 !S\"\f\"\202\315\211\203@\316@ \"\2037 \317\211\224OA\211\204( ,\207" [min case-fold-search max bounds bibtex-autokey-titleword-change-strings titlefield t bibtex-search-forward-field "title" bibtex-autokey-change buffer-substring-no-properties bibtex-start-of-text-in-field bibtex-end-of-text-in-field "" string-match 0 bibtex-autokey-title-terminators title-terminators] 6]) (defalias 'bibtex-autokey-get-titles #[(titlestring) "\306\306\306\307\f\310\232\204s \247\203  \\W\203s\311\312\f\"\203k\307\225\f\307\224O\313\"\203> S\202a! \247\203P W\203Z\314 C\"\202a\314\nC\"\f\306O*\202m\310 T\202\311\312\f\"\203~ \202\202\314 \n\",\207" [case-fold-search titlewords titlewords-extra counter titlestring bibtex-autokey-titlewords nil 0 "" string-match "\\b\\w+" bibtex-member-of-regexp append bibtex-autokey-titlewords-stretch end-match titleword bibtex-autokey-titleword-ignore bibtex-autokey-titleword-case-convert] 3]) (defalias 'bibtex-autokey-get-titlelist #[(titlestring) "\301\302\303!\"\207" [titlestring mapcar #[(titleword) "\304 \"\211\203\n\305\234\202\306 \")\207" [titleword bibtex-autokey-titleword-abbrevs abbrev bibtex-autokey-titleword-length bibtex-assoc-of-regexp 1 bibtex-autokey-abbrev] 4] bibtex-autokey-get-titles] 4]) #@4025 Generates automatically a key from the author/editor and the title field. This will only work for entries where each field begins on a separate line. The generation algorithm works as follows: 1. Use the value of `bibtex-autokey-prefix-string' as a prefix. 2. If there is a non-empty author (preferred) or editor field, use it as the name part of the key. 3. Change any substring found in `bibtex-autokey-name-change-strings' to the corresponding new one (see documentation of this variable for further detail). 4. For every of at least first `bibtex-autokey-names' names in the name field, determine the last name. If there are maximal `bibtex-autokey-names' + `bibtex-autokey-names-stretch' names, all names are used. 5. From every last name, take at least `bibtex-autokey-name-length' characters (abort only after a consonant or at a word end). 6. Convert all last names according to the conversion function `bibtex-autokey-name-case-convert'. 7. 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 than are used in the name part, prepend the string contained in `bibtex-autokey-additional-names'. 8. Build the year part of the key by truncating the contents of the year field to the rightmost `bibtex-autokey-year-length' digits (useful values are 2 and 4). If the year field is absent, but the entry has a valid crossref field and the variable `bibtex-autokey-year-use-crossref-entry' is non-nil, use the year field of the crossreferenced entry instead. 9. For the title part of the key change the contents of the title field of the entry according to `bibtex-autokey-titleword-change-strings' to the corresponding new one (see documentation of this variable for further detail). 10. Abbreviate the result to the string up to (but not including) the first occurrence of a regexp matched by the items of `bibtex-autokey-title-terminators' and delete those words which appear in `bibtex-autokey-titleword-ignore'. Build the title part of the key by using at least the first `bibtex-autokey-titlewords' words from this abbreviated title. If the abbreviated title ends after maximal `bibtex-autokey-titlewords' + `bibtex-autokey-titlewords-stretch' words, all words from the abbreviated title are used. 11. Convert all used titlewords according to the conversion function `bibtex-autokey-titleword-case-convert'. 12. For every used title word that appears in `bibtex-autokey-titleword-abbrevs' use the corresponding abbreviation (see documentation of this variable for further detail). 13. From every title word not generated by an abbreviation, take at least `bibtex-autokey-titleword-length' characters (abort only after a consonant or at a word end). 14. Build the title part of the key by concatenating all abbreviated title words with the string `bibtex-autokey-titleword-separator' between any two. 15. At least, to get the key, concatenate `bibtex-autokey-prefix-string', the name part, the year part and the title part with `bibtex-autokey-name-year-separator' between the name part and the year part if both are non-empty and `bibtex-autokey-year-title-separator' between the year part and the title part if both are non-empty. If the year part is empty, but not the other two parts, `bibtex-autokey-year-title-separator' is used as well. 16. If the value of `bibtex-autokey-before-presentation-function' is non-nil, it must be a function taking one argument. This function is then called with the generated key as the argument. The return value of this function (a string) is used as the key. 17. If the value of `bibtex-autokey-edit-before-use' is non-nil, the key is then presented in the minibuffer to the user, where it can be edited. The key given by the user is then used. (defalias 'bibtex-generate-autokey #[nil "`\306 \307 \310 \n\"\311\312 !\247\203$ G\\X\203( \202I\313GW\203F\314 @C\" A\202.))\315\316#\fP\317 \n\"\211\311\232\203g\311\202p\211GZ\313O\320 \n\"\321!\315\322# !\211\311\232\206\225\311\232?\205\233\"\311\232\203\253\311\232\206\257 \311\232?\205\265# \260$%\203\307%$!$b\210$. \207" [pnt min max namefield name-etal nl bibtex-beginning-of-entry bibtex-end-of-entry bibtex-autokey-get-namefield "" bibtex-autokey-get-namelist nil append mapconcat #[(name) "\207" [name] 1] bibtex-autokey-get-yearfield bibtex-autokey-get-titlestring bibtex-autokey-get-titlelist #[(name) "\207" [name] 1] bibtex-autokey-names bibtex-autokey-names-stretch bibtex-autokey-additional-names nnl namelist bibtex-autokey-name-separator namepart yearfield bibtex-autokey-year-length yearpart titlestring titlelist bibtex-autokey-titleword-separator titlepart bibtex-autokey-prefix-string bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator autokey bibtex-autokey-before-presentation-function] 7 (#$ . 63913)]) (defalias 'bibtex-parse-keys #[(add verbose &optional abortable) "\2052\306\n\205 \212eb\210 \203\307\310 \311P!\210\312\313\215?\2051\314 \f \2030\307\315!\210\306+\207" [bibtex-maintain-sorted-entries case-fold-search add bibtex-reference-keys reference-keys verbose t bibtex-progress-message buffer-name ": parsing reference keys" userkey (byte-code "\306 \210m?\205\225\203\307 \203\310\311\312\"\210 \203\313 \210\314\211\315\f!\203T\316 \224 \225\"`\317 \211b\210\320\321\"\211\203P\316\322!T\323!S\"+\202i\324 \203i\324 \316\325!\326!\")\314u\210\306 \210\327 \"\204~ CB\n\203\221\327\n\"\204\221\nCB*\202\207" [abortable verbose xrefd-reference-key reference-key bibtex-entry-head bibtex-key-in-head bibtex-skip-to-valid-entry input-pending-p throw userkey t bibtex-progress-message nil looking-at buffer-substring-no-properties bibtex-end-of-entry bibtex-search-forward-field "crossref" bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-parse-string bibtex-start-of-reference-key-in-string bibtex-end-of-reference-key-in-string assoc m p bounds reference-keys] 5) buffer-modified-tick done bibtex-buffer-last-parsed-tick] 3]) (defalias 'bibtex-parse-buffers-stealthily #[nil "\304 \212\205;\305 ?\205;@q\210\214~\210 \306=\2034\n\2034\307 =\2044\310\311\312\211#\2037A\2027A)\202*\207" [buffers major-mode bibtex-maintain-sorted-entries bibtex-buffer-last-parsed-tick buffer-list input-pending-p bibtex-mode buffer-modified-tick bibtex-parse-keys nil t] 4]) (defalias 'bibtex-complete #[(string-list &optional complete-strings) "\306`\212\307\310!\210\311u\210`)\312\n \"\313\f!\212!\2039\314 \2039\314 \"\312\315\"!\316\"!\"C B)\202\317 \320\"\321 \")\211#\306=\203w!\205\334\212\322 \210\323 \"\324\"!b\210\325 \211$\205s$A\326\"!\232\205s\327 +\202\334#\204\203\330\331 \"\202\334 #\230\204\306\n |\210#c\210\332# \"\205\334!\205\334\212\322 \210\323 \"\324\"!b\210\325 \211$\205\302$A\326\"!\232\205\302\327 +\202\334\333\334!\210\335 \"%\336\220\337%!\221\210)\333\340!.\207" [case-fold-search end beg part-of-word string-list completions t re-search-backward "[ {\"]" nil buffer-substring-no-properties copy-sequence bibtex-search-backward-string bibtex-start-of-reference-key-in-string bibtex-end-of-reference-key-in-string sort #[(x y) "@ @\231\207" [x y] 2] try-completion bibtex-inside-field bibtex-enclosing-field bibtex-start-of-text-in-field bibtex-parse-field-string bibtex-end-of-text-in-field bibtex-remove-delimiters error "Can't find completion for \"%s\"" assoc message "Making completion list..." all-completions "*Completions*" display-completion-list "Making completion list...done" complete-strings bounds completion boundaries list] 5]) (defalias 'bibtex-do-auto-fill #[nil "\303 \\\304\"\305 )\207" [bibtex-entry-offset bibtex-contline-indentation fill-prefix make-string 32 do-auto-fill] 3]) (defalias 'bibtex-pop #[(arg direction) "\306\307\306!\210)\212\310 \210\311\312 \313\n!\314\n!\315\n!\316\n!\306 b\210\317\320\321!\2033\322\225\2024`\"!\"\323=\204J\324 \210\322\224#`$%\325=\203X#b\210\202\\$b\210\306\211&&\204\260'\322V\203\260%\325=\203\214\326!e\"\211\203\206\327\n!b\210\202\250\311&\202\250%\330=\203\250\331!d\"\211\203\245\332\n!b\210\202\250\311&'S'\202a&\203\307\333%\325=\203\301\334\202\302\335!\210\202\351\327\n!#\332\n!$\317\313\n!\314\n!\" \336 \210\fb\210 \f|\210 c\210. \306\307\306!\210)\323\211(\207" [bibtex-help-message case-fold-search bounds start-old-text stop-old-text start-name nil bibtex-find-text bibtex-inside-field t bibtex-enclosing-field bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-start-of-name-in-field bibtex-end-of-name-in-field buffer-substring-no-properties looking-at "\\(OPT\\)\\|\\(ALT\\)" 0 bibtex-pop bibtex-enclosing-entry-maybe-empty-head previous bibtex-search-backward-field bibtex-start-of-field next bibtex-search-forward-field bibtex-end-of-field error "No previous matching BibTeX field." "No next matching BibTeX field." bibtex-flash-head stop-name new-text field-name last-command bibtex-pop-previous-search-point bibtex-pop-next-search-point direction failure arg this-command] 5]) #@3562 Major mode for editing BibTeX files. To submit a problem report, enter \[bibtex-submit-bug-report] from a BibTeX mode buffer. This automatically sets up a mail buffer with version information already added. You just need to add a description of the problem, including a reproducible test case and send the message. General information on working with BibTeX mode: You should use commands as \[bibtex-Book] to get a template for a specific entry. You should 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, you should clean the new entry with command \[bibtex-clean-entry]. Some features of BibTeX mode are available only by setting variable bibtex-maintain-sorted-entries to t. However, then BibTeX mode will work with buffer containing only valid (syntactical correct) entries and with entries being sorted. 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 buffers, please call the function `bibtex-convert-alien' to fully take advantage of all features of BibTeX mode. Special information: A command such as \[bibtex-Book] will outline the fields for a BibTeX book entry. The optional fields start with the string OPT, and are thus ignored by BibTeX. Alternatives from which only one is required start with the string ALT. The OPT or ALT string may be removed from 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] will yank 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 {}. The command \[bibtex-clean-entry] cleans the current entry, i.e. it removes OPT/ALT from 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. 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. Use \[bibtex-find-text] to position the cursor at the end of the current field. Use \[bibtex-next-field] to move to end of the next field. The following may be of interest as well: Functions: bibtex-entry bibtex-kill-entry bibtex-yank-pop bibtex-pop-previous bibtex-pop-next bibtex-complete-string bibtex-complete-key bibtex-print-help-message bibtex-generate-autokey bibtex-beginning-of-entry bibtex-end-of-entry bibtex-reposition-window bibtex-mark-entry bibtex-ispell-abstract bibtex-ispell-entry bibtex-narrow-to-entry bibtex-sort-buffer bibtex-validate bibtex-count bibtex-fill-entry bibtex-reformat bibtex-convert-alien Variables: bibtex-field-delimiters bibtex-include-OPTcrossref bibtex-include-OPTkey bibtex-user-optional-fields bibtex-entry-format bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries bibtex-entry-field-alist bibtex-predefined-strings bibtex-string-files --------------------------------------------------------- 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\f\313\314'\"\210(\203\"\315\316\317\320#\210)\204/\315*\321\322#)\323\324!\210\325\323\326!\210+\323\327!\210+\323\330!\210\331\323\332!\210\333\323\334!\210\335\323\336!\210\337\323\340!\210\341 \323\342!\210\343\"\317,-EC.\321/\3440!\210\3441!\210\345\346!\207" [bibtex-mode-map major-mode mode-name bibtex-mode-syntax-table bibtex-predefined-strings bibtex-strings kill-all-local-variables use-local-map bibtex-mode "BibTeX" set-syntax-table mapcar #[(filename) "\203\202 \306\307 \310\"\311\312 \"\203 \202 \313P\314\315\nG W\203A\316\n \234\317 Q\211!\204A T\211\202' W\203\230\320\314 \321\322\323!!!\324\216r!q\210\325\f!\210eb\210\326 \211\"\203\211\327\330\"!\331\"!\"C B \332\"!b\210\326 \211\"\204k,\333# \237\"\211#*\202\234\334\335 \".\207" [bibtex-string-file-path path dirs filename fullfilename item "." split-string ":+" string-match ".bib$" ".bib" nil 0 file-readable-p "/" t get-buffer-create generate-new-buffer-name " *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 buffer-substring-no-properties bibtex-start-of-reference-key-in-string bibtex-end-of-reference-key-in-string bibtex-end-of-string append error "File %s not in paths defined by bibtex-string-file-path variable" size case-fold-search compl #1# bounds bibtex-strings] 5] bibtex-run-with-idle-timer 1 nil #[nil "\300\301\302\211#\207" [bibtex-parse-keys nil t] 4] t bibtex-parse-buffers-stealthily make-local-variable paragraph-start "[ \f\n ]*$" comment-start comment-start-skip comment-column 0 defun-prompt-regexp "^@[a-zA-Z0-9]+" outline-regexp "@" normal-auto-fill-function bibtex-do-auto-fill font-lock-defaults (bibtex-font-lock-keywords nil t ((36 . "\"") (34 . "."))) font-lock-mark-block-function #[nil "\300\301 !\210\302 \207" [set-mark bibtex-end-of-entry bibtex-beginning-of-entry] 2] easy-menu-add run-hooks bibtex-mode-hook bibtex-string-files bibtex-maintain-sorted-entries bibtex-parse-idle-timer bibtex-parse-keys-timeout bibtex-comment-start bibtex-entry-head bibtex-key-in-head imenu-generic-expression imenu-case-fold-search bibtex-edit-menu bibtex-entry-menu] 4 (#$ . 73406) nil]) #@44 Submit via mail a bug report on bibtex.el. (defalias 'bibtex-submit-bug-report #[nil "\304\305!\205^\306\307!\210\310\311 \312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\2575\201@\211\n\201A \201BR&\210)\201C\201@!\207" [reporter-prompt-for-summary-p bibtex-maintainer-address bibtex-maintainer-salutation invocation-name y-or-n-p "Do you want to submit a bug report on BibTeX mode? " require reporter t reporter-submit-bug-report "bibtex.el" system-configuration system-configuration-options bibtex-mode-hook bibtex-parse-keys-timeout bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries bibtex-entry-delimiters bibtex-field-delimiters bibtex-comma-after-last-field bibtex-entry-offset bibtex-field-indentation bibtex-text-indentation bibtex-contline-indentation bibtex-align-at-equal-sign bibtex-entry-format bibtex-add-entry-hook bibtex-clean-entry-hook bibtex-user-optional-fields bibtex-predefined-month-strings bibtex-predefined-strings bibtex-string-files bibtex-string-file-path bibtex-font-lock-keywords bibtex-autokey-prefix-string bibtex-autokey-names bibtex-autokey-names-stretch bibtex-autokey-additional-names bibtex-autokey-transcriptions bibtex-autokey-name-change-strings bibtex-autokey-name-case-convert bibtex-autokey-name-length bibtex-autokey-name-separator bibtex-autokey-year-length bibtex-autokey-year-use-crossref-entry bibtex-autokey-titlewords bibtex-autokey-title-terminators bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-ignore bibtex-autokey-titleword-case-convert bibtex-autokey-titleword-abbrevs bibtex-autokey-titleword-change-strings bibtex-autokey-titleword-length bibtex-autokey-titleword-separator bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator bibtex-autokey-edit-before-use bibtex-autokey-before-presentation-function bibtex-entry-field-alist bibtex-help-message bibtex-include-OPTcrossref bibtex-include-OPTkey bibtex-field-kill-ring-max bibtex-entry-kill-ring-max nil "\n\nI want to report a bug on Emacs BibTeX mode.\n\nI've read the `Bugs' section in the `Emacs' info page, so I know how\nto make a clear and unambiguous report. I have started a fresh Emacs\nvia `" " --no-init-file --no-site-file', thereafter (in\ncase I'm reporting on a version of `bibtex.el' which is not part of\nthe standard emacs distribution) I loaded the questionable version\nof `bibtex.el' with `M-x load-file', and then, to produce the buggy\nbehaviour, I did the following:" message] 56 (#$ . 79310) nil]) #@95 Insert a new BibTeX entry. After insertion it calls the functions in `bibtex-add-entry-hook'. (defalias 'bibtex-entry #[(entry-type) "\204 \306\307\310\"\210\307\307 \205\311\312\313\f\"\307\211\211\314&\315\f%\"\211&\316\234'&\317\234(&\204:\320\321\f\"\210\f)\235\203S(\203S(\322\234(\316\234\202]'\322\234'\316\234 \203h\323 !\210\202k\324 \210*j\210\325\f\326 \261\210 \203} c\210\212\327\330 \"\210\f)\235\203\216\331\332!\210+\203\257+;\204\240\333+!\203\253\331\334\307+E!\210\202\257\331\335!\210\327\331\n\"\210\327\331,\"\210-\203\302\336c\210\337c\210*j\210\340 \341\261\210)\342\310!\210\343\344!.\207" [bibtex-reference-keys required optional bibtex-maintain-sorted-entries entry-type key bibtex-parse-keys nil t completing-read format "%s key: " bibtex-key-history assoc-ignore-case 1 2 error "Bibtex entry type %s not defined" 0 bibtex-find-entry-location bibtex-move-outside-of-entry "@" bibtex-entry-left-delimiter mapcar bibtex-make-field bibtex-make-optional-field ("crossref") fboundp "key" ("key") "," "\n" bibtex-entry-right-delimiter "\n\n" bibtex-next-field run-hooks bibtex-add-entry-hook bibtex-entry-field-alist e r-n-o c-ref bibtex-include-OPTcrossref bibtex-entry-offset bibtex-include-OPTkey bibtex-user-optional-fields bibtex-comma-after-last-field] 8 (#$ . 81971) (let* ((completion-ignore-case t) (e-t (completing-read "Entry Type: " bibtex-entry-field-alist nil t nil 'bibtex-entry-type-history))) (list e-t))]) #@73 Prints helpful information about current field in current BibTeX entry. (defalias 'bibtex-print-help-message #[nil "\306`\307 \310\n!\311\n! b\210\312\313\314!\203 \315\\\202 \f\"+\316\317\306#\210\312\224T\225\"\320\"\211\321\234\235\203U\203U\202Y\322\234 \323 \324\234 \322\234!\235\205o\325\"\205u\326%# b\210\320 #\"\211$\203\217\327$\322\234!\202\222\327\330!. \207" [case-fold-search pnt bounds mb me field-name t bibtex-enclosing-field bibtex-start-of-name-in-field bibtex-end-of-name-in-field buffer-substring-no-properties looking-at "OPT\\|ALT" 3 re-search-backward nil assoc-ignore-case 2 1 append 0 (("crossref" "Reference key of the crossreferenced entry")) (("key" "Used for reference key creation if author and editor fields are missing")) message "NO COMMENT AVAILABLE" bibtex-entry-maybe-empty-head bibtex-type-in-head entry-type bibtex-entry-field-alist entry-list c-r-list bibtex-include-OPTcrossref req-opt-list bibtex-user-optional-fields bibtex-include-OPTkey list-of-entries comment] 7 (#$ . 83473) nil]) #@213 Makes a field named E-T in current BibTeX entry. This function is for interactive and non-interactive purposes. To call it interactively, just give it no arguments and enter the field name using the minibuffer. (defalias 'bibtex-make-field #[(e-t &optional called-by-yank) "\204?\212\306 \210\307 \224T \225\")\310\n \"A@\311\f\312\234\f\313\234 \"\205&\314#\205,\315%$\316%\317\320$\321\211\211&&,:\204GCG\313\232\203T\311\322C\"G\323\232\203a\311\322C\"\324\234\203n\325@P\202p@'t\204{(\203\215\321)\326\321\316\"\210\327\330!\203\214\321u\210)\331c\210*+\\j\210'\332\261\210,\203\253*-\323Z\\j\210\333c\210,\204\272*-\\j\210(\203\303\322\202\305\334 \323\234\211.;\203\324.\202\346\335.!\203\341. \202\346\336\337.\")(\203\360\322\202\362\340 \261\210t\205\373\341u)\207" [e-t bibtex-type-in-head entry-type bibtex-entry-field-alist fl bibtex-user-optional-fields bibtex-enclosing-entry-maybe-empty-head buffer-substring-no-properties assoc-ignore-case append 0 1 (("crossref" nil)) (("key" nil)) t completing-read "BibTeX field name: " nil "" 2 3 "ALT" bibtex-find-text looking-at "[}\"]" ",\n" " " "= " bibtex-field-left-delimiter fboundp error "%s is neither a string nor a function" bibtex-field-right-delimiter -1 bibtex-include-OPTcrossref bibtex-include-OPTkey field-list completion-ignore-case bibtex-field-history name called-by-yank bibtex-help-message bibtex-entry-offset bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation init] 8 (#$ . 84565) "*P"]) #@215 Move to beginning of BibTeX entry. If inside an entry, move to the beginning of it, otherwise move to the beginning of the previous entry. If called from a program, this function returns the new location of point. (defalias 'bibtex-beginning-of-entry #[nil "\300\301w\210\302\303!\203 \301u\210\304\305\301\306#\207" [" " nil looking-at "@" re-search-backward "^[ ]*@" move] 4 (#$ . 86130) nil]) #@197 Move to end of BibTeX entry. If inside an entry, move to the end of it, otherwise move to the end of the previous entry. If called from a program, this function returns the new location of point. (defalias 'bibtex-end-of-entry #[nil "\306\307\310\311 \312#\313Q`\314 \315\316 \203%\316 \317!b\210)\202\210\320\321!\203e\322\225b\210\320\323!\203B\324\325\315\326#\204W\306\202W\320\327!\203U\324\330\315\326#\204W\306\202W\306 \204\210\322\224b\210\315u\210\202\210\320\n!\203}\331\306\315\306#\210\322\224\f\232\204\210\306\202\210t\203\205\332\333!\210 b\210 \203\223\fb\210\334\335!\210-`\207" [case-fold-search bibtex-entry-field-alist valid-entry-head org pnt err t "[ ]*@[ ]*\\(" mapconcat #[(type) "\301@\302Q\207" [type "\\(" "\\)"] 3] "\\|" "\\)" bibtex-beginning-of-entry nil bibtex-parse-string bibtex-end-of-string looking-at "[ ]*@[ ]*preamble[ \n]*" 0 "(" re-search-forward ")[ ]*\n\n" move "{" "}[ ]*\n\n" bibtex-search-entry message "Not on a known BibTeX entry." error "Syntactical incorrect entry starts here" bounds] 5 (#$ . 86536) nil]) #@40 Make the current BibTeX entry visible. (defalias 'bibtex-reposition-window #[(arg) "\212\301 \302 \\\303\245b\210\304!)\207" [arg bibtex-beginning-of-entry bibtex-end-of-entry 2 recenter] 2 (#$ . 87636) "P"]) #@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 (#$ . 87852) nil]) #@230 Count number of entries in current buffer or region. With prefix argument COUNT-STRING-ENTRIES it counts all entries, otherwise it counts all except Strings. If mark is active it counts entries in region, if not in whole buffer. (defalias 'bibtex-count-entries #[(&optional count-string-entries) "`\306 \203 \307 \202 \310 \306 \203\311 \202d\312?\214\f }\210\fb\210\313\314!\210)\315\306 \2037\316\2028\317\320P\n\"\210 b-\207" [count-string-entries bibtex-sort-ignore-string-entries number end-point start-point pnt bibtex-mark-active region-beginning bibtex-beginning-of-first-entry region-end 0 bibtex-map-entries #[(current) "T\211\207" [number] 2] message "Region" "Buffer" " contains %d entries."] 5 (#$ . 88059) "P"]) #@27 Spell whole BibTeX entry. (defalias 'bibtex-ispell-entry #[nil "\300\301 \302 \"\207" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 88807) nil]) #@33 Spell abstract of BibTeX entry. (defalias 'bibtex-ispell-abstract #[nil "\303\304 \305 \210\306\307 \"\211\203\310\311\n!\312\n!\"\202\313\314!+\207" [case-fold-search pnt bounds t bibtex-end-of-entry bibtex-beginning-of-entry bibtex-search-forward-field "abstract" ispell-region bibtex-start-of-text-in-field bibtex-end-of-text-in-field error "No abstract in entry"] 5 (#$ . 88982) nil]) #@40 Narrow buffer to current BibTeX entry. (defalias 'bibtex-narrow-to-entry #[nil "\212\300 \301 })\207" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 89384) nil]) #@176 Sort BibTeX buffer alphabetically by key. Text outside of BibTeX entries is not affected. If `bibtex-sort-ignore-string-entries' is non-nil, @String entries will be ignored. (defalias 'bibtex-sort-buffer #[nil "\214\300 \212db\210\301 )}\210\302 \210\303\304\302\301\305$)\207" [bibtex-beginning-of-first-entry bibtex-end-of-entry bibtex-skip-to-valid-entry sort-subr nil #[nil "\303\304 !\210\305\n\224\n\225\")\207" [case-fold-search bibtex-entry-head bibtex-key-in-head t re-search-forward buffer-substring-no-properties] 3]] 5 (#$ . 89562) nil]) #@573 Looking for place to put the BibTeX entry named ENTRY-NAME. Performs a binary search (therefore, buffer is assumed to be in sorted order, without duplicates (see \[bibtex-validate]), if it is not, `bibtex-find-entry-location' will fail). If entry-name is already used as a reference key, an error is signaled. However, if optional variable IGNORE-DUPS is non-nil, no error messages about duplicate entries are signaled, but the error handling is assumed to be made in the calling function. The value is nil if a duplicate entry error occurred, and t in all other cases. (defalias 'bibtex-find-entry-location #[(entry-name &optional ignore-dups) "\306\307 \210\310 \210\311 \312 \210\310\306!\210`\313\313 \nY\313\313 \204\232 \n\\\314\245\211b\210\310\306!\210\315!\210\316\224\225\"\f\231\203_\317 \n\232\203Y\306\211\202#\202\"\f\231\203}\311  \232\203w\306\211\202#\202\"\f\230\203\"\306\306\204\"\317 \210\320\321\"\210\202\"\203\246\317 \210\313\202\332\nb\210\322!\205\270\316\224\225\"\211\203\304\f\231\203\326\311 \210o\204\320\323\314y!\210\324 \210\202\331\nb\210\306.\207" [case-fold-search left right actual-point actual-key done t bibtex-beginning-of-first-entry bibtex-skip-to-valid-entry bibtex-end-of-entry bibtex-beginning-of-last-entry nil 2 re-search-forward buffer-substring-no-properties bibtex-beginning-of-entry error "Entry with key `%s' already exists" looking-at newline beginning-of-line new dup bibtex-entry-head bibtex-key-in-head entry-name ignore-dups bibtex-key-in-entry] 4 (#$ . 90121)]) #@381 Validate if buffer or region is syntactically correct. Only known entry types are checked, so you can put comments outside of entries. With optional argument TEST-THOROUGHLY non-nil it checks for absence of required fields and questionable month fields as well. If mark is active, it validates current region, if not whole buffer. Returns t if test was successful, nil otherwise. (defalias 'bibtex-validate #[(&optional test-thoroughly) "\306\306\307\310\311\312 \313#\314Q`\315 \203\316 \202\317 ;\315 \203)\320 \202*d<\214;<}\210;b\210\321\322!\210\323\324\306\307#\203\202\321 \210\325u\210`\326\f!=>=\204\\\306u\210\202~\306?\327 \210)`>\232\203p\306u\210\202~>b\210\330 \331DB\306u\210*\202;\321\332!\210\203\217\307\202\314@\203\250\306A;b\210\321\333!\210\334\335!\210\321\332!\210)B\203\314;b\210\321\336!\210\307\337\311\340C\313#\341QD?\334\342!\210*\321\332!\210) b\210\203K\343 EFG\344\345\"\307H\346\306\307\"\210)\347\350\351!\307\"\210FE\352\325!\210\353 \210ed|\210eb\210\354 \203\f\355\202 \356\357\261\210\203.G\360\361@\362\234!\363@\364\234\357\261\210A\211\204\365\306\211\"\210IJ\366\306!\210\352\364!\210eb\210\367\325!\210*\306\202\\\315 \203W\370\371!\210\202[\370\372!\210\307.\207" [error-list syntax-error case-fold-search bibtex-entry-field-alist valid-bibtex-entry pnt nil t "@[ ]*\\(\\(string\\)\\|" mapconcat #[(type) "\301@\302Q\207" [type "\\(" "\\)"] 3] "\\|" "\\)" bibtex-mark-active region-beginning bibtex-beginning-of-first-entry region-end bibtex-progress-message "Checking syntactical structure" re-search-forward "^[ ]*@" -1 looking-at bibtex-skip-to-valid-entry bibtex-current-line "Syntax error (check esp. commas, braces, and quotes)" done "Checking correct sort order" bibtex-map-entries #[(current) "\303 \210\203  \231\203 \211\207 \230\203 \304 \305D\nB\211\207 \304 \306D\nB\211\207" [previous current error-list bibtex-progress-message bibtex-current-line "Duplicate key with previous" "Entries out of order"] 2] "Checking required fields and month fields" "[{\"]\\(" #[(mon) "\301@\302Q\207" [mon "\\(" "\\)"] 3] "\\)[}\"]" #[(current) "\306 \210\307 \310 b\210\311\312 \"\210\313\314\n\224T\n\225\" \"\315\f\316\234\317\234!\315\f\320\234\317\234!!\312\"b\210\321# \"\211$\203\235\314\322$!\323$!\"\211%\227\324\232\203k\325&\314\326$!\327$!\"\"\203k\330 \331D'B'\332\313% \" \"\332\313%!\"!\"!%\227\333\232\203\213\334\")\335$!b\210\321# \"\211$\204>)\"\203\246! G\316V\204\274 G\316U\205\320 @\336\234?\205\320\212\307 \210\330 )\337 @@\340QD'B\211'.\207" [beg end bibtex-type-in-head bibtex-entry-field-alist entry-list req bibtex-progress-message bibtex-beginning-of-entry bibtex-end-of-entry bibtex-search-entry nil assoc-ignore-case buffer-substring-no-properties copy-sequence 1 0 2 bibtex-search-forward-field bibtex-start-of-name-in-field bibtex-end-of-name-in-field "month" string-match bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-current-line "Questionable month field (delimited string)" delete "crossref" t bibtex-end-of-field 3 "Required field \"" "\" missing" creq crossref-there bibtex-field-name bounds field-name questionable-month error-list] 7] buffer-name sort #[(a b) "@ @W\207" [a b] 2] pop-to-buffer switch-to-buffer get-buffer-create "*BibTeX validation errors*" toggle-read-only compilation-mode "BibTeX mode command `bibtex-validate'\n" "Maybe undetected errors due to syntax errors. Correct and validate again." "" "\n" ":" number-to-string 0 ": " 1 compilation-parse-errors set-buffer-modified-p other-window message "Region is syntactically correct" "Buffer is syntactically correct" start-point end-point must-match p bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries previous test-thoroughly bibtex-predefined-month-strings questionable-month default-directory dir bufnam pop-up-windows compilation-error-list compilation-old-error-list] 7 (#$ . 91730) "P"]) #@69 Finds end of text of next BibTeX field; with ARG, to its beginning. (defalias 'bibtex-next-field #[(arg) "\302 \210`\303\304\305\217\210)\306 \307\"\207" [start arg bibtex-inside-field nil (byte-code "\301 \302!b\210\303u\210)\301\207" [bounds bibtex-enclosing-field bibtex-end-of-field 2] 2) ((error (byte-code "b\210\301\210\301u\207" [start nil] 1))) bibtex-find-text t] 3 (#$ . 95749) "P"]) #@64 Go to end of text of current field; with ARG, go to beginning. (defalias 'bibtex-find-text #[(arg &optional as-if-interactive silent) "\306 \210\307t\206 !\211\203A\n\203$\310 !b\210\311\312!\2038\313u\210\2028\314 !b\210h\315U\2045h\316U\2038\317u\210 \205|\320 \202|\321 \210\322 \203^\322 \n\203V\323 !\202Y\324 !b)\202|\311\f!\203s\n\203m \224\202o\325\225b\202|?\205|\326\327!)\207" [as-if-interactive bounds arg bibtex-help-message bibtex-entry-maybe-empty-head bibtex-key-in-head bibtex-inside-field bibtex-enclosing-field bibtex-start-of-text-in-field looking-at "[{\"]" nil bibtex-end-of-text-in-field 125 34 -1 bibtex-print-help-message beginning-of-line bibtex-parse-string bibtex-start-of-text-in-string bibtex-end-of-text-in-string 0 error "Not on BibTeX field" silent] 3 (#$ . 96155) "P"]) #@106 Removes the string starting optional/alternative fields. Aligns text and goes thereafter to end of text. (defalias 'bibtex-remove-OPT-or-ALT #[nil "\304 \210\305\306 \212\307 !b\210\310\311!\203F\312\313G!\210\314\315!\210\316u\210\317 \210\n\203/ \320Zj\210\2022\321c\210\314\315!\210\317 \210\n\203C\321c\210\202F j\210)\304 *\207" [case-fold-search bounds bibtex-align-at-equal-sign bibtex-text-indentation bibtex-inside-field t bibtex-enclosing-field bibtex-start-of-name-in-field looking-at "OPT\\|ALT" delete-char "OPT" search-forward "=" -1 delete-horizontal-space 2 " "] 2 (#$ . 96989) nil]) #@33 Removes "" or {} around string. (defalias 'bibtex-remove-delimiters #[nil "\212\305 \210\306\307 \310\311 !!\312 !b\210\313\n! \2058\310 A! @b\210\314\315!\210\fb\210\316\315!\210\313\n!)\202-\207" [case-fold-search bounds stop boundaries text-end bibtex-inside-field t bibtex-enclosing-field copy-marker bibtex-end-of-text-in-field bibtex-start-of-text-in-field bibtex-search-forward-field-string delete-char 1 delete-backward-char] 3 (#$ . 97602) nil]) #@150 Kills 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. (defalias 'bibtex-kill-field #[(&optional copy-only) "`\306\307 \210\310 \311\n!\312\n! b\210\313\314w\210\315\316\317\n!\320\n!\"\316\321\n!\322\n!\"E B\211GV\203>S \233\314\241\210 \203Lb\210\202Z\f |\210\314\323\314\306\211#\210)-\315\211\207" [pnt case-fold-search bounds the-end the-beginning bibtex-field-kill-ring t bibtex-inside-field bibtex-enclosing-field bibtex-end-of-field bibtex-start-of-field " \n," nil field buffer-substring-no-properties bibtex-start-of-name-in-field bibtex-end-of-name-in-field bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-find-text bibtex-field-kill-ring-max bibtex-field-kill-ring-yank-pointer copy-only bibtex-help-message bibtex-last-kill-command] 7 (#$ . 98073) "P"]) (defalias 'bibtex-copy-field-as-kill #[nil "\300\301!\207" [bibtex-kill-field t] 2 nil nil]) #@143 Kill the entire enclosing BibTeX entry. With prefix arg COPY-ONLY the current entry to `bibtex-entry-kill-ring', but do not actually kill it. (defalias 'bibtex-kill-entry #[(&optional copy-only) "`\306\307 \310 \210\311 \312\313#\203\314\224b\210`\315\316\n\f\"D B\211GV\2031S \233\312\241\210 \203?b\210\202C\n\f|\210,\315\211\207" [pnt case-fold-search beg bibtex-entry-maybe-empty-head end bibtex-entry-kill-ring t bibtex-beginning-of-entry bibtex-end-of-entry re-search-forward nil move 0 entry buffer-substring-no-properties bibtex-entry-kill-ring-max bibtex-entry-kill-ring-yank-pointer copy-only bibtex-last-kill-command] 5 (#$ . 99074) "P"]) (defalias 'bibtex-copy-entry-as-kill #[nil "\300\301!\207" [bibtex-kill-entry t] 2 nil nil]) #@218 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!\210\303\211\207" [n this-command bibtex-insert-current-kill bibtex-yank] 2 (#$ . 99845) "*p"]) #@550 Replace just-yanked killed BibTeX item with a different. This command is allowed only immediately after a `bibtex-yank' or a `bibtex-yank-pop'. At such a time, 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 !)\207" [last-command this-command inhibit-read-only n bibtex-yank error "Previous command was not a BibTeX yank" t mark bibtex-insert-current-kill] 3 (#$ . 100213) "*p"]) #@69 Delete the text part of the current field, replace with empty text. (defalias 'bibtex-empty-field #[nil "\301 \210\302 \303!b\210`\304!|\210\305 \306 Pc\210\307\310!)\207" [bounds bibtex-inside-field bibtex-enclosing-field bibtex-start-of-text-in-field bibtex-end-of-text-in-field bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-find-text t] 3 (#$ . 101030) nil]) #@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 (#$ . 101420) "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 (#$ . 101731) "p"]) #@593 Finish editing the current BibTeX entry and clean it up. Checks 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 only will work 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 this on `string' or `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-reference-key called-by-reformat) "\306 \210\307\310 \311 \210\312\n \307#\205\313 \224 \225\" \204\"\f\204\233\2032\314\315\316 \317\211\320%\2024\316 \311 \210\312!\210 \224\203I \224 \225|\210c\210\311 \310 \210\312\317\321#\203a\322\224b\210`{|\210 \206\201!?\206\201\323\307\"\"c\210\324u\210\311 \210\312\n!\210\"\204\232\325\326!\210-+ ?\205\263\212\214\311 \310 }\210\327\307\317\"\210\330\331!*\207" [case-fold-search eob bibtex-entry-head bibtex-key-in-head key new-reference-key bibtex-format-entry t bibtex-end-of-entry bibtex-beginning-of-entry re-search-forward buffer-substring-no-properties read-from-minibuffer "Key to use: " bibtex-generate-autokey nil bibtex-key-history move 0 bibtex-find-entry-location -1 error "New inserted entry yields duplicate key" bibtex-parse-keys run-hooks bibtex-clean-entry-hook bibtex-autokey-edit-before-use autokey bibtex-entry-maybe-empty-head start end entry called-by-reformat bibtex-maintain-sorted-entries success] 6 (#$ . 102050) "P"]) #@304 Fill current entry. Realigns 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 also. (defalias 'bibtex-fill-entry #[nil "\306`!\306\307 !\310 \210\311 \210\nj\210\312 \"\211\203\241\306\313\f!!\306\314\f!!\306\315\f!!\306\316\f!! b\210\317u\210\311 \210\320\321!\210\317u\210\n!\\j\210\322\323\"\210\324\325!\210\326u\210\"\203h\n#\327Z\\j\210\202k\330c\210\317u\210\311 \210\"\203|\330c\210\202\200#j\210\322\331\332#\203\220\324\330!\210\202\200\333 \210b\210,\312 \"\211\204)\334\335!\203\253\317u\210\311 \210\320\321!\210\317u\210\nj\210 b*\207" [end pnt bibtex-entry-offset bibtex-field-name bounds begin-field copy-marker bibtex-end-of-entry bibtex-beginning-of-entry bibtex-delete-whitespace bibtex-search-forward-field bibtex-start-of-field bibtex-end-of-field bibtex-start-of-name-in-field bibtex-end-of-name-in-field nil open-line 1 re-search-forward "[ \n]*=" replace-match "=" -1 2 " " "[ \n]+" move bibtex-do-auto-fill looking-at "," end-field begin-name end-name bibtex-field-indentation bibtex-align-at-equal-sign bibtex-text-indentation] 5 (#$ . 103737) "*"]) #@298 Reformat all BibTeX entries in buffer or region. 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 it reformats entries in region, if not in whole buffer. (defalias 'bibtex-reformat #[(&optional additional-options called-by-convert-alien) "`\306 !\307\232\205\n\206  \203f\f\203\n\202g\310\311 \204(\312\313!\205)\314\312\315!\2050\316\312\317!\2057\320\3123\203A\321\202B\322\323P!\205I\324\312\325!\205P\326\312\327!\205W\330\312\331!\205^\332\257\"\211\202g\3334 \205z\f\203u \202z\312\334!\2115\3116\3357\336 \203\214\337 \202\223\340 \210\341 \210`8\336 \203\237\342 \202\240d9\343\344\345:\346#\347Q;\21489}\210\3144>\203\316eb\210\350;\311\335#\203\316\351\352!\210\202\2768b\210\353\354\355\"\210\356\357!\210\353\360!\210)5\203\372<\203\372 \204\372\361 \210\311=\362\311\335\211#\210b. \207" [pnt additional-options bibtex-reformat-previous-options bibtex-reformat-previous-reference-keys use-previous-options called-by-convert-alien prefix-numeric-value 16 delq nil y-or-n-p "Realign entries (recommended for files not created by BibTeX mode)? " realign "Remove empty optional and alternative fields? " opts-or-alts "Remove delimiters around pure numerical fields? " numerical-fields "Insert" "Remove" " comma at end of entry? " last-comma "Replace double page dashes by single ones? " page-dashes "Force delimiters? " delimiters "Unify case of entry types and field names? " unify-case (realign) "Generate new reference keys automatically? " t bibtex-mark-active region-beginning bibtex-beginning-of-first-entry bibtex-skip-to-valid-entry region-end "[ \n]+\\(@[ ]*\\(" mapconcat #[(type) "\301@\302Q\207" [type "\\(" "\\)"] 3] "\\|" "\\)\\)" re-search-forward replace-match "\n\\1" bibtex-progress-message "Formatting" 1 bibtex-map-entries #[(current) "\302 \210\303\211\"\210\304 >\205\305 \210\306 \210\307\310!\207" [reformat-reference-keys bibtex-entry-format bibtex-progress-message bibtex-clean-entry realign bibtex-end-of-entry bibtex-delete-whitespace open-line 2] 3] done bibtex-sort-buffer bibtex-parse-keys bibtex-comma-after-last-field bibtex-entry-format reformat-reference-keys bibtex-autokey-edit-before-use bibtex-sort-ignore-string-entries start-point end-point bibtex-entry-field-alist valid-bibtex-entry bibtex-maintain-sorted-entries bibtex-reference-keys] 10 (#$ . 105074) "*P"]) #@393 Converts an alien BibTeX buffer to be fully usable by BibTeX mode. If a file doesn't confirm with some standards used by BibTeX mode, some of the high-level features of BibTeX mode won't be available. This function tries to convert current buffer to confirm with these standards. With prefix argument DO-ADDITIONAL-REFORMATTING non-nil, read options for reformatting entries from minibuffer. (defalias 'bibtex-convert-alien #[(&optional do-additional-reformatting) "\303\304!\210\305\306\307\310#\210eb\210\311\312\307\310#\203\313\314!\210\202 \303\315!\210\305\316\307\310#\210\307\211\317 *\205P\303\320!\210\305\321\307\310#\210\322\n\310\"\210\203J\303\323!\210\324 \210db\210\303\325!\207" [bibtex-maintain-sorted-entries bibtex-mark-active do-additional-reformatting message "Starting to validate buffer..." sit-for 1 nil t re-search-forward "[ \n]+@" replace-match "\n@" "If errors occur, correct them and call `bibtex-convert-alien' again" 5 bibtex-validate "Starting to reformat entries..." 2 bibtex-reformat "Starting to sort buffer..." bibtex-sort-buffer "Buffer is now parsable. Please save it."] 4 (#$ . 107598) "*P"]) #@210 Complete word fragment before point to longest prefix of a defined string. If point is not after the part of a word, all strings are listed. Remove surrounding delimiters if complete string could be expanded. (defalias 'bibtex-complete-string #[nil "\301\302\"\207" [bibtex-strings bibtex-complete t] 3 (#$ . 108747) "*"]) #@198 Complete word fragment before point to longest prefix of a defined key. If point is not after the part of a word, all keys are listed. This function is most useful in completing crossref entries. (defalias 'bibtex-complete-key #[nil "\204 \301\302\303\"\210\304!\207" [bibtex-reference-keys bibtex-parse-keys nil t bibtex-complete] 3 (#$ . 109078) "*"]) #@62 Insert a new BibTeX @Article entry; see also `bibtex-entry'. (defalias 'bibtex-Article #[nil "\300\301!\207" [bibtex-entry "Article"] 2 (#$ . 109442) nil]) #@59 Insert a new BibTeX @Book entry; see also `bibtex-entry'. (defalias 'bibtex-Book #[nil "\300\301!\207" [bibtex-entry "Book"] 2 (#$ . 109604) nil]) #@62 Insert a new BibTeX @Booklet entry; see also `bibtex-entry'. (defalias 'bibtex-Booklet #[nil "\300\301!\207" [bibtex-entry "Booklet"] 2 (#$ . 109757) nil]) #@61 Insert a new BibTeX @InBook entry; see also `bibtex-entry'. (defalias 'bibtex-InBook #[nil "\300\301!\207" [bibtex-entry "InBook"] 2 (#$ . 109919) nil]) #@67 Insert a new BibTeX @InCollection entry; see also `bibtex-entry'. (defalias 'bibtex-InCollection #[nil "\300\301!\207" [bibtex-entry "InCollection"] 2 (#$ . 110078) nil]) #@68 Insert a new BibTeX @InProceedings entry; see also `bibtex-entry'. (defalias 'bibtex-InProceedings #[nil "\300\301!\207" [bibtex-entry "InProceedings"] 2 (#$ . 110255) nil]) #@61 Insert a new BibTeX @Manual entry; see also `bibtex-entry'. (defalias 'bibtex-Manual #[nil "\300\301!\207" [bibtex-entry "Manual"] 2 (#$ . 110435) nil]) #@68 Insert a new BibTeX @MastersThesis entry; see also `bibtex-entry'. (defalias 'bibtex-MastersThesis #[nil "\300\301!\207" [bibtex-entry "MastersThesis"] 2 (#$ . 110594) nil]) #@59 Insert a new BibTeX @Misc entry; see also `bibtex-entry'. (defalias 'bibtex-Misc #[nil "\300\301!\207" [bibtex-entry "Misc"] 2 (#$ . 110774) nil]) #@64 Insert a new BibTeX @PhdThesis entry; see also `bibtex-entry'. (defalias 'bibtex-PhdThesis #[nil "\300\301!\207" [bibtex-entry "PhdThesis"] 2 (#$ . 110927) nil]) #@66 Insert a new BibTeX @Proceedings entry; see also `bibtex-entry'. (defalias 'bibtex-Proceedings #[nil "\300\301!\207" [bibtex-entry "Proceedings"] 2 (#$ . 111095) nil]) #@65 Insert a new BibTeX @TechReport entry; see also `bibtex-entry'. (defalias 'bibtex-TechReport #[nil "\300\301!\207" [bibtex-entry "TechReport"] 2 (#$ . 111269) nil]) #@66 Insert a new BibTeX @Unpublished entry; see also `bibtex-entry'. (defalias 'bibtex-Unpublished #[nil "\300\301!\207" [bibtex-entry "Unpublished"] 2 (#$ . 111440) nil]) #@36 Insert a new BibTeX @String entry. (defalias 'bibtex-String #[nil "\204 \305\306\307\"\210 \205\n?\205\310\311\306\211\211\312& \203+\n\204+\313 !\210\202.\314 \210\fj\210\315\316 \205>\n?\205> \317\320 \321 \322 \323\260c\210\324y\210 \203`\n\204`\325G G\\\326G\\\202b\325Gu)\207" [bibtex-reference-keys bibtex-maintain-sorted-entries bibtex-sort-ignore-string-entries key bibtex-entry-offset bibtex-parse-keys nil t completing-read "String key: " bibtex-key-history bibtex-find-entry-location bibtex-move-outside-of-entry "@String" bibtex-entry-left-delimiter " = " bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-entry-right-delimiter "\n" -1 "@String{" " = {"] 8 (#$ . 111614) nil]) #@38 Insert a new BibTeX @Preamble entry. (defalias 'bibtex-Preamble #[nil "\301 \210j\210\302\303 \304 \305\261\210\306y\210\307u\207" [bibtex-entry-offset bibtex-move-outside-of-entry "@Preamble" bibtex-entry-left-delimiter bibtex-entry-right-delimiter "\n" -1 10] 4 (#$ . 112342) nil]) (provide 'bibtex)