;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Fri Aug 9 18:51:46 1996 ;;; from file /home/fsf/rms/e19/lisp/bibtex.el ;;; emacs version 19.32.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bibtex.el' was compiled for Emacs 19.29 or later")) #@92 *Set this to { or " according to your personal preferences. This variable is buffer local. (defvar bibtex-field-left-delimiter "{" (#$ . -471)) (make-variable-buffer-local (quote bibtex-field-left-delimiter)) #@92 *Set this to } or " according to your personal preferences. This variable is buffer local. (defvar bibtex-field-right-delimiter "}" (#$ . -686)) (make-variable-buffer-local (quote bibtex-field-right-delimiter)) #@58 *All entries listed here will have an OPTcrossref field. (defvar bibtex-include-OPTcrossref (quote ("InProceedings" "InCollection")) (#$ . -903)) #@53 *If non-nil, all entries will have an OPTkey field. (defvar bibtex-include-OPTkey t (#$ . -1055)) #@56 *If non-nil, all entries will have an OPTannote field. (defvar bibtex-include-OPTannote t (#$ . -1159)) #@208 *List of optional fields the user wants to have always present. Entries should be lists of strings with two elements (first element = name of the field, second element = comment to appear in the echo area). (defvar bibtex-mode-user-optional-fields nil (#$ . -1270)) #@72 *If non-nil, bibtex-clean-entry will delete all empty optional fields. (defvar bibtex-clean-entry-zap-empty-opts t (#$ . -1542)) #@232 *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. (defvar bibtex-sort-ignore-string-entries t (#$ . -1678)) (make-variable-buffer-local (quote bibtex-sort-ignore-string-entries)) #@312 *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. (defvar bibtex-maintain-sorted-entries nil (#$ . -2045)) (make-variable-buffer-local (quote bibtex-maintain-sorted-entries)) #@270 *Specifies interval for parsing buffer for keys. The buffer is checked every bibtex-parse-keys-timeout seconds if it is modified since last parsing and is parsed if necessary. This is needed only if buffer is maintained sorted (bibtex-maintain-sorted-entries non-nil). (defvar bibtex-parse-keys-timeout auto-save-timeout (#$ . -2488)) #@561 Defines reference 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 to be used. If not, the second pair is to be 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 strings with two elements (first element = name of the field, second element = comment to appear in the echo area). (defvar bibtex-entry-field-alist (quote (("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") ("month" "Month of the publication as a string (remove braces)") ("pages" "Pages in the journal") ("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)")) (("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)") ("pages" "Pages in the journal") ("note" "Remarks to be put at the end of the \\bibitem")))) ("Book" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title 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") ("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") ("year" "Year of publication") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("InBook" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the book") ("chapter" "Chapter 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") ("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") ("type" "Word to use instead of \"chapter\"") ("note" "Remarks to be put at the end of the \\bibitem"))) ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the book") ("chapter" "Chapter 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") ("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") ("type" "Word to use instead of \"chapter\"") ("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") ("chapter" "Chapter in the book") ("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]") ("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") ("chapter" "Chapter in the book") ("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")))) ("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") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("pages" "Pages in the conference proceedings") ("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")) (("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") ("year" "Year of publication") ("organization" "Sponsoring organization of the conference") ("publisher" "Publishing company, its location") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("pages" "Pages in the conference proceedings") ("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") ("year" "Year of publication") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("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")) (("address" "Address of the school (if not part of field \"school\") or country") ("type" "Type of the master's thesis") ("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 reference (BibTeX converts it to lowercase)") ("howpublished" "The way in which the reference was published") ("year" "Year of publication") ("month" "Month of the publication as a string (remove braces)") ("note" "Remarks to be put at the end of the \\bibitem")))) ("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")) (("address" "Address of the school (if not part of field \"school\") or country") ("type" "Type of the PhD. thesis") ("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")) (("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") ("publisher" "Publishing company, its location") ("organization" "Sponsoring organization of the conference") ("address" "Location of the Proceedings") ("month" "Month of the publication as a string (remove braces)") ("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 reference (BibTeX converts it to lowercase)") ("note" "Remarks to be put at the end of the \\bibitem")) (("year" "Year of publication") ("month" "Month of the publication as a string (remove braces)")))))) (#$ . 2830)) #@150 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. (defvar bibtex-predefined-strings (quote (("jan") ("feb") ("mar") ("apr") ("may") ("jun") ("jul") ("aug") ("sep") ("oct") ("nov") ("dec") ("acmcs") ("acta") ("cacm") ("ibmjrd") ("ibmsj") ("ieeese") ("ieeetc") ("ieeetcad") ("ipl") ("jacm") ("jcss") ("scp") ("sicomp") ("tcs") ("tocs") ("tods") ("tog") ("toms") ("toois") ("toplas"))) (#$ . 13220)) #@251 *List of BibTeX files containing string definitions. Those files must be specified using pathnames relative to the directories specified in $BIBINPUTS. This variable is only evaluated when bibtex-mode is entered (i. e. when loading the BibTeX file). (defvar bibtex-string-files nil (#$ . -13723)) #@75 *If not nil print help messages in the echo area on entering a new field. (defvar bibtex-help-message t (#$ . -14026)) #@211 *Number of names to use for the automatically generated reference key. If this is set to anything but a number, all names are used. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-names 1 (#$ . -14152)) #@329 Alist of (old-regexp new-string) pairs. Any part of name matching a old-regexp is replaced by new-string. Case of the old-regexp is significant. All regexps are tried in the order in which they appear in the list, so be sure to avoid recursion here. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-name-change-strings (quote (("\\\\\\\"a" "ae") ("\\\\\\\"o" "oe") ("\\\\\\\"u" "ue") ("\\\\\\\"s" "ss") ("\\\\\\\"A" "Ae") ("\\\\\\\"O" "Oe") ("\\\\\\\"U" "Ue") ("\\\"a" "ae") ("\\\"o" "oe") ("\\\"u" "ue") ("\\\"s" "ss") ("\\\"A" "Ae") ("\\\"O" "Oe") ("\\\"U" "Ue") ("{" "") ("}" ""))) (#$ . 14415)) #@202 *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 further detail. (defvar bibtex-autokey-name-length (quote infty) (#$ . -15073)) #@132 *String that comes between any two names in the key. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-name-separator "" (#$ . -15345)) #@152 *Number of rightmost digits from the year field yo incorporate into key. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-year-length 2 (#$ . -15539)) #@223 *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. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-titlewords 5 (#$ . -15749)) #@180 *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 further detail. (defvar bibtex-autokey-title-terminators (quote ("\\." "!" "\\?" ":" ";" "---")) (#$ . -16029)) #@217 *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 further detail. (defvar bibtex-autokey-titlewords-stretch 2 (#$ . -16311)) #@296 *Determines words that may begin a title but are not to be used in the key. Each item of the list is a regexp. If the first word of the title matchs a regexp from that list, it is not included in the title, even if it is capitalized. Regexps in the list must be entered using lowercase letters. (defvar bibtex-autokey-titleword-first-ignore (quote ("a" "an" "on" "the" "eine?" "der" "die" "das")) (#$ . -16593)) #@223 *Determines exceptions to the usual abbreviation mechanism. A list of (old-regexp new-string) pairs. Use all lowercase letters for old-regexp. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-titleword-abbrevs nil (#$ . -17012)) #@230 Alist of (old-regexp new-string) pairs. Any part of title word matching a old-regexp is replaced by new-string. Case of the old-regexp is significant. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-titleword-change-strings (quote (("\\\\\\\"a" "ae") ("\\\\\\\"o" "oe") ("\\\\\\\"u" "ue") ("\\\\\\\"s" "ss") ("\\\\\\\"A" "Ae") ("\\\\\\\"O" "Oe") ("\\\\\\\"U" "Ue") ("\\\"a" "ae") ("\\\"o" "oe") ("\\\"u" "ue") ("\\\"s" "ss") ("\\\"A" "Ae") ("\\\"O" "Oe") ("\\\"U" "Ue") ("{" "") ("}" ""))) (#$ . 17301)) #@209 *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 further detail. (defvar bibtex-autokey-titleword-length 5 (#$ . -17865)) #@122 *String to be put between the title words. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-titleword-separator "_" (#$ . -18137)) #@137 *String to be put between name part and year part of key. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-name-year-separator "" (#$ . -18327)) #@137 *String to be put between name part and year part of key. See the documentation of function bibtex-generate-autokey for further detail. (defvar bibtex-autokey-year-title-separator ":_" (#$ . -18531)) #@75 *If non-nil, user is allowed to edit the generated key before it is used. (defvar bibtex-autokey-edit-before-use t (#$ . -18737)) (byte-code "!B  # # # # # # # # # )B! ####################@A#BC#DE#FG#HE#IJ#KL#MC#NO#PQ#RS#TA#UV#WX#YZ#[\\#]^#_`#)Babׁb!B#cd#ef#gh#ij#kl#mn#op#qr#st#uv#wx#yz#{|ׁ|!B#}~###############B!B!)B!>B!![B!!xB!" [boundp bibtex-mode-syntax-table make-syntax-table st modify-syntax-entry 34 "w" 36 "$$ " 37 "< " 39 "w " 64 92 "\\" 12 "> " 10 126 " " current-load-list bibtex-mode-map make-sparse-keymap km define-key " " bibtex-find-text "\n" bibtex-next-field "" bibtex-complete-string "\"" bibtex-remove-double-quotes-or-braces "{" "}" "" bibtex-clean-entry "?" bibtex-print-help-message "" bibtex-pop-previous "" bibtex-pop-next " " bibtex-kill-optional-field "" bibtex-empty-field "$" bibtex-ispell-entry "" bibtex-beginning-of-entry "" bibtex-end-of-entry "" bibtex-entry "" bibtex-hide-entry-bodies "n" bibtex-narrow-to-entry "w" widen "" bibtex-remove-OPT " " 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 "" bibtex-preamble "" bibtex-string "" bibtex-TechReport "" bibtex-Unpublished [menu-bar bibtex-edit] "BibTeX-Edit" [menu-bar bibtex-edit bibtex-print-help-message] ("Help about Current Field" . bibtex-print-help-message) [menu-bar bibtex-edit bibtex-complete-string] ("String Complete" . bibtex-complete-string) [menu-bar bibtex-edit bibtex-next-field] ("Next Field" . bibtex-next-field) [menu-bar bibtex-edit bibtex-find-text] ("End of Field" . bibtex-find-text) [menu-bar bibtex-edit bibtex-pop-previous] ("Snatch from Similar Preceding Field" . bibtex-pop-previous) [menu-bar bibtex-edit bibtex-pop-next] ("Snatch from Similar Following Field" . bibtex-pop-next) [menu-bar bibtex-edit bibtex-remove-OPT] ("Remove OPT" . bibtex-remove-OPT) [menu-bar bibtex-edit bibtex-remove-double-quotes-or-braces] ("Remove Quotes or Braces" . bibtex-remove-double-quotes-or-braces) [menu-bar bibtex-edit bibtex-clean-entry] ("Clean Up Entry" . bibtex-clean-entry) [menu-bar bibtex-edit bibtex-sort-entries] ("Sort Entries" . bibtex-sort-entries) [menu-bar bibtex-edit bibtex-validate-buffer-from-point] ("Validate Entries Starting at Point" lambda nil (interactive) (bibtex-validate-buffer t)) [menu-bar bibtex-edit bibtex-validate-buffer] ("Validate Entries" . bibtex-validate-buffer) [menu-bar entry-types] "Entry-Types" [menu-bar entry-types bibtex-preamble] ("Preamble" . bibtex-preamble) [menu-bar entry-types bibtex-string] ("String" . bibtex-string) [menu-bar entry-types bibtex-Misc] ("Miscellaneous" . bibtex-Misc) [menu-bar entry-types bibtex-Unpublished] ("Unpublished" . bibtex-Unpublished) [menu-bar entry-types bibtex-Manual] ("Technical Manual" . bibtex-Manual) [menu-bar entry-types bibtex-TechReport] ("Technical Report" . bibtex-TechReport) [menu-bar entry-types bibtex-MastersThesis] ("Master's Thesis" . bibtex-MastersThesis) [menu-bar entry-types bibtex-PhdThesis] ("PhD. Thesis" . bibtex-PhdThesis) [menu-bar entry-types bibtex-Booklet] ("Booklet (Bound, but no Publisher/Institution)" . bibtex-Booklet) [menu-bar entry-types bibtex-Book] ("Book" . bibtex-Book) [menu-bar entry-types bibtex-Proceedings] ("Conference Proceedings" . bibtex-Proceedings) [menu-bar entry-types bibtex-InBook] ("Chapter or Pages in a Book" . bibtex-InBook) [menu-bar entry-types bibtex-InCollection] ("Article in a Collection" . bibtex-InCollection) [menu-bar entry-types bibtex-InProceedings] ("Article in Conference Proceedings" . bibtex-InProceedings) [menu-bar entry-types bibtex-Article] ("Article in Journal" . bibtex-Article) "Stefan Schoef " bibtex-maintainer-address bibtex-pop-previous-search-point nil bibtex-pop-next-search-point bibtex-completion-candidates make-variable-buffer-local bibtex-keys bibtex-buffer-last-parsed-for-keys-tick] 6) (defalias 'bibtex-cfield #[(name text) " İ" [",[ \n]*\\(" name "\\)[ \n]*=[ \n]*\\(" text "\\)"] 5]) (byte-code "\nB\nB\nB\nB\n\nB\nΰ\nB̉\nΰ \nB̉\nΰ\nB̉\nΰ\nB\nBְ̉ \nBа\nBQ\nBݰ\nB\" \nB !\nB\f\"\nB$\nB%\nB$%а(\nB(P*\nB+\nB,\nB( /\nB+0\nB,1\nB%5\nB6\nB7\nB!}*+D,FEQ@EQAEBF9\nBCC\nBDGEE\nB" [1 bibtex-name-in-cfield current-load-list 2 bibtex-text-in-cfield "[^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*" bibtex-field-name "[][A-Za-z0-9.:;?!`'()/*@_+=|<>-]+" bibtex-field-const "[^{}]" bibtex-field-string-part-not-braced "{" "\\(" "\\)*" "}" bibtex-field-string-part-no-inner-braces "\\)" "\\|" bibtex-field-string-part-1-inner-brace bibtex-field-string-part-2-inner-braces bibtex-field-string-part-3-inner-braces bibtex-field-string-braced "\"" "[^\"\\]" "\\\\.\\|\n" bibtex-field-string-quoted bibtex-field-string bibtex-field-string-or-const "\\([ \n]+#[ \n]+\\(" "\\)\\)*" bibtex-field-text bibtex-cfield bibtex-field bibtex-name-in-field bibtex-text-in-field "@[A-Za-z]+" bibtex-reference-type bibtex-reference-key "^[ ]*\\(" "\\)[ ]*[({][ ]*\\(" bibtex-reference-head "?" bibtex-reference-maybe-empty-head bibtex-type-in-head bibtex-key-in-head "\\([ \n]*" "[ \n]*,?[ \n]*[})]" bibtex-reference bibtex-type-in-reference bibtex-key-in-reference "^[ ]*@[sS][tT][rR][iI][nN][gG][ \n]*[({][ \n]*\\(" "\\)[ \n]*=[ \n]*\\(" "\\)[ \n]*[})]" bibtex-string bibtex-key-in-string bibtex-text-in-string boundp bibtex-font-lock-keywords font-lock-function-name-face font-lock-reference-face nil t "^[ ]*\\(OPT" "\\)[ ]*=" font-lock-comment-face font-lock-variable-name-face "*Default expressions to highlight in BibTeX mode." bibtex-name-alignment " organization = " bibtex-text-alignment] 19) (defalias 'assoc-ignore-case #[(string alist) " \n\"\n \n@@\nA \n@" [assoc string alist] 4]) (defalias 'member-of-regexp #[(string list) "@Q\f\"A" [list string-match "^" "$" string] 5]) (defalias 'assoc-of-regexp #[(string alist) "@@Q\f\"A@" [alist string-match "^" "$" string] 5]) (defalias 'skip-whitespace-and-comments #[nil " Ž!ŕb! ! *" [match-data md ((store-match-data md)) looking-at "\\s>+\\|\\s +" 0 "\\s<" re-search-forward "\\s>"] 2]) (defalias 'map-bibtex-entries #[(fun) " \n#, \"Ș \n\n\"!" [bibtex-beginning-of-entry re-search-forward bibtex-reference-head nil t bibtex-sort-ignore-string-entries buffer-substring-no-properties bibtex-type-in-head "@string" fun bibtex-key-in-head] 4]) (defalias 'bibtex-flash-head #[nil " e# b%x`yw`!1!7` {\")" [nil flash re-search-backward bibtex-reference-head t bibtex-type-in-head bibtex-key-in-reference " " 0 pos-visible-in-window-p sit-for 1 message "From: %s"] 4]) (defalias 'bibtex-move-outside-of-entry #[nil "`dU`eU! d#" [looking-at "[ \n]*@" backward-paragraph forward-paragraph re-search-forward "[ \n]*" t] 4]) (defalias 'beginning-of-first-bibtex-entry #[nil "eb#y‡om‡!" [re-search-forward "^@" nil move 0 message "Warning: No BibTeX entries found!"] 4]) (defalias 'bibtex-inside-field #[nil "xhUuhUhUu" [nil " " 44 -2 125 34 -1] 2]) (defalias 'bibtex-enclosing-field #[nil "`Ï)" [old-point errname (bibtex-enclosing-regexp bibtex-field) ((search-failed (byte-code "b!" [old-point error "Can't find enclosing BibTeX field."] 2)))] 3]) (defalias 'bibtex-enclosing-reference #[nil "`\ne#!bb` d#+!b.b*" [old-point re-search-backward bibtex-reference-head t error "Can't find enclosing BibTeX reference." bibtex-type-in-head pnt re-search-forward bibtex-reference] 4]) (defalias 'bibtex-enclosing-reference-maybe-empty-head #[nil "`\ne#!bb`\n\n̰d#1!b4b*" [old-point re-search-backward bibtex-reference-maybe-empty-head t error "Can't find enclosing BibTeX reference." bibtex-type-in-head pnt re-search-forward "\\([ \n]*" bibtex-field "\\)*" "[ \n]*,?[ \n]*[})]"] 6]) (defalias 'bibtex-enclosing-regexp #[(regexp) "`\nd#ĕdb\ne#!Ĕ\"eb\n $ĔV;\nC\"ĕXY\n $ĔV;\nC\";+" [initial re-search-forward regexp t 0 right re-search-backward left nil 1 signal search-failed] 6]) (defalias 'bibtex-autokey-change #[(string change-list) " G WA \f@\"8‰O\fʜ•OQT-" [string nil 0 change-list change-item len index case-fold-search return-string string-match 1] 6]) (defalias 'bibtex-autokey-abbrev #[(string len) "G\n\n ^\n\nO\n\nH WD\fGSD\f TOP T%\fI-" [string string-length len 0 return-string index (97 101 105 111 117 65 69 73 79 85) vowels] 5]) #@2655 Generates automatically a key from the author/editor and the title field. The generation algorithm works as follows: 1. If there is a non-empty author (preferred) or editor field, use it for the name part of the key. 2. Change any substring found in `bibtex-autokey-name-change-strings' to the corresponding new one (see documentation of this variable for further detail). 3. For every of the first `bibtex-autokey-names' names in the "name" field, determine the last name. 4. From every last name, take at least `bibtex-autokey-name-length' characters (abort only after a consonant or at a word end). 5. Build the name part of the key by concatenating all abbreviated last names with the string `bibtex-autokey-name-separator' between any two. 6. 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). 7. For the title part of the key change the contents of the "title" field of the reference according to `bibtex-autokey-titleword-change-strings' to the corresponding new one (see documentation of this variable for further detail). 8. 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 the first word if it appears in `bibtex-autokey-titleword-first-ignore'. Build the title part of the key by using at least the first `bibtex-autokey-titlewords' capitalized words from this abbreviated title. If the abbreviated title ends after maximal `bibtex-autokey-titlewords' + `bibtex-autokey-titlewords-stretch' capitalized words, all capitalized words from the abbreviated title are used. 9. For every used title word that appears in `bibtex-autokey-titleword-abbrevs' use the corresponding abbreviation (see documentation of this variable for further detail). 10. 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). 11. Build the title part of the key by concatenating all abbreviated title words with the string `bibtex-autokey-titleword-separator' between any two. 12. At least, to get the key, concatenate the name part, the year part and the title part with `bibtex-autokey-name-year-separator' between the name and the year if both are non-empty and `bibtex-autokey-year-title-separator' between the year and the title if both are non-empty. (defalias 'bibtex-generate-autokey #[nil "` ` `\nb\f#\f#>\n!`\f!` \f \"\"+?њ^W\"ՉOC\"ՕOC\"TI*\"# \nb\f#\"щ#њт#G$ZO%\nb\f#\n!`\f!` \f \"'\"+(G)*+,+*)W/(*,\"&,ՉO,*T*\f,--ɉ/+01-њ2]23\\W-\"Օ5-Ք5O622W/68\"16C\"106C\"0-5O-*-/TE-\"110\"-\";;=#> њ%њ??% њ%њ\n>њ?@>AbA.\f" [pnt bibtex-beginning-of-entry min bibtex-end-of-entry max re-search-forward "^[ ]*author[ ]*=" t "^[ ]*editor[ ]*=" nil bibtex-help-message bibtex-find-text start end bibtex-autokey-change buffer-substring-no-properties bibtex-autokey-name-change-strings "" namefield mapcar #[(fullname) " \" ĉO! \" ĔTO! \"" [bibtex-autokey-abbrev string-match "," fullname 0 " [^ ]*$" nil bibtex-autokey-name-length] 4] 0 counter names bibtex-autokey-names string-match " and " append namelist mapconcat #[(name) "" [name] 1] bibtex-autokey-name-separator namepart "^[ ]*year[ ]*=[ ]*\\([0-9]*\\)" 1 yearfield bibtex-autokey-year-length yearpart "^[ ]*title[ ]*=" bibtex-autokey-titleword-change-strings bibtex-autokey-title-terminators numberofitems index case-fold-search titlefield titlestring #[(titleword) " \n\" Ĝ \")" [assoc-of-regexp titleword bibtex-autokey-titleword-abbrevs abbrev 1 bibtex-autokey-abbrev bibtex-autokey-titleword-length] 4] first titlewords-extra titlewords bibtex-autokey-titlewords bibtex-autokey-titlewords-stretch "\\b[A-Z][A-Za-z0-9]*" end-match titleword member-of-regexp bibtex-autokey-titleword-first-ignore -1 "\\b[A-Z][^ ]*\\b" titlelist #[(name) "" [name] 1] bibtex-autokey-titleword-separator titlepart bibtex-autokey-name-year-separator bibtex-autokey-year-title-separator autokey] 8 (#$ . 28543)]) (defalias 'bibtex-parse-keys #[(add &optional abortable) "4 \neb !ˍ?3  /!," [bibtex-maintain-sorted-entries add bibtex-keys nil t case-fold-search label labels message "Parsing reference keys..." userkey (byte-code "\nð#e+ +\"TATT\"Q\\T\\S\"\"CB" [re-search-forward "\\(" bibtex-reference-head "\\)" "\\|" "^[ ]*crossref[ \n]*=[ \n]*" "\\({" bibtex-reference-key "}\\)" "\\(\"" "\"\\)" ",?$" nil t abortable input-pending-p throw userkey bibtex-key-in-head buffer-substring-no-properties label 3 assoc labels] 18) buffer-modified-tick bibtex-buffer-last-parsed-for-keys-tick "Parsing reference keys... done"] 3]) (defalias 'bibtex-auto-fill-function #[nil " \\\" )" [make-string bibtex-text-alignment 1 32 fill-prefix do-auto-fill] 3]) #@2168 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 reproducable test case and send the message. \{bibtex-mode-map} A command such as \[bibtex-Book] will outline the fields for a BibTeX book entry. The optional fields start with the string OPT, and thus ignored by BibTeX. The OPT string may be removed from a field with \[bibtex-remove-OPT]. \[bibtex-kill-optional-field] kills the current optional field entirely. \[bibtex-remove-double-quotes-or-braces] 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. (i) removes double-quotes or braces from entirely numerical fields, (ii) removes OPT from all non-empty optional fields, (iii) removes all empty optional fields, and (iv) checks that no non-optional fields are empty. 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-print-help-message bibtex-beginning-of-entry bibtex-end-of-entry bibtex-ispell-abstract bibtex-narrow-to-entry bibtex-hide-entry-bodies bibtex-sort-entries bibtex-validate-buffer bibtex-pop-previous bibtex-pop-next bibtex-complete-string Variables: bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-include-OPTcrossref bibtex-include-OPTkey bibtex-include-OPTannote bibtex-mode-user-optional-fields bibtex-clean-entry-zap-empty-opts bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries bibtex-entry-field-alist bibtex-predefined-strings bibtex-string-files --------------------------------------------------------- Entry to this mode calls the value of bibtex-mode-hook if that value is non-nil. (defalias 'bibtex-mode #[nil " \n!! \n \"#!!!!!L!" [kill-all-local-variables use-local-map bibtex-mode-map bibtex-mode major-mode "BibTeX" mode-name set-syntax-table bibtex-mode-syntax-table bibtex-predefined-strings bibtex-completion-candidates mapcar #[(filename) "!\f\n \f\"0\f̉SOC\"\f̕O\fC\")\" \"GKP GWz Q!zTZWp!!q!eb#\"\"\"CC\"!q+\"." [getenv "BIBINPUTS" bib "." path mapcar #[(dirname) "G Sš SSO)" [dirname len "/" 0] 3] nil actdirs string-match ":" append 0 dirs ".bib$" filename ".bib" fullfilename item size file-readable-p "/" make-temp-name "" bibtex-completion-candidates compl bufname curbuf create-file-buffer insert-file-contents re-search-forward bibtex-string t buffer-substring-no-properties bibtex-key-in-string kill-buffer error "File %s not in $BIBINPUTS paths"] 8] bibtex-string-files run-with-idle-timer bibtex-parse-keys-timeout #[nil " = \f=?\"" [bibtex-maintain-sorted-entries major-mode bibtex-mode buffer-modified-tick bibtex-buffer-last-parsed-for-keys-tick bibtex-parse-keys nil t] 3] bibtex-parse-keys nil make-local-variable paragraph-start "[ \f\n ]*$" comment-start "%" normal-auto-fill-function bibtex-auto-fill-function font-lock-defaults (bibtex-font-lock-keywords nil t ((36 . "\"") (34 . "."))) run-hooks bibtex-mode-hook] 4 (#$ . 34063) nil]) #@44 Submit via mail a bug report on bibtex.el. (defalias 'bibtex-submit-bug-report #[nil "!@! +Q&)!" [y-or-n-p "Do you want to submit a bug report on BibTeX mode? " require reporter t reporter-prompt-for-summary-p reporter-submit-bug-report bibtex-maintainer-address "bibtex.el" system-configuration system-configuration-options bibtex-sort-ignore-string-entries bibtex-maintain-sorted-entries bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-mode-user-optional-fields bibtex-predefined-strings bibtex-string-files bibtex-font-lock-keywords bibtex-autokey-names bibtex-autokey-name-change-strings bibtex-autokey-name-length bibtex-autokey-name-separator bibtex-autokey-year-length bibtex-autokey-titlewords bibtex-autokey-title-terminators bibtex-autokey-titlewords-stretch bibtex-autokey-titleword-first-ignore 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-entry-field-alist bibtex-help-message bibtex-include-OPTcrossref bibtex-include-OPTkey bibtex-include-OPTannote bibtex-clean-entry-zap-empty-opts nil "Hi Stefan,\n \nI want to report a bug on Emacs BibTeX mode.\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 `" invocation-name " --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] 35 (#$ . 37761) nil]) #@96 Inserts a new BibTeX entry. Calls the value of bibtex-add-entry-hook if that value is non-nil. (defalias 'bibtex-entry #[(entry-type &optional required optional) "D D \f\"Ɯ Ȝ \" \f9 9 ͜ ƜC͜Ɯ+Q \"\"`!c ױrc\" \f!! \"\"!c)!!)" [required optional assoc-ignore-case entry-type bibtex-entry-field-alist e 1 r-n-o 2 c-ref error "Bibtex entry type %s not defined!" bibtex-include-OPTcrossref 0 bibtex-maintain-sorted-entries completing-read format "%s key: " bibtex-keys key bibtex-find-entry-location bibtex-move-outside-of-entry "@" "{" mapcar bibtex-make-field bibtex-make-optional-field ("crossref") bibtex-include-OPTkey ("key") bibtex-mode-user-optional-fields bibtex-include-OPTannote ("annote") "\n}\n\n" bibtex-next-field t run-hooks bibtex-add-entry-hook] 5 (#$ . 39590) (let* ((completion-ignore-case t) (e-t (completing-read "Entry Type: " bibtex-entry-field-alist nil t))) (list e-t))]) #@73 Prints helpful information about current field in current BibTeX entry. (defalias 'bibtex-print-help-message #[nil "`yď b!#\\%\"*\f#T\"\"֜\\\\`ٜٜv| &\"b\f\"\"##ٜ!!." [pnt 0 errname (bibtex-enclosing-regexp bibtex-field) ((search-failed (byte-code "b!" [pnt error "Not on BibTeX field"] 2))) bibtex-name-in-field me mb buffer-substring-no-properties looking-at "OPT" 3 field-name re-search-backward bibtex-reference-maybe-empty-head nil t bibtex-type-in-head reference-type assoc-ignore-case bibtex-entry-field-alist entry-list 2 c-r-list bibtex-include-OPTcrossref 1 req-opt-list append bibtex-mode-user-optional-fields (("crossref" "Label of the crossreferenced entry")) bibtex-include-OPTannote (("annote" "Personal annotation (ignored)")) bibtex-include-OPTkey (("key" "Key used for label creation if author and editor fields are missing")) list-of-entries comment message "NO COMMENT AVAILABLE"] 8 (#$ . 40612) nil]) #@50 Makes a field named E-T in current BibTeX entry. (defalias 'bibtex-make-field #[(e-t) ": \ft!!uc j\nʱ j\f t;u)" [e-t 0 name bibtex-find-text nil looking-at "[}\"]" 1 ",\n" bibtex-name-alignment " = " bibtex-text-alignment bibtex-field-left-delimiter bibtex-field-right-delimiter -1] 2 (#$ . 41671) "sBibTeX field name: "]) #@60 Makes an optional field named E-T in current BibTeX entry. (defalias 'bibtex-make-optional-field #[(e-t) ":@PABP!" [e-t "OPT" bibtex-make-field] 2 (#$ . 42041)]) #@140 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. (defalias 'bibtex-beginning-of-entry #[nil "! u#" [looking-at "^@" nil re-search-backward move] 4 (#$ . 42227) nil]) #@122 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. (defalias 'bibtex-end-of-entry #[nil " !)" [bibtex-beginning-of-entry t parse-sexp-ignore-comments forward-sexp 2] 2 (#$ . 42501) nil]) #@27 Spell whole BibTeX entry. (defalias 'bibtex-ispell-entry #[nil " ` `\"" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 42771) nil]) #@33 Spell abstract of BibTeX entry. (defalias 'bibtex-ispell-abstract #[nil "  \"!)` `)\"" [bibtex-end-of-entry pnt bibtex-beginning-of-entry re-search-forward "^[ ]*[OPT]*abstract[ ]*=" error "No abstract in entry." ispell-region forward-sexp] 3 (#$ . 42938) nil]) #@40 Narrow buffer to current BibTeX entry. (defalias 'bibtex-narrow-to-entry #[nil " ` `})" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 43226) nil]) #@106 Hide all lines between first and last BibTeX entries not beginning with @. With argument, show all text. (defalias 'bibtex-hide-entry-bodies #[(&optional arg) "  `d%8d#)8#4‰##) ?\f!+" [beginning-of-first-bibtex-entry buffer-modified-p nil buffer-read-only modifiedp arg subst-char-in-region 13 10 t re-search-forward "\n[^@]" "\n\\([^@]\\)" replace-match " \\1" selective-display set-buffer-modified-p] 6 (#$ . 43396) "P"]) #@174 Sort BibTeX entries 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-entries #[nil " `db `)}\n \f# ǔb%)" [beginning-of-first-bibtex-entry bibtex-end-of-entry bibtex-sort-ignore-string-entries re-search-forward bibtex-reference nil move 0 sort-subr #[nil "\n#Ŕb#Ŕb" [bibtex-sort-ignore-string-entries re-search-forward bibtex-reference nil move 0 bibtex-reference-head] 4] #[nil "\n!\f\f\" !\"" [bibtex-sort-ignore-string-entries re-search-forward bibtex-reference buffer-substring-no-properties bibtex-key-in-reference bibtex-reference-head bibtex-key-in-head] 3]] 6 (#$ . 43871) nil]) #@577 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-buffer]), 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. Nil is returned, if an duplicate entry error occurred, and t in all other cases. (defalias 'bibtex-find-entry-location #[(entry-name &optional ignore-dups) "  # `db & #) `\n \f\nY  \n\\Х b f !\"s!\"\f\f֔\n׉ A\n?\f֕׉ A?\f? ?\"??\f\nb # \"\f֕by!y \nb." [beginning-of-first-bibtex-entry bibtex-sort-ignore-string-entries re-search-forward bibtex-reference nil move bibtex-end-of-entry left re-search-backward bibtex-beginning-of-entry right actual-point actual-key done new dup 2 buffer-substring-no-properties bibtex-key-in-reference bibtex-reference-head bibtex-key-in-head entry-name 0 t ignore-dups error "Entry with key `%s' already exists!" newline] 5 (#$ . 44657)]) #@222 Validate if the current BibTeX buffer is syntactically correct. Any garbage (e.g. comments) before the first "@" is not tested (so you can put comments here). With non-nil FROM-POINT it starts with entry enclosing point. (defalias 'bibtex-validate-buffer #[(&optional from-point) "`  ` b#Qu`\n!.!4uM#E\nϔM\nb!) b!klj b!*\fbx!{!*" [from-point bibtex-beginning-of-entry beginning-of-first-bibtex-entry starting-point pnt re-search-forward "^@" nil t -1 p looking-at "@string" "@preamble" bibtex-reference 0 error "Bad entry begins here" map-bibtex-entries #[(current) " !" [bibtex-beginning-of-entry forward-sexp 2] 2] bibtex-maintain-sorted-entries point previous #[(current) "\n  ` !!" [previous current point error "Duplicate here with previous!" "Entries out of order here!"] 2] message "Part of BibTeX buffer starting at point is syntactically correct" "BibTeX buffer is syntactically correct"] 4 (#$ . 46027) "P"]) #@69 Finds end of text of next BibTeX field; with arg, to its beginning. (defalias 'bibtex-next-field #[(arg) " `ď)!" [bibtex-inside-field start nil (byte-code " bu" [bibtex-enclosing-field 0 2] 1) ((error (byte-code "bu" [start nil 1] 1))) bibtex-find-text arg] 3 (#$ . 47062) "P"]) #@64 Go to end of text of current field; with arg, go to beginning. (defalias 'bibtex-find-text #[(arg) " \n b!-u- bhU*hU-u\n4 " [bibtex-inside-field bibtex-enclosing-field arg bibtex-text-in-field looking-at "[{\"]" 1 125 34 -1 bibtex-help-message bibtex-print-help-message] 2 (#$ . 47372) "P"]) #@72 Removes the 'OPT' starting optional arguments and goes to end of text. (defalias 'bibtex-remove-OPT #[nil " \nb!!G!!  j) " [bibtex-inside-field bibtex-enclosing-field bibtex-name-in-field looking-at "OPT" delete-char search-forward "=" delete-horizontal-space bibtex-text-alignment] 2 (#$ . 47703) nil]) #@33 Removes "" or {} around string. (defalias 'bibtex-remove-double-quotes-or-braces #[nil " \n\nb #DȔȕ \n bu!2!\nb!@!*+" [bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field stop start re-search-forward bibtex-field-string t 0 end beg -1 looking-at "[}\"]" delete-char 1 "[{\"]"] 5 (#$ . 48037) nil]) #@50 Kill the entire enclosing optional BibTeX field. (defalias 'bibtex-kill-optional-field #[nil " \nbÕÔ!$ bw\f \"'!*" [bibtex-inside-field bibtex-enclosing-field bibtex-name-in-field 0 the-beginning the-end looking-at "OPT" " \n," nil kill-region error "Mandatory fields can't be killed"] 3 (#$ . 48399) nil]) #@69 Delete the text part of the current field, replace with empty text. (defalias 'bibtex-empty-field #[nil " \nb`\n\"\f Pc!" [bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field kill-region bibtex-field-left-delimiter bibtex-field-right-delimiter bibtex-find-text t] 3 (#$ . 48738) nil]) (defalias 'bibtex-pop #[(arg direction) "!)  \n  b!6`G\\7`\"\"=P `֕=^bbb=te$|d$֔֕ \" !\"#䚃! ! )\"#֔֕S*++H!=*H=+ I*I*֕\"- \nb \n|c)=$%Q!.!)Ӊ2" [nil bibtex-help-message bibtex-find-text bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field bibtex-name-in-field new-text stop-name start-name stop-old-text start-old-text bibtex-cfield buffer-substring-no-properties looking-at "OPT" bibtex-field-text matching-entry last-command bibtex-pop bibtex-enclosing-reference-maybe-empty-head bibtex-pop-previous-search-point 0 bibtex-pop-next-search-point direction previous re-search-backward t arg re-search-forward new-close old-close new-open old-open start bibtex-field-left-delimiter "{" 34 123 125 string-match bibtex-field-string end beg bibtex-flash-head error "No " "previous" "next" " matching BibTeX field." this-command] 5]) #@206 Replace text of current field with the text of 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) " \"" [bibtex-pop arg previous] 3 (#$ . 50115) "p"]) #@214 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) " \"" [bibtex-pop arg next] 3 (#$ . 50422) "p"]) #@366 Finish editing the current BibTeX entry and clean it up. For all optional fields of current BibTeX entry: if empty, kill the whole field; otherwise, remove the "OPT" string in the name; if text numerical, remove double-quotes. For all mandatory fields: if empty, signal error. If label of entry is empty or a prefix argument was given, calculate a new entry label. (defalias 'bibtex-clean-entry #[(&optional arg) " ` `)}d$B\nB \n \fb!> b!>* !ҔTҕ bd$XҔҕ  \n\n \f\fb! b!\nG\f\\\"\"\"A@@\"\fbG!! #ju\f\"\"S|S\fbG!! #jbS b!!b! b!buS!Ou\f\\\"ٚS\f\\\"ꚄS\f\"\"Sb.V+ b * `+ ,+#{--\"./.0 \" 4 5!---|4c ` #y`89 9\";?4\"= ?A?u ,!=@!-* ` `9 9}A!," [bibtex-beginning-of-entry nil crossref-there start bibtex-end-of-entry re-search-forward bibtex-field t 1 bibtex-name-in-field bibtex-text-in-field begin-text begin-name looking-at "\\(OPTcrossref\\)\\|\\(crossref\\)" "\\(\"\"\\)\\|\\({}\\)" bibtex-enclosing-reference-maybe-empty-head bibtex-reference-type 0 end-type begin-type end-text end-name end-field begin-field "OPT" bibtex-clean-entry-zap-empty-opts assoc buffer-substring-no-properties assoc-ignore-case bibtex-entry-field-alist delete-char search-forward "=" delete-horizontal-space bibtex-text-alignment error "Mandatory field ``%s'' is empty" "\\(\"[0-9]+\"\\)\\|\\({[0-9]+}\\)" -1 -2 3 "opt" eob bibtex-reference-head bibtex-key-in-head key arg bibtex-autokey-edit-before-use read-from-minibuffer "Key to use: " bibtex-generate-autokey autokey bibtex-reference-maybe-empty-head "^@" move last-command end kill-region bibtex-maintain-sorted-entries bibtex-find-entry-location success yank kill-ring "New inserted reference may be a duplicate." bibtex-parse-keys] 7 (#$ . 50729) "P"]) #@142 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. (defalias 'bibtex-complete-string #[nil "`!u`)\f\"!  \fe#7  \"C B  \"  \")=q b!mוm *~\"\f|c \" b!ו *! \"!)!." [end re-search-backward "[ {\"]" 1 beg buffer-substring-no-properties part-of-word copy-sequence bibtex-completion-candidates string-list t case-fold-search bibtex-string bibtex-key-in-string sort #[(x y) "@ @" [x y] 2] try-completion completion bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field looking-at bibtex-field-string 0 bibtex-remove-double-quotes-or-braces error "Can't find completion for \"%s\"" assoc message "Making completion list..." all-completions list "*Completions*" display-completion-list "Making completion list...done"] 5 (#$ . 52766) "*"]) (defalias 'bibtex-Article #[nil "!" [bibtex-entry "Article"] 2 nil nil]) (defalias 'bibtex-Book #[nil "!" [bibtex-entry "Book"] 2 nil nil]) (defalias 'bibtex-Booklet #[nil "!" [bibtex-entry "Booklet"] 2 nil nil]) (defalias 'bibtex-InBook #[nil "!" [bibtex-entry "InBook"] 2 nil nil]) (defalias 'bibtex-InCollection #[nil "!" [bibtex-entry "InCollection"] 2 nil nil]) (defalias 'bibtex-InProceedings #[nil "!" [bibtex-entry "InProceedings"] 2 nil nil]) (defalias 'bibtex-Manual #[nil "!" [bibtex-entry "Manual"] 2 nil nil]) (defalias 'bibtex-MastersThesis #[nil "!" [bibtex-entry "MastersThesis"] 2 nil nil]) (defalias 'bibtex-Misc #[nil "!" [bibtex-entry "Misc"] 2 nil nil]) (defalias 'bibtex-PhdThesis #[nil "!" [bibtex-entry "PhdThesis"] 2 nil nil]) (defalias 'bibtex-Proceedings #[nil "!" [bibtex-entry "Proceedings"] 2 nil nil]) (defalias 'bibtex-TechReport #[nil "!" [bibtex-entry "TechReport"] 2 nil nil]) (defalias 'bibtex-Unpublished #[nil "!" [bibtex-entry "Unpublished"] 2 nil nil]) (defalias 'bibtex-string #[nil " \n Rcyu" [bibtex-move-outside-of-entry "@string{ = " bibtex-field-left-delimiter bibtex-field-right-delimiter "}\n" -1 8] 4 nil nil]) (defalias 'bibtex-preamble #[nil " cyu" [bibtex-move-outside-of-entry "@Preamble{}\n" -1 10] 1 nil nil]) (provide (quote bibtex))