;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 30 19:46:28 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/bibtex.el ;;; emacs version 19.28.92.13. ;;; 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.28.90"))) (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 "{" (#$ . -475)) (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 "}" (#$ . -690)) (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")) (#$ . -907)) #@53 *If non-nil, all entries will have an OPTkey field. (defvar bibtex-include-OPTkey t (#$ . -1059)) #@56 *If non-nil, all entries will have an OPTannote field. (defvar bibtex-include-OPTannote t (#$ . -1163)) #@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 (#$ . -1274)) #@72 *If non-nil, bibtex-clean-entry will delete all empty optional fields. (defvar bibtex-clean-entry-zap-empty-opts t (#$ . -1546)) #@198 *If true, 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.). (defvar bibtex-sort-ignore-string-entries t (#$ . -1682)) #@185 *If true, 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) from bibtex-mode. (defvar bibtex-maintain-sorted-entries t (#$ . -1944)) #@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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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 (will be converted 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)")))))) (#$ . 2190)) #@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"))) (#$ . 12569)) #@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 (#$ . -13072)) #@75 *If not nil print help messages in the echo area on entering a new field. (defvar bibtex-help-message t (#$ . -13375)) #@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 (#$ . -13501)) #@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") ("{" "") ("}" ""))) (#$ . 13764)) #@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) (#$ . -14317)) #@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 "" (#$ . -14589)) #@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 (#$ . -14783)) #@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 (#$ . -14993)) #@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 ("\\." "!" "\\?" ":" ";" "---")) (#$ . -15273)) #@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 (#$ . -15555)) #@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")) (#$ . -15837)) #@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 (#$ . -16256)) #@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") ("{" "") ("}" ""))) (#$ . 16545)) #@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 (#$ . -17004)) #@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 "_" (#$ . -17276)) #@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 "" (#$ . -17466)) #@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 ":_" (#$ . -17670)) #@75 *If non-nil, user is allowed to edit the generated key before it is used. (defvar bibtex-autokey-edit-before-use t (#$ . -17876)) (byte-code "!B  # # # # # # # # # )B! ####################@A#BC#DE#FG#HI#JG#KL#MN#OE#PQ#RS#TU#VC#WX#YZ#[\\#]^#_`#ab#)Bcdׁd!B#ef#gh#ij#kl#mn#op#qr#st#uv#wx#yz#{|ׁ|!B#}~###############!B!B!1B!" [boundp bibtex-mode-syntax-table make-syntax-table st modify-syntax-entry 34 "\"" 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 "" show-all "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 move/edit] "BibTeX-Edit" [menu-bar move/edit bibtex-print-help-message] ("Help about Current Field" . bibtex-print-help-message) [menu-bar move/edit bibtex-complete-string] ("String Complete" . bibtex-complete-string) [menu-bar move/edit bibtex-next-field] ("Next Field" . bibtex-next-field) [menu-bar move/edit bibtex-find-text] ("End of Field" . bibtex-find-text) [menu-bar move/edit bibtex-pop-previous] ("Snatch from Similar Preceding Field" . bibtex-pop-previous) [menu-bar move/edit bibtex-pop-next] ("Snatch from Similar Following Field" . bibtex-pop-next) [menu-bar move/edit bibtex-remove-OPT] ("Remove OPT" . bibtex-remove-OPT) [menu-bar move/edit bibtex-remove-double-quotes-or-braces] ("Remove Quotes or Braces" . bibtex-remove-double-quotes-or-braces) [menu-bar move/edit bibtex-clean-entry] ("Clean Up Entry" . bibtex-clean-entry) [menu-bar move/edit bibtex-sort-entries] ("Sort Entries" . bibtex-sort-entries) [menu-bar move/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) bibtex-pop-previous-search-point nil bibtex-pop-next-search-point bibtex-completion-candidates make-variable-buffer-local] 6) (defalias 'bibtex-cfield #[(name text) " İ" [",[ \n]*\\(" name "\\)[ \n]*=[ \n]*\\(" text "\\)"] 5]) (byte-code "\nB\nB\nB" [1 bibtex-name-in-cfield current-load-list 2 bibtex-text-in-cfield "[A-Za-z][]A-Za-z0-9.:;?!`'()/*@_+=-]*" bibtex-field-name] 2) #@36 Format of a bibtex field constant. (defconst bibtex-field-const "[0-9A-Za-z][A-Za-z0-9:_+-]*" (#$ . 22589)) (byte-code "R B\fQ B̰ B \" B B B Bɰ B B B! B\" B# B ' B) B* B+ BG- Bć" ["\\(" "{\\(\\({\\(\\({[^}]*}\\)\\|\\([^{}]\\)\\)*}\\)\\|\\([^{}]\\)\\)*}" "\\)\\|\\(" "\"[^\"]*[^\\\\]\"\\|\"\"\\)" bibtex-field-string current-load-list bibtex-field-const "\\|" bibtex-field-string-or-const "\\)" "\\([ \n]+#[ \n]+\\(" "\\)\\)*\\|" "{[^{}]*[^\\\\]}" bibtex-field-text bibtex-cfield bibtex-field-name bibtex-field bibtex-name-in-cfield bibtex-name-in-field bibtex-text-in-cfield bibtex-text-in-field "@[A-Za-z]+" bibtex-reference-type "^\\( \\| \\)*\\(" "\\)[ ]*[({]\\(" bibtex-reference-head 2 bibtex-type-in-head 3 bibtex-key-in-head "\\([ \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 1 bibtex-name-in-string bibtex-text-in-string bibtex-name-alignment " organization = " bibtex-text-alignment] 7) (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) " #& Ɣǔ{Ș ǔǕ{!" [bibtex-beginning-of-entry re-search-forward "^@[^{]*{[ ]*\\([^, ]*\\)" nil t bibtex-sort-ignore-string-entries 0 1 "@string{" fun] 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 "xhUuh\fHUu" [nil " " 44 -2 bibtex-field-right-delimiter 0 -1] 3]) (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 "`e#!b`d#%!b(b*" [old-point re-search-backward "^@[A-Za-z]+[ \n]*[{(][^, \n]*[ \n]*," t error "Can't find enclosing BibTeX reference." pnt re-search-forward "^[)}]$"] 4]) (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]) #@2654 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 occurence 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\"TH*\"#\nb\f#{Љ\"КЂ\"G#ZO$\nb\f#\n!`\f!` \f {&\"+'G()*+*)(W,')+\"#+ԉO+)T) +-,ɉ.*/0,К1Z12\\W,\"ԕ4,Ԕ4O51~1W.57\"05C\"0/5C\"/,4O,*,.TB,\"00/\"-\"::<#=К$К?>$К$К=К? ?=@b@.\f" [pnt bibtex-beginning-of-entry min bibtex-end-of-entry max search-forward-regexp "^[ ]*author[ ]*=" t "^[ ]*editor[ ]*=" nil bibtex-help-message bibtex-find-text start end bibtex-autokey-change 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 (#$ . 26412)]) #@1886 Major mode for editing BibTeX files. \{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 \"!!!\\!" [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 search-forward-regexp bibtex-string t bibtex-name-in-string kill-buffer error "File %s not in $BIBINPUTS paths"] 8] bibtex-string-files make-local-variable paragraph-start "[ \f\n ]*$" comment-start "%" auto-fill-mode 1 bibtex-text-alignment left-margin run-hooks bibtex-mode-hook] 3 (#$ . 31035) nil]) (defalias 'bibtex-entry #[(entry-type &optional required optional) "D D \f\"Ɯ Ȝ \" \f9 9 ͜ ƜC͜Ɯ+eb#ȔmȔȕ{t֔֕{\"VCBV) \"\"! ߱c\" \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 nil labels label t case-fold-search bibtex-maintain-sorted-entries re-search-forward "\\(^@[a-z]+[ \n]*[{(][ \n]*\\([^ , \n]+\\)[ \n]*,\\)\\|\\(^[ \n]*crossref[ \n]*=[ \n]*[{\"]\\([^ , \n]*\\)[}\"],$\\)" 4 assoc completing-read format "%s key: " 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 run-hooks bibtex-add-entry-hook] 5 nil (byte-code "\f$)C" [t completion-ignore-case completing-read "Entry Type: " bibtex-entry-field-alist nil] 6)]) #@73 Prints helpful information about current field in current BibTeX entry. (defalias 'bibtex-print-help-message #[nil "`yď#ɔɕ\n !% \\' \n{*#ɔɕ{\"՜YY]ɜɜsy& b \" \"ɜ!!." [pnt 0 errname (bibtex-enclosing-regexp bibtex-field) ((search-failed (byte-code "b!" [pnt error "Not on BibTeX field"] 2))) re-search-backward "^[ ]*\\([A-Za-z]+\\)[ \n]*=" nil t 1 me mb looking-at "^[ ]*OPT" 3 field-name "^@\\([A-Za-z]+\\)[ \n]*[{(][^, \n]*[ \n]*," reference-type assoc-ignore-case bibtex-entry-field-alist entry-list 2 c-r-list bibtex-include-OPTcrossref 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 assoc message "NO COMMENT AVAILABLE"] 8 (#$ . 35233) nil]) #@50 Makes a field named E-T in current BibTeX entry. (defalias 'bibtex-make-field #[(e-t) "c\fj\nűj)" [e-t 0 name ",\n" bibtex-name-alignment " = " bibtex-text-alignment bibtex-field-left-delimiter bibtex-field-right-delimiter] 2 (#$ . 36263) "sBibTeX entry type: "]) #@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 (#$ . 36553) "sOptional BibTeX entry type: "]) #@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 (#$ . 36771) 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 (#$ . 37045) nil]) #@27 Spell whole BibTeX entry. (defalias 'bibtex-ispell-entry #[nil " ` `\"" [ispell-region bibtex-beginning-of-entry bibtex-end-of-entry] 3 (#$ . 37315) 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 (#$ . 37482) nil]) #@40 Narrow buffer to current BibTeX entry. (defalias 'bibtex-narrow-to-entry #[nil " ` `})" [bibtex-beginning-of-entry bibtex-end-of-entry] 2 (#$ . 37770) 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 (#$ . 37940) "P"]) #@400 Sort BibTeX entries alphabetically by key. Text before the first BibTeX entry, and following the last is not affected. If bibtex-sort-ignore-string-entries is true, @string entries will be ignored. Bugs: 1. Text between the closing brace ending one BibTeX entry, and the @ starting the next, is considered part of the PRECEDING entry. Perhaps it should be part of the following entry. (defalias 'bibtex-sort-entries #[nil " `db `)}ǂ%)" [beginning-of-first-bibtex-entry bibtex-end-of-entry sort-subr nil forward-line #[nil "#\nu" [re-search-forward "}\\s-*\n[\n ]*@" nil move -2] 4] bibtex-sort-ignore-string-entries #[nil "!”•{Øć" [re-search-forward "^\\s-*\\([@a-zA-Z]*\\)\\s-*{\\s-*" 1 "@string" nil] 2] #[nil "!" [re-search-forward "{\\s-*"] 2] #[nil "!" [search-forward ","] 2]] 6 (#$ . 38415) nil]) #@484 Looking for place to put the BibTeX entry named ENTRY-NAME. Searches from beginning of buffer. Buffer is assumed to be in sorted order, without duplicates (see \[bibtex-sort-entries]), if it is not, an error will be signalled. If optional argument MAYBEDUP is non-nil no error/warning messages about ENTRY-NAME being a (potential) duplicate of an existing entry will be emitted. This function returns `nil' if ENTRY-NAME is a duplicate of an existing entry and t in all other cases. (defalias 'bibtex-find-entry-location #[(entry-name &optional maybedup) " Ǎdb\f+" [t nil point previous nodup beginning-of-first-bibtex-entry done (map-bibtex-entries #[(current) "  \"! $ a  `\f o ! \"[U[ [њ[ #!)\" l!!" [entry-name current nil nodup bibtex-beginning-of-entry maybedup throw done t error "Entry duplicates existing!" previous point string-match regexp-quote idx 0 "" message "Warning: Entry %s may be a duplicate of %s!" ding "Duplicate here with previous!" "Entries out of order here!"] 5])] 3 (#$ . 39291) "sBibtex entry key: "]) #@160 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). (defalias 'bibtex-validate-buffer #[nil "`deb!W;u`! u7 #0 ˔7 b!)\"! b!*" [max pnt re-search-forward "@\\|\\'" -1 p looking-at "@string" nil bibtex-reference t 0 error "Bad entry begins here" bibtex-find-entry-location make-string 10 255 message "BibTeX buffer is syntactically correct"] 4 (#$ . 40422) nil]) #@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 (#$ . 40940) "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 (#$ . 41250) "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 (#$ . 41581) nil]) #@33 Removes "" or {} around string. (defalias 'bibtex-remove-double-quotes-or-braces #[nil " \n\n bu!!\fb!)!+" [bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field stop start -1 looking-at "[}\"]" delete-char 1 "[{\"]"] 2 (#$ . 41915) 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 (#$ . 42199) 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 (#$ . 42538) nil]) #@206 Replace text of current field with the text of similar field in previous entry. With arg, go up ARG entries. Repeated, goes up so many times. May be intermixed with \[bibtex-pop-next] (bibtex-pop-next). (defalias 'bibtex-pop-previous #[(arg) " \n\n  b!+`G\\,`{ \"=L=L `ԕbe${ۚ H= GSH= I GSIߚ H= GSH= I GSI HH= GSH H=  QԕԔ b | c!.Љ$" [bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field bibtex-name-in-field nil new-text stop-name start-name stop-old-text start-old-text bibtex-cfield looking-at "OPT" bibtex-field-text matching-entry last-command bibtex-pop-previous bibtex-pop-next bibtex-enclosing-reference bibtex-pop-previous-search-point 0 bibtex-pop-next-search-point re-search-backward t arg bibtex-text-in-cfield bibtex-field-left-delimiter "{" 34 123 125 "\"" bibtex-field-right-delimiter bibtex-flash-head error "No previous matching BibTeX field." this-command] 5 (#$ . 42856) "p"]) #@210 Replace text of current field with the text of similar field in next entry. With arg, go up ARG entries. Repeated, goes up so many times. May be intermixed with \[bibtex-pop-previous] (bibtex-pop-previous). (defalias 'bibtex-pop-next #[(arg) " \n\n  b!+`G\\,`{ \"=L=L `ԕbd${ۚ H= GSH= I GSIߚ H= GSH= I GSI HH= GSH H=  QԕԔ b | c!.Љ$" [bibtex-inside-field bibtex-enclosing-field bibtex-text-in-field bibtex-name-in-field nil new-text stop-name start-name stop-old-text start-old-text bibtex-cfield looking-at "OPT" bibtex-field-text matching-entry last-command bibtex-pop-next bibtex-pop-previous bibtex-enclosing-reference bibtex-pop-previous-search-point 0 bibtex-pop-next-search-point re-search-forward t arg bibtex-text-in-cfield bibtex-field-left-delimiter "{" 34 123 125 "\"" bibtex-field-right-delimiter bibtex-flash-head error "No next matching BibTeX field." this-command] 5 (#$ . 43935) "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$F\nF \n \fb!B bP!B* !ӔTӕ bd$cӔӕ  \n\n \f\fb! bP!\nG\f\\{{\"A@@\"\fbG!! #ju\f{\"^|^\fbG!! #jb^ bQ!+b! b!bu^P!Zu\f\\{ښ^\f\\{Ꚅ^\f{\"^b.Z+ b yh={!+ `- /-#00{121?3 \" 7 !Ȕȕ|7c ` #y`;< <\"7\"?@ /!AAA??B!-*" [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-field-left-delimiter bibtex-field-right-delimiter bibtex-enclosing-reference bibtex-reference-type 0 end-type begin-type end-text end-name end-field begin-field "OPT" bibtex-clean-entry-zap-empty-opts assoc 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]+" -1 -2 3 "opt" 44 backward-delete-char eob search-forward-regexp bibtex-reference-head bibtex-key-in-head key arg bibtex-autokey-edit-before-use read-from-minibuffer "Key to use: " bibtex-generate-autokey autokey "^@[A-Za-z]+[ ]*[({]\\([^,]*\\)" "^@" move last-command end kill-region bibtex-find-entry-location success yank kill-ring "Duplicated key (change manually and enter `bibtex-sort-entries')"] 7 (#$ . 45009) "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`){!\ne#J̕b`̔ d#̔b`{CB b*\" \")=d p \" \f|c\" ! \"ݐ!)!." [end re-search-backward "[ {\"]" 1 beg part-of-word copy-sequence bibtex-completion-candidates string-list t case-fold-search "@string[ \n]*{" 0 strt pnt re-search-forward "[ \n]*=" sort #[(x y) "@ @" [x y] 2] try-completion completion 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 (#$ . 47004) "*"]) (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))