;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'reftex)#@61 The history list of regular expressions used for citations. (defvar reftex-cite-regexp-hist nil (#$ . 101))#@48 Prompt and help string for citation selection. (defconst reftex-citation-prompt "Select: [n]ext [p]revious [r]estrict [ ]full_entry [q]uit RET [?]Help+more" (#$ . 214)) (defconst reftex-citation-help " n / p Go to next/previous entry (Cursor motion works as well).\n g / r Start over with new regexp / Refine with additional regexp.\n SPC Show full database entry in other window.\n f Toggle follow mode: Other window will follow with full db entry.\n . Show insertion point.\n q Quit without inserting \\cite macro into buffer.\n TAB Enter citation key with completion.\n RET Accept current entry (also on mouse-2) and create \\cite macro.\n m / u Mark/Unmark the entry.\n e / E Create BibTeX file with all (marked/unmarked) entries\n a / A Put all (marked) entries into one/many \\cite commands.")#@19 (fn &rest BODY) (defalias 'reftex-with-special-syntax-for-bib '(macro . #[128 "\300\301\302\303\304BB\305BBE\207" [let ((saved-syntax (syntax-table))) unwind-protect progn (set-syntax-table reftex-syntax-table-for-bib) ((set-syntax-table saved-syntax))] 7 (#$ . 1092)]))#@100 Return the expanded value of variable `reftex-default-bibliography'. The expanded value is cached. (defalias 'reftex-default-bibliography #[0 "\300\302N=\204\303\300\304\305 \"#\210\303\300\302#\210\300\304N\207" [reftex-default-bibliography default-directory :reftex-raw put :reftex-expanded reftex-locate-bibliography-files] 6 (#$ . 1372)])#@110 Test if BibTeX or \begin{thebibliography} should be used for the citation. Find the bof of the current file. (defalias 'reftex-bib-or-thebib #[0 "J\301\302 D\235\206\f\211\303\236\304\236>>\2048\2048\303\236\262\304\236\262>\262>\262GGV\203F\205K\303\207\205K\304\207" [reftex-docstruct-symbol bof buffer-file-name bib thebib] 8 (#$ . 1726)])#@311 Return list of bibfiles for current document. When using the chapterbib or bibunits package you should either use the same database files everywhere, or separate parts using different databases into different files (included into the master file). Then this function will return the applicable database files. (defalias 'reftex-get-bibfile-list #[0 "\301 \210\302\303\304\305 D\306\305 DJ\235#A\206-\303\306\305 DJ\235\236A\206-\303J\236A\206-\307\310!\207" [reftex-docstruct-symbol reftex-access-scan-info reftex-last-assoc-before-elt bib eof buffer-file-name bof error "\\bibliography statement missing or .bib files not found"] 5 (#$ . 2109)])#@354 Find BibTeX KEY in any file in FILE-LIST in another window. If MARK-TO-KILL is non-nil, mark new buffer to kill. If HIGHLIGHT is non-nil, highlight the match. If ITEM in non-nil, search for bibitem instead of database entry. If RETURN is non-nil, just return the entry and restore point. (fn KEY FILE-LIST &optional MARK-TO-KILL HIGHLIGHT ITEM RETURN) (defalias 'reftex-pop-to-bibtex-entry #[1538 "\203\300\301!\302Q\202\303\301!\304Qp\305\211\211\211\3062\267\n\203\241\n@\262\nA\262 \307 \"\211\262\204=\310\311\"\210q\210`\262~\210eb\210\312\305\313#\204W\211b\210\202\314\224b\210`\262\203\200\203l\314\225b\210`\315 !{\262\211b\210q\210\316\306\"\210\317!\210b\210\320\314!\210\203\230\321\314\211\224\314\225#\210\316\306\322 \"\210\202q\210\203\261\310\323 \"\202\266\310\324 \"0\207" ["\\\\bibitem[ ]*\\(\\[[^]]*\\]\\)?[ ]*{" regexp-quote "}" "@\\(?:\\w\\|\\s_\\)+[ \n ]*[{(][ \n ]*" "[, \n}]" nil exit reftex-get-file-buffer-force error "No such file %s" re-search-forward t 0 reftex-end-of-bib-entry throw switch-to-buffer-other-window recenter reftex-highlight selected-window "No \\bibitem with citation key %s" "No BibTeX entry with citation key %s"] 16 (#$ . 2768)])#@13 (fn ITEM) (defalias 'reftex-end-of-bib-entry #[257 "\212\3001\211\203\301\210\302\303!\210\304\224S\202\305\306!\210`0\202%\210d\307`\\^)\207" [(error) nil re-search-forward "\\\\bibitem\\|\\\\end{thebibliography}" 0 forward-list 1 300] 4 (#$ . 4014)])#@119 Query for regexps for searching entries using DEFAULT as default. Return a list of regular expressions. (fn DEFAULT) (defalias 'reftex--query-search-regexps #[257 "\302\303\304\305Q\205\fC\205 \306\307!\203\307 \202 \310 J\236A\2030\235\2030\211\266\202\2025B\266\202\311\211\211\312&\313\"\207" [reftex-mode reftex-docstruct-symbol split-string completing-read "Regex { && Regex...}: [" "]: " fboundp LaTeX-bibitem-list bibview-cache nil reftex-cite-regexp-hist "[ ]*&&[ ]*"] 9 (#$ . 4283)])#@139 Extract bib entries which match regexps from BUFFERS. BUFFERS is a list of buffers or file names. Return list with entries. (fn BUFFERS) (defalias 'reftex-extract-bib-entries #[257 "\303\211\211<\203\f\202C\303\211\211\211\211\211\211\211\211\304\305 !\262\306!\262 \f\203.\f\307\232\2032\211C\262 \f@\262\f\fA\262 \310\311 \206D\312\"\203L\313\314!\210\310\f\312\"\203X\313\315!\210\212\316 \317\320\"\216\n\203\254\n@\262\nA\262 \321!\203\204\322!\203\204\262\202\214\323?\"\262\204\232\324\325\"\210\202\300\324\326 \"\210\327!\204\300\330\331\332\333\334\f!!\"!\203\300rq\210\335\336\211\")\210q\210\337 \317\340\"\216\341 !\210\212eb\210\342\303\336#\203\244\3432\240`\262\344\345\303\336#\204\360\346\343\303\"\210`\262\347\225b\210\3501\351\352!0\210\202\f\210b\210\346\343\303\"\210`\262\353\354!\227\355\230\2041\353\354!\227\356\230\2041\353\354!\227\357\230\2041`W\2039b\210\346\343\303\"\210`{\262\n\f\262\203^\310@ \"\204V\346\343\303\"\210A\262\202B\360\303#\262\361\nBB\262\362\363\"\203\202\364\365 !\"\262\366\367!BB\262\370\371\"B\262 B\211\262\f0\210\202\323*\210\372 \210\202`*\210\237\262 \n\373\267\202\313\374 \375\"\207\374 \376\"\207\374 \377\"\207\207" [reftex-keep-temporary-buffers reftex-syntax-table-for-bib reftex-sort-bibtex-matches nil regexp-quote reftex-get-bibkey-default reftex--query-search-regexps (#1="") string-match "\\`[ ]*\\'" #1# user-error "Empty regular expression" "Regular expression matches the empty string" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] bufferp buffer-live-p reftex-get-file-buffer-force message "No such BibTeX file %s (ignored)" "Scanning bibliography database %s" verify-visited-file-modtime y-or-n-p format "File %s changed on disk. Reread from disk? " file-name-nondirectory buffer-file-name revert-buffer t syntax-table #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table re-search-forward search-again re-search-backward "\\(\\`\\|[\n ]\\)[ ]*@\\(\\(?:\\w\\|\\s_\\)+\\)[ \n ]*[{(]" throw 0 (error) up-list 1 match-string 2 "string" "comment" "c" reftex-parse-bibtex-entry "&entry" assoc "crossref" append reftex-get-crossref-alist "&formatted" reftex-format-bib-entry reftex-get-bib-field "&key" reftex-kill-temporary-buffers #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (author 441 year 447 reverse-year 453)) sort reftex-bib-sort-author reftex-bib-sort-year reftex-bib-sort-year-reverse] 21 (#$ . 4803)])#@109 Compare bib entries E1 and E2 by author. The name of the first different author/editor is used. (fn E1 E2) (defalias 'reftex-bib-sort-author #[514 "\300\301\"\300\301\"\203#\211\203#@@\230\203#A\262\211A\262\202@;\2035\211@;\2035@@\231\207@;?\207" [reftex-get-bib-names "author"] 6 (#$ . 7423)])#@71 Compare bib entries E1 and E2 by year in ascending order. (fn E1 E2) (defalias 'reftex-bib-sort-year #[514 "\300\301\302\"A\206\n\303!\300\301\302\"A\206\303!W\207" [string-to-number assoc "year" "0"] 7 (#$ . 7744)])#@72 Compare bib entries E1 and E2 by year in descending order. (fn E1 E2) (defalias 'reftex-bib-sort-year-reverse #[514 "\300\301\302\"A\206\n\303!\300\301\302\"A\206\303!V\207" [string-to-number assoc "year" "0"] 7 (#$ . 7972)])#@53 Return the alist from a crossref ENTRY. (fn ENTRY) (defalias 'reftex-get-crossref-alist #[257 "\300\301\"A\302\212\214~\210\303\304\305!\306Q\302\307#\205-\310\224\262\3111'\312\313!0\210\202(\210\314\302`#*\207" [assoc "crossref" nil re-search-forward "@\\w+[{(][ \n ]*" regexp-quote "[ \n ]*," t 0 (error) up-list 1 reftex-parse-bibtex-entry] 7 (#$ . 8209)])#@180 Extract bib-entries from the \begin{thebibliography} environment. Parsing is not as good as for the BibTeX database stuff. The environment should be located in FILES. (fn FILES) (defalias 'reftex-extract-bib-entries-from-thebibliography #[257 "\301\211\211\211\211C\301\211\211\204\302\303!\210\211A\262\n\242\211\262\203\206\304?\"\262\204/\302\305\"\210\306\307\"\210rq\210\212\214~\210eb\210\310\311\301\312#\203\202\313\314!\210`\262\310\315\301\312#\203]\313\316!\210`\262\203{\203{\317\320\321\322\323\324\325\"\326\"\"\"\"\262b\210\202?+\202\204\216\302\327!\210\330\331 !\262\332!\262\203\243\333\232\203\247\211C\262\334\335@\"\203\263\302\336!\210\211A\262\242\240\203\323\203\323\337\301\320\340\341\"\"\"\262\202\263\320\342\"\262\207" [reftex-keep-temporary-buffers nil error "Need file name to find thebibliography environment" reftex-get-file-buffer-force "No such file %s" message "Scanning thebibliography environment in %s" re-search-forward "\\(\\`\\|[\n ]\\)[ ]*\\\\begin{thebibliography}" t beginning-of-line 2 "\\(\\`\\|[\n ]\\)[ ]*\\\\end{thebibliography}" 1 append mapcar reftex-parse-bibitem delete #1="" split-string buffer-substring-no-properties "[ \n ]*\\\\bibitem[ ]*\\(\\[[^]]*]\\)*[ ]*" "No bibitems found" regexp-quote reftex-get-bibkey-default reftex--query-search-regexps (#1#) string-match "\\`[ ]*\\'" "Empty regular expression" delq make-closure #[257 "\301\300\242\302\303\"A\"\205 \211\207" [V0 string-match assoc "&entry"] 6 "\n\n(fn X)"] #[257 "\300\301!BB\262\302\303\"B\207" ["&formatted" reftex-format-bibitem reftex-get-bib-field "&key"] 4 "\n\n(fn X)"]] 19 (#$ . 8586)])#@108 Return the word before the cursor. If the cursor is in a citation macro, return the word before the macro. (defalias 'reftex-get-bibkey-default #[0 "\300\301!\212\211\203\302\303@\"\203\211Ab\210\304\305x\210\306 )\207" [reftex-what-macro 1 string-match "cite" "^a-zA-Z0-9" nil reftex-this-word] 4 (#$ . 10289)])#@113 Return a list with the author or editor names in ENTRY. If FIELD is empty try "editor" field. (fn FIELD ENTRY) (defalias 'reftex-get-bib-names #[514 "\300\"\211\301\232\203\300\302\"\262\303\304\"\203\"\305\306\307\310$\262\202\303\311\"\2034\305\301\307\310$\262\202\"\303\312\"\203F\305\301\307\310$\262\2024\303\313\"\203X\305\314\307\310$\262\202F\315\306\"\207" [reftex-get-bib-field "" "editor" string-match "\\band\\b[ ]*" replace-match "\n" nil t "[-.a-zA-Z]+\\.[ ]*\\|,.*\\|[{}]+" "^[ ]+\\|[ ]+$" "[ ][ ]+" " " split-string] 8 (#$ . 10613)])#@201 Parse BibTeX ENTRY. If ENTRY is nil then parse the entry in current buffer between FROM and TO. If RAW is non-nil, keep double quotes/curly braces delimiting fields. (fn ENTRY &optional FROM TO RAW) (defalias 'reftex-parse-bibtex-entry #[1025 "\301\211\211\211\212\214\203!\302\303!q\210\304 \210\305!\210\306 \210c\210\2022~\210\2032\2032}\210eb\210\307\310\301\311#\203K\312\313\314!\227B\315\313\316!BD\262\307\317\301\311#\203\354\313\314!\227\262g\320U\203\202\203l`\262\314u\210\202\270\314u\210`\262\3211~\322\314!0\210\202\270\210\202\270g\323U\203\257\203\225`\262\314u\210\202\233\314u\210`\262\324\325\301\311#\203\270`\316Zf\326U\204\233\202\270`\262\307\327\301\314#\210\203\310`Sf\330U\204\310`\202\312`S\331\"\266\202\332\333\"\203\342\334\335\301\311$\262\202\320BB\262\202K*\207" [reftex-syntax-table-for-bib nil get-buffer-create " *RefTeX-scratch*" fundamental-mode set-syntax-table erase-buffer re-search-forward "@\\(\\(?:\\w\\|\\s_\\)+\\)[ \n ]*[{(][ \n ]*\\([^ \n ,]+\\)" t "&type" reftex-match-string 1 "&key" 2 "\\(\\(?:\\w\\|-\\)+\\)[ \n ]*=[ \n ]*" 123 (error) up-list 34 search-forward "\"" 92 "[ ]*[\n ,}]" 44 buffer-substring-no-properties string-match "[\n ]\\|[ ][ ]+" replace-match " "] 13 (#$ . 11205)])#@129 Extract the field FIELDNAME from ENTRY. If FORMAT is non-nil `format' entry accordingly. (fn FIELDNAME ENTRY &optional FORMAT) (defalias 'reftex-get-bib-field #[770 "\300\"\211\203\203\301A\"\207\211A\207\302\207" [assoc format ""] 7 (#$ . 12515)])#@66 Format a BibTeX ENTRY so that it is nice to look at. (fn ENTRY) (defalias 'reftex-format-bib-entry #[257 "\305\306\"\307\310\311#\312\313\"\312\314\"\312\315\"\312\316\"\317\267\202x\312\320\"\211G\321U\2035\312\322 \"\2026\211\262\323\312\324\n\"\311\312\325\f\"\260\202\224\326\312\327 \"\330Q\202\224\331\312\332 \"P\202\224\333\312\332 \"P\202\224\334\312\335 \"\336\312\325 \"R\202\224\337\232\204\212\340\232\204\212\341\232\203\223\312\342\343#\202\224\344\345\346\347\211$\262\350 \203\325\351\321G\352%\210\351\321G\352 \n%\210\351\321G\352\n %\210\351\321G\352 %\210\351\321G\352\f%\210\353\323\323\353 \354\260\n\207" [reftex-label-face reftex-bib-author-face reftex-bib-year-face reftex-bib-title-face reftex-bib-extra-face reftex-get-bib-names "author" mapconcat identity ", " reftex-get-bib-field "year" "title" "&type" "&key" #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("article" 33 "book" 73 "phdthesis" 84 "mastersthesis" 94 "inbook" 104)) "journal" 0 "journaltitle" " " "volume" "pages" "book (" "publisher" ")" "PhD: " "school" "Master: " "Chap: " "chapter" ", pp. " "conference" "incollection" "inproceedings" "booktitle" "in: %s" "" reftex-truncate 30 t reftex-use-fonts put-text-property face "\n " "\n\n"] 18 (#$ . 12779)])#@44 Parse a \bibitem entry in ITEM. (fn ITEM) (defalias 'reftex-parse-bibitem #[257 "\300\211\301\302\"\203\303\304\"\262\303\305\"\262\301\306\"\203'\307\310\311\312$\262\202\301\313\"\2036\307\300\311\312$\262\314B\315B\316\310QBE\207" ["" string-match "\\`{\\([^}]+\\)}\\([^]*\\)" match-string 1 2 "[\n ]\\|[ ][ ]+" replace-match " " nil t "\\`[ ]+" "&key" "&text" "&entry"] 9 (#$ . 14146)])#@88 Format a \bibitem entry in ITEM so that it is (relatively) nice to look at. (fn ITEM) (defalias 'reftex-format-bibitem #[257 "\301\302\"\301\303\"\304G\305V\2031\306\307\310\304O\"\2031\311\310\311\224\\OB\262\312\311\224\\\304O\262\202 B\262\313\314\237\315#\262\316 \203M\317\311G\320%\210\315\321R\207" [reftex-bib-author-face reftex-get-bib-field "&text" "&key" nil 70 string-match " " 60 0 61 mapconcat identity "\n " reftex-use-fonts put-text-property face "\n\n"] 10 (#$ . 14569)])#@1063 Make a citation using BibTeX database files. After prompting for a regular expression, scans the buffers with bibtex entries (taken from the \bibliography command) and offers the matching entries for selection. The selected entry is formatted according to `reftex-cite-format' and inserted into the buffer. If NO-INSERT is non-nil, nothing is inserted, only the selected key returned. FORMAT-KEY can be used to pre-select a citation format. When called with a \[universal-argument] prefix, prompt for optional arguments in cite macros. When called with a numeric prefix, make that many citations. When called with point inside the braces of a `\cite' command, it will add another key, ignoring the value of `reftex-cite-format'. The regular expression uses an expanded syntax: && is interpreted as `and'. Thus, `aaaa&&bbb' matches entries which contain both `aaaa' and `bbb'. While entering the regexp, completion on known citation keys is possible. `=' is a good regular expression to match all entries in all files. (fn &optional NO-INSERT FORMAT-KEY) (defalias 'reftex-citation #[512 "\302 \210\203 \303\304!\210\305\216\306 #)\207" [reftex-mode current-prefix-arg reftex-check-recursive-edit reftex-access-scan-info nil #[0 "\300 \207" [reftex-kill-temporary-buffers] 1] reftex-do-citation] 6 (#$ . 15094) nil])#@90 This really does the work of `reftex-citation'. (fn &optional ARG NO-INSERT FORMAT-KEY) (defalias 'reftex-do-citation #[768 "\306#\307 \211\310\211\211\204\311\312!\210;\203(\313BDC\262\310\262\202+\314\262@\315=\203EA\262\316\317 #\211\313BDC\262\210\204:\320\321!\210\211A\262\242\211\262\203\370\n\203i\n\322\313\"\"\202n\323\"\262 \314=\204\201 \203\273 \324\232\203\273\325\211\310\326\327#\211\262\203\271\330 \331\332\"\216\333\334\335T\211\262\"!)\262\262\336\337\340Q\314\211$\262T\262\202\204\266\f\203\362\326\341\"\203\321\336\342\310\211$\262\202\362\326\343\"\203\343\336\344\310\211$\262\202\362\326\345\"\203\362\336\346\314\211$\262c\210\202N\347\350\"\203\351\350!\210\352\353!\210 \203\354\355!\2036\203\356\355\357\317\"\"\210 \20367\2036\211\2036\360\331\361\"\"\210\320\346!\2108\310\211\223\210\362\363!\210 \250\203e \353V\203b\364\310x\210 S\262\n\365\n!\210\202e\353u\210\357\317\"\207" [reftex-docstruct-symbol reftex-cite-key-separator reftex-format-cite-function reftex-cite-prompt-optional-args reftex-cite-cleanup-optional-args reftex-mode reftex-figure-out-cite-format reftex-offer-bib-menu nil error "Quit" "&key" t concat mapconcat car message "Formatting..." reftex-get-bib-field reftex-format-citation (4) 0 string-match "\\[\\]" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] read-string format "Optional argument %d: " replace-match "[" "]" "\\([a-zA-Z0-9]\\)\\[\\]{" "\\1{" "\\[\\]\\(\\[[a-zA-Z0-9., ]+\\]\\)" "\\1" "\\[\\]\\[\\]" "" string-search "?" search-backward delete-char 1 fboundp LaTeX-add-bibitems apply mapcar mapc #[257 "\301\300\"\207" [V0 reftex-make-cite-echo-string] 4 "\n\n(fn ENTRY)"] reftex-kill-buffer "*RefTeX Select*" "}" reftex-do-citation reftex-plug-into-AUCTeX reftex-cache-cite-echo reftex-select-return-marker] 19 (#$ . 16427)])#@180 Check if there is already a cite command at point and change cite format in order to only add another reference in the same cite command. (fn ARG &optional NO-INSERT FORMAT-KEY) (defalias 'reftex-figure-out-cite-format #[769 "\302\303!@\304 \305\211\203\306\207;\203@\307\310\"\203@\203%<\204>h\311>\203/\312\2020\306g\313>\203;\312\202<Q\207\306\2079\203S \236\203S\314 \2368\202T\262\211<\203{\206i\315\312\316\317\320\321#P\"\262\236\203v\236A\207\322\323\"\210\207" [reftex-cite-key-separator reftex-cite-format-builtin reftex-what-macro 1 reftex-get-cite-format nil "%l" string-match "\\`\\\\cite\\|cite\\([s*]\\|texts?\\)?\\'" (123 44) #1="" (125 44) 2 reftex-select-with-char "SELECT A CITATION FORMAT\n\n" mapconcat #[257 "\300\301@@\302V\203\303\202\304A$\207" [format "[%c] %s %s" 31 " " #1#] 6 "\n\n(fn X)"] "\n" error "No citation format associated with key `%c'"] 14 (#$ . 18368)])#@53 Call `reftex-citation' with a format selector `?p'. (defalias 'reftex-citep #[0 "\300\301\302\"\207" [reftex-citation nil 112] 3 (#$ . 19315) nil])#@53 Call `reftex-citation' with a format selector `?t'. (defalias 'reftex-citet #[0 "\300\301\302\"\207" [reftex-citation nil 116] 3 (#$ . 19468) nil])#@51 Offer bib menu and return list of selected items. (defalias 'reftex-offer-bib-menu #[0 "\306 \307\211\211\211\211\3102d\311\267\202)\312\313 !\202;\314\315\316\317\320\321 J\"\"!!\202;\n\2038\322\323!\210\312\302 !\202;\324\325!\211\204D\324\326!\210p\f`\307\223\210\327 \330\331\"\216\332 \210\333\334!\210\335\334!\210\336\337!\204f\337 \210\340\341 \210\342!)\210\3404\343 \344U\203~\324\345!\210\3405\346b\210\347678\307\350\307&\262@\262A@\262\204\244\351\310\340\"\210\352\267\202\351\310\307\"\210\202\204\353!\3074\341 \210\342!)\210\346b\210\202\2049\203\325\316\3549\237\"\202\326\262\351\310\340\"\210\202\204\3559\203\357\316\3549\237\"\202\360B\262\351\310\340\"\210\202\204\3569\"\210\357\262\351\310\340\"\210\202\204\3569\360#\210\357\262\351\310\340\"\210\202\204\361=\204*\362=\203J9\203:\355\316\3549\237\"B\202@\205@C\262\351\310\340\"\210\202\204;\203Z\262\351\310\340\"\210\202\204\363 \210\202\204)\2620\203 )\207" [reftex--found-list reftex-docstruct-symbol reftex-default-bibliography reftex-call-back-to-this-buffer reftex-select-return-marker inhibit-read-only reftex-bib-or-thebib nil done #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bib 19 thebib 26)) reftex-extract-bib-entries reftex-get-bibfile-list reftex-extract-bib-entries-from-thebibliography reftex-uniquify mapcar cdr reftex-all-assq thebib message "Using default bibliography" error "No valid bibliography in this document, and no default available" "Sorry, no matches found" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] delete-other-windows reftex-kill-buffer "*RefTeX Select*" switch-to-buffer-other-window derived-mode-p reftex-select-bib-mode t erase-buffer reftex-insert-bib-matches buffer-size 0 "No matches found" 1 reftex-select-item reftex-bibtex-selection-callback throw #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (103 170 114 178 65 199 97 224 101 251 69 268)) reftex-restrict-bib-matches car concat reftex-extract-bib-file "BibTeX database file created" complement 13 return ding buffer-read-only truncate-lines reftex-citation-prompt reftex-citation-help reftex-select-bib-mode-map reftex-select-marked] 15 (#$ . 19621)])#@66 Limit FOUND-LIST with more regular expressions. (fn FOUND-LIST) (defalias 'reftex-restrict-bib-matches #[257 "\300\301\302\303\304#\305\"\303C\211\211A\262\242\240\203%\306\303\307\310\311\"\"\"\262\202 \206-\312 \210\207" [split-string read-string "RegExp [ && RegExp...]: " nil reftex-cite-regexp-hist "[ ]*&&[ ]*" delq mapcar make-closure #[257 "\301\300\242\302\303\"A\"\205 \211\207" [V0 string-match assoc "&entry"] 6 "\n\n(fn X)"] ding] 10 (#$ . 21967)])#@87 Limit FOUND-LIST with more regular expressions. (fn ALL &optional MARKED COMPLEMENT) (defalias 'reftex-extract-bib-file #[769 "\300\301!\302!\210\303 \304V\203\305\306\307\"!\204\310\311!\210\312 \210\313\314\315\316\317#\"\"\262\320\321\322#c\210\323 \210eb\207" [read-file-name "File to create: " find-file-other-window buffer-size 0 yes-or-no-p format "Overwrite non-empty file %s? " error "Abort" erase-buffer delq nil mapcar make-closure #[257 "\301\203!\302\301\"\203\300\203\302\301\"?\205&\300\205&\302\303\"A\207\302\303\"A\207" [V0 V1 assoc "&entry"] 4 "\n\n(fn X)"] mapconcat identity "\n\n" save-buffer] 11 (#$ . 22450)])#@62 Insert the bib matches and number them correctly. (fn LIST) (defalias 'reftex-insert-bib-matches #[257 "\302>\205 \303C\303C\304\305\306$\"\266\307\310!\207" [reftex-highlight-selection reftex-mouse-selected-face (mouse both) nil mapc make-closure #[257 "\301\303\304\"A\240\210\300\301\242G\240\210\305\306\300\242\307\301\242%\210\305\306\300\242S\310\302\301\242%\210\301\242c\207" [V0 V1 V2 assoc "&formatted" put-text-property 0 :data mouse-face] 7 "\n\n(fn X)"] run-hooks reftex-display-copied-context-hook] 10 (#$ . 23115)])#@19 (fn NAMELIST N) (defalias 'reftex-format-names #[514 "\301G\302U\203\f\211\262\211\303W\203\304\207\211\303U\203@\207\211V\203*@\3058P\207\211^\262S8\262\305Z\233\301\241\210\306\307@#A@Q\207" [reftex-cite-punctuation nil 0 1 "" 2 mapconcat identity] 8 (#$ . 23664)])#@93 Format a citation from the info in the BibTeX ENTRY according to FORMAT. (fn ENTRY FORMAT) (defalias 'reftex-format-citation #[514 "\211;\204\302\262\203\303\304 \"\203\305\306!\210\303\307\"\203\310\311\312\"!\313\311\314\"!\315\211\211\316 \317\320\"\216\321U\203L\322\323 \"\203G \202H\324P\202\351\325U\203b\326\327\330\n\"\206^\331\"\202\351\332U\203q\327\330 \"@\202\351\333U\203\200\322\334 \335#\202\351\336U\203\221\337\322\334\n\335#!\202\351\340U\203\237\322\341 \"\202\351\342U\203\255\322\343 \"\202\351\344U\203\303\326\327\345\n\"\206\277\331\"\202\351\346U\203\322\327\345 \"@\202\351\347U\203\340\322\350 \"\202\351\351U\203\356\322\352 \"\202\351\353U\203\374\322\354 \"\202\351\355U\203\n\322\356 \"\202\351\357U\203\322\360 \"\202\351\361U\203&\322\362 \"\202\351\363U\2034\322\364 \"\202\351\365U\203B\322\366 \"\202\351\367U\203P\322\370 \"\202\351\371U\203b\372\322\370\n\"\373\"@\202\351\374U\203p\322\375 \"\202\351\376U\203~\322\377 \"\202\351\201@U\203\220\322\201A \"\202\351\201BU\203\242\322\201C \"\202\351\201DU\203\264\322\201E \"\202\351\201FU\203\310\337\322\201E\n\"!\202\351\201GU\203\332\322\201H \"\202\351\201IU\205\351\322\201J \")\262\210\324\230\203\376\331\224\262\331\225\262\202\n\201K\224\262\201K\225\262\201LO\315OQ\266\206\202\303\201M\"\2036\201N\201O\201P\211$\262\202\303\201Q\"\203N\201N\324\201P\211$\262\2026\207" [reftex-comment-citations reftex-cite-comment-format "\\cite{%l}" string-match "%l" error "reftex-cite-comment-format contains invalid %%l" "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)" string-to-number match-string 4 string-to-char 5 nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] 108 reftex-get-bib-field "&key" "" 97 reftex-format-names reftex-get-bib-names "author" 2 65 98 "booktitle" "in: %s" 66 reftex-abbreviate-title 99 "chapter" 100 "edition" 101 "editor" 69 104 "howpublished" 105 "institution" 106 "journal" 107 "key" 109 "month" 110 "number" 78 "note" 111 "organization" 112 "pages" 80 split-string "[- .]+" 115 "school" 117 "publisher" 85 "url" 114 "address" 116 "title" 84 118 "volume" 121 "year" 3 0 "%%" replace-match "%" t "[ ,.;:]*%<"] 13 (#$ . 23963)])#@92 Format a bibtex ENTRY for the echo area and cache the result. (fn ENTRY DOCSTRUCT-SYMBOL) (defalias 'reftex-make-cite-echo-string #[514 "\304\305\"\306\307 \")\310J\236\311A\"\204!\310CJBL\210\n\203e\312!\262\313\314G\315$\210\313\314G\315$\210\211\203T\211A\230\204e\211\241\210\316 \317\320#\210\202eBAB\241\266\316 \317\320#\210\207" [reftex-cite-punctuation reftex-cite-view-format reftex-cache-cite-echo reftex-docstruct-symbol reftex-get-bib-field "&key" (" " " & " " etal.") reftex-format-citation bibview-cache assoc copy-sequence set-text-properties 0 nil put modified t] 11 (#$ . 26343)])#@225 Callback function to be called from the BibTeX selection, in order to display context. This function is relatively slow and not recommended for follow mode. It works OK for individual lookups. (fn DATA IGNORE NO-REVISIT) (defalias 'reftex-bibtex-selection-callback #[771 "\304 \305\306\"\307\211\211\3102frq\210\311 \262\211\312\267\2024\313 \262\202G\314\315\316\317\320 J\"\"!\262\321\262\202G\n\203?\302 \262\202G\322 \210\323\310\307\"\210)\203Q\324!\262\3251b\326 ?\321%0\202e\210\322 0\210\327!\207" [reftex-call-back-to-this-buffer reftex-docstruct-symbol reftex-default-bibliography reftex-keep-temporary-buffers selected-window reftex-get-bib-field "&key" nil exit reftex-bib-or-thebib #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bib 27 thebib 34)) reftex-get-bibfile-list reftex-uniquify mapcar cdr reftex-all-assq thebib t ding throw reftex-visited-files (error) reftex-pop-to-bibtex-entry select-window] 14 (#$ . 26981)])#@54 Return a list of all citation keys used in document. (defalias 'reftex-all-used-citation-keys #[0 "\300 \210\301 \302\211\211\211r\211A\262\242\211\262\203w\303\304\"q\210\212\214~\210eb\210\305\306\302\307#\203s\310 \311\312\"\216\313\314 8)\262\204#\315\316!\262\317\320\"\203S\321\322\307\211$\262\202A\323\324\"\262\211A\262\242\211\262\203#\211\235\204Y\211B\262\202Y*\202\n)\325 \210\207" [reftex-access-scan-info reftex-all-document-files nil reftex-get-file-buffer-force mark re-search-forward "\\\\\\(?:\\(?:\\(?:Av\\|Pv\\|Sv\\|Tv\\|\\(?:ft\\|[afpst]\\)v\\|[Vv]\\)olcite\\)\\(?:\\[[^]]*\\]\\)?{[^}]*}\\(?:\\[[^]]*\\]\\)?\\|\\(?:bibentry\\|[a-zA-Z]*[Cc]ite[a-zA-Z*]*\\)\\(?:\\[[^]]*\\]\\)\\{0,2\\}\\){\\([^}]+\\)}" t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] 4 syntax-ppss match-string-no-properties 1 string-match "%.*\n?" replace-match "" split-string "[, \n]+" reftex-kill-temporary-buffers] 10 (#$ . 27989)])#@88 Return a list of BibTeX @string references that appear as values in ALIST. (fn ALIST) (defalias 'reftex-get-string-refs #[257 "\300\301\302\303\300\304\"\"\"\207" [reftex-remove-if #[257 "\300\301\"\207" [string-match "^\\([\"{]\\|[0-9]+$\\)"] 4 "\n\n(fn X)"] mapcar cdr #[257 "\300\301@\"\207" [string-match "^&"] 4 "\n\n(fn PAIR)"]] 8 (#$ . 28977)])#@587 Create a new BibTeX database BIBFILE with all entries referenced in document. The command prompts for a filename and writes the collected entries to that file. Only entries referenced in the current document with any \cite-like macros are used. The sequence in the new file is the same as it was in the old database. Entries referenced from other entries must appear after all referencing entries. You can define strings to be used as header or footer for the created files in the variables `reftex-create-bibtex-header' or `reftex-create-bibtex-footer' respectively. (fn BIBFILE) (defalias 'reftex-create-bibtex-file #[257 "\303 \304 \305\211\211\211\211\211\211r\211\203\306\211@\306\307\"q\210\310 \311\312\"\216\313!\210\212\214~\210eb\210\314\315\305\316#\203\275\317\320!\262\n\321\224\262\320\224b\210\3221M\323\320!0\210\202R\210\321\225b\210`\262 \f\235\203,{\262 B\262 \324\n \"\262\f\325\305  #\326\327\"A\211\203\220\330\"\204\220\211B\262\266\325\305  \316$\331!\211\211\203\270\211@\211 \235\204\261\211 B\262 A\266\202\202\236\266\202,+\210A\266\202\202)\210\203?r\211\203=\211@\306\307\"q\210\310 \311\332\"\216\313!\210\212\214~\210eb\210\314\333\305\316#\2034\317\320!\262\n\321\224\262\320\224b\210\3341\323\320!0\210\202\210\321\225b\210`\262 \235\203\355{\262B\262\324\n\"\262\202\355+\210A\266\202\202\317)\210\335\n!\210\336 \321V\203Y\337\340\341\f\"!\204Y\342\343!\210\344 \210 \203e \345\261\210\346\347\350!\345#c\210\211\203u\351c\210\346\347\350!\345#c\210\n\203\210\345\n\261\210eb\210\352 \210\353\354G\"\207" [reftex-syntax-table-for-bib reftex-create-bibtex-header reftex-create-bibtex-footer reftex-all-used-citation-keys reftex-get-bibfile-list nil reftex-get-file-buffer-force mark syntax-table make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table re-search-forward "^[ ]*@\\(?:\\w\\|\\s_\\)+[ \n ]*[{(][ \n ]*\\([^ \n ,]+\\)" t match-string 1 0 (error) up-list delete reftex-parse-bibtex-entry assoc "crossref" memql reftex-get-string-refs #[0 "\301\300!\207" [V0 set-syntax-table] 2] "^[ ]*@[Ss][Tt][Rr][Ii][Nn][Gg][ ]*{[ ]*\\([^ \n]+\\)" (error) find-file-other-window buffer-size yes-or-no-p format "Overwrite non-empty file %s? " error "Abort" erase-buffer "\n\n" mapconcat identity reverse "\n\n\n" save-buffer message "%d entries extracted and copied to new database"] 19 (#$ . 29340) "FNew BibTeX file: "]) (provide 'reftex-cite)