;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:25:21 2007
;;; from file /home/cyd/emacs/lisp/textmodes/reftex-cite.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`reftex-cite.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\303\304!\210\305B\306\305!\204 \307\305\310\"\210\311B\312\313!\210\314B\315\316!\207" [current-load-list provide reftex-cite require reftex reftex-cite-regexp-hist default-boundp set-default nil reftex-citation-prompt (lambda (#1=#:defconst-tmp-var) (defconst reftex-citation-prompt #1#)) "Select: [n]ext [p]revious [r]estrict [ ]full_entry [q]uit RET [?]Help+more" reftex-citation-help (lambda (#2=#:defconst-tmp-var) (defconst reftex-citation-help #2#)) " 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."] 3)
(defalias 'reftex-with-special-syntax-for-bib '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBE\207" [body let ((saved-syntax (syntax-table))) unwind-protect progn (set-syntax-table reftex-syntax-table-for-bib) ((set-syntax-table saved-syntax))] 6]))
(defalias 'reftex-default-bibliography #[nil "\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])
(defalias 'reftex-bib-or-thebib #[nil "J\306\307 D	\235\206 	\303\n\236\304\n\236\n>\f\n>\f\2048 \2048 \303	\236\304	\236	>\f	>GGV\203I \205N \303\202N \f\205N \304.\207" [reftex-docstruct-symbol docstruct rest bib thebib bibmem bof buffer-file-name thebibmem] 2])
(defalias 'reftex-get-bibfile-list #[nil "\301 \210\302\303\304\305 D\306\305 DJ\235#A\206- \303\306\305 DJ\235\236A\206- \303J\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])
(defalias 'reftex-pop-to-bibtex-entry #[(key file-list &optional mark-to-kill highlight item return) "\203 \306\307	!\310Q\202 \311\307	!\312Qp\313\211\313\211\314\315\215.\207" [item key re buffer-conf file buf "\\\\bibitem\\(\\[[^]]*\\]\\)?{" regexp-quote "}" "@[a-zA-Z]+[ 	\n]*[{(][ 	\n]*" "[, 	\n}]" nil exit (byte-code "\203| @A\306	\n\"\211\204 \307\310	\"\210q\210`~\210eb\210\311\312\313#\2040 \fb\210\202  \314\224b\210`\203Z \203E \314\225b\210`\315!{\fb\210q\210\316\317\"\210\320!\210b\210\321\314!\210\203s \322\314\211\224\314\225#\210\316\317\323 \"\210\202  q\210\203\213 \307\324\"\207\307\325\"\207" [file-list file mark-to-kill buf oldpos re reftex-get-file-buffer-force error "No such file %s" re-search-forward nil t 0 reftex-end-of-bib-entry throw exit switch-to-buffer-other-window recenter reftex-highlight selected-window "No \\bibitem with citation key %s" "No BibTeX entry with citation key %s" pos return item buffer-conf highlight key] 4) pos oldpos] 4])
(defalias 'reftex-end-of-bib-entry #[(item) "\212\300\301\302\217)\207" [nil (byte-code "\203 \301\210\302\303!\210\304\224S\207\305\306!\210`\207" [item nil re-search-forward "\\\\bibitem\\|\\end{thebibliography}" 0 forward-list 1] 2) ((error (byte-code "d`\300\\^\207" [300] 3)))] 3])
(defalias 'reftex-extract-bib-entries #[(buffers) "\306\211\306<\203 \202 C\306\211\"\306\211#$\306\211%&\306\211'(\306)\307\310 !)\311\312\313\314)\315R*\205Q \316\317!\203J \317 \202Q \320\321+J\"A\306\211\211\322&\323\"\211\203d \324\232\203h )C@A\325\326	\206u \327\"\203} \330\331!\210\212\332\213\210)\237,\333=\203\223 \334\335\"\202\260 ,\336=\203\241 \334\337\"\202\260 ,\340=\203\257 \334\341\"\202\260 .\207" [re-list first-re rest-re buffers buffer-list found-list nil regexp-quote reftex-get-bibkey-default split-string completing-read "Regex { && Regex...}: " "[" "]: " fboundp LaTeX-bibitem-list assoc bibview-cache reftex-cite-regexp-hist "[ 	]*&&[ 	]*" ("") string-match "\\`[ 	]*\\'" "" error "Empty regular expression" ((byte-code "\203Y @A\306	!\203 \307	!\203 	\202! \310	?\"\n\204- \311\312	\"\210\2022 \311\313\n\"\210\nq\210\314 \315\216\316!\210\212eb\210\317\320\321#\203R \322\323\215\210\202B +\324 \210\202  \320\207" [buffer-list buffer buffer1 reftex-keep-temporary-buffers saved-syntax reftex-syntax-table-for-bib bufferp buffer-live-p reftex-get-file-buffer-force message "No such BibTeX file %s (ignored)" "Scanning bibliography database %s" syntax-table ((set-syntax-table saved-syntax)) set-syntax-table re-search-forward nil t search-again (byte-code "`\306\307\310\311#\204 \312\313\310\"\210`\314\225b\210\310\315\316\217\210`\317\320!\227\321\230\204= \317\320!\227\322\230\204= \317\320!\227\323\230\204= `W\203E b\210\312\313\310\"\210	`{\f\203e \324@\"\204\\ \312\313\310\"\210\211A@\210\202K \325\310	\n#\326BB\327\330\"\203\206 \331\332!\"\333\334!BB\335\336\"B\211 B \310\207" [key-point start-point end-point entry rest-re re-list re-search-backward "\\(\\`\\|[\n]\\)[ 	]*@\\([a-zA-Z]+\\)[ 	\n]*[{(]" nil t throw search-again 0 (up-list 1) ((error (byte-code "b\210\301\302\303\"\207" [key-point throw search-again nil] 3))) match-string 2 "string" "comment" "c" string-match reftex-parse-bibtex-entry "&entry" assoc "crossref" append reftex-get-crossref-alist "&formatted" reftex-format-bib-entry reftex-get-bib-field "&key" alist found-list] 5) reftex-kill-temporary-buffers first-re] 4)) author sort reftex-bib-sort-author year reftex-bib-sort-year reverse-year reftex-bib-sort-year-reverse entry buffer1 buffer alist key-point start-point end-point default reftex-mode reftex-docstruct-symbol reftex-sort-bibtex-matches] 9])
(defalias 'reftex-bib-sort-author #[(e1 e2) "\304\305\"\304\305	\"\203) \n\203) @\n@\230\203) \211A@\210\n\211A@\210\202\n @;\203= \n@;\203= @\n@\231\202A @;?*\207" [e1 e2 al2 al1 reftex-get-bib-names "author"] 4])
(defalias 'reftex-bib-sort-year #[(e1 e2) "\302\303\304\"A\206\n \305!\302\303\304	\"A\206 \305!W\207" [e1 e2 string-to-number assoc "year" "0"] 5])
(defalias 'reftex-bib-sort-year-reverse #[(e1 e2) "\302\303\304\"A\206\n \305!\302\303\304	\"A\206 \305!V\207" [e1 e2 string-to-number assoc "year" "0"] 5])
(defalias 'reftex-get-crossref-alist #[(entry) "\303\304\"A\305\212\214~\210\306\307\310\n!\311Q\305\312#\205& \313\224\305\314\315\217\210\316\305	`#,\207" [entry start crkey assoc "crossref" nil re-search-forward "@\\w+[{(][ 	\n]*" regexp-quote "[ 	\n]*," t 0 (up-list 1) ((error)) reftex-parse-bibtex-entry] 4])
(defalias 'reftex-extract-bib-entries-from-thebibliography #[(files) "\306\211\306\211\306\211\306\211012\204 \307\310!\2102\211A2@\2110\203\211 \31103?\"\211\204: \307\3120\"\210\313\3140\"\210\212\nq\210\214~\210eb\210\315\316\306\317#\203\205 \320\321!\210`\315\322\306\317#\203f \320\323!\210`\203 	\203 \324\325\326\327\330\331\332	\"\333\"\"\"\"	b\210\202J *\202 \204\221 \307\334!\210\335\336 !1\331\337\340\3411\342R4\205\266 \343\344!\203\257 \344 \202\266 \345\3465J\"A\306\211\211\347&\350\"\211\203\311 \351\232\203\315 1C\352\353@\"\203\331 \307\354!\210\211A@\211\203\362 \203\362 \355\306\325\356\"\"\202\331 \325\357\"\211.\207" [start end buf entries re re-list 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 "" split-string buffer-substring-no-properties "[ 	\n]*\\\\bibitem\\(\\[[^]]*]\\)*" "No bibitems found" regexp-quote reftex-get-bibkey-default completing-read "Regex { && Regex...}: " "[" "]: " fboundp LaTeX-bibitem-list assoc bibview-cache reftex-cite-regexp-hist "[ 	]*&&[ 	]*" ("") string-match "\\`[ 	]*\\'" "Empty regular expression" delq #[(x) "\302\303\304	\"A\"\205\f 	\207" [re x string-match assoc "&entry"] 5] #[(x) "\301\302!BB\303\304\"B\211\207" [x "&formatted" reftex-format-bibitem reftex-get-bib-field "&key"] 4] file default files reftex-keep-temporary-buffers reftex-mode reftex-docstruct-symbol] 11])
(defalias 'reftex-get-bibkey-default #[nil "\301\302!\212\203 \303\304@\"\203 Ab\210\305\306x\210\307 *\207" [macro reftex-what-macro 1 string-match "cite" "^a-zA-Z0-9" nil reftex-this-word] 3])
(defalias 'reftex-get-bib-names #[(field entry) "\303	\"\211\304\232\203 \303\305	\"\306\307\n\"\203! \310\311\312\313\n$\202 \306\314\n\"\2032 \310\304\312\313\n$\202! \306\315\n\"\203C \310\304\312\313\n$\2022 \306\316\n\"\203T \310\317\312\313\n$\202C \320\n\311\")\207" [field entry names reftex-get-bib-field "" "editor" string-match "\\band\\b[ 	]*" replace-match "\n" nil t "[\\.a-zA-Z\\-]+\\.[ 	]*\\|,.*\\|[{}]+" "^[ 	]+\\|[ 	]+$" "[ 	][ 	]+" " " split-string] 6])
(defalias 'reftex-parse-bibtex-entry #[(entry &optional from to) "\306\211\211\211\212\214\f\203# \307\310!q\210\311 \210\312!\210\313 \210\fc\210\202+ ~\210%&}\210eb\210\314\315\306\316#\203C \317\320\321!\227B\322\320\323!BD\314\324\306\316#\203\306 \320\321!\227g\325U\203c \321u\210`\306\326\327\217\210\202\212 g\330U\203\202 \321u\210`\331\332\306\316#\203\212 `\323Zf\333U\204n \202\212 `\314\334\306\321#\210\335	`S\"\336\337\"\203\241 \340\341\306\316$\202\220 \336\342\"\203\257 \340\343\306\316$\336\344\"\203\275 \340\343\306\316$\nBB\202C *,\207" [field start key alist entry reftex-syntax-table-for-bib nil get-buffer-create " *RefTeX-scratch*" fundamental-mode set-syntax-table erase-buffer re-search-forward "@\\(\\w+\\)[ 	\n]*[{(][ 	\n]*\\([^ 	\n,]+\\)" t "&type" reftex-match-string 1 "&key" 2 "\\(\\w+\\)[ 	\n]*=[ 	\n]*" 123 (up-list 1) ((error)) 34 search-forward "\"" 92 "[ 	]*[\n,}]" buffer-substring-no-properties string-match "[\n	]\\|[ 	][ 	]+" replace-match " " "^[ 	{]+" "" "[ 	}]+$" from to] 5])
(defalias 'reftex-get-bib-field #[(fieldname entry &optional format) "\304	\"\211\203 \203 \303\nA\"\202 \nA\202 \305)\207" [fieldname entry cell format assoc ""] 4])
(defalias 'reftex-format-bib-entry #[(entry) "\306\307\"\310\311	\312#\313\314\"\313\315\"\313\316\"\313\317\"4\320\232\2039 \313\321\"\322\313\323\"\312\313\324\"\260\202\226 \325\232\203I \326\313\327\"\330Q\202\226 \331\232\203X \332\313\333\"P\202\226 \334\232\203g \335\313\333\"P\202\226 \336\232\203{ \337\313\340\"\341\313\324\"R\202\226 \342\232\204\215 \343\232\204\215 \344\232\203\225 \313\345\346#\202\226 \3475\350\n\351\352\211$\353 \203\336 \354\3554G\356\3576\360\361#4%\210\354\355\nG\3567\n%\210\354\355G\3568%\210\354\355\fG\3569\f%\210\354\3555G\356:5%\2104\362\n\322\3225\362\f\363\260\n.\207" [entry auth-list authors year title type reftex-get-bib-names "author" mapconcat identity ", " reftex-get-bib-field "year" "title" "&type" "&key" "article" "journal" " " "volume" "pages" "book" "book (" "publisher" ")" "phdthesis" "PhD: " "school" "mastersthesis" "Master: " "inbook" "Chap: " "chapter" ", pp. " "conference" "incollection" "inproceedings" "booktitle" "in: %s" "" reftex-truncate 30 t reftex-use-fonts put-text-property 0 face reftex-verified-face font-lock-constant-face font-lock-reference-face "\n     " "\n\n" key extra reftex-label-face reftex-bib-author-face reftex-bib-year-face reftex-bib-title-face reftex-bib-extra-face] 10])
(defalias 'reftex-parse-bibitem #[(item) "\303\211\304\305\n\"\203 \306\307\n\"\306\310\n\"\304\311\"\203& \312\313\314\315$\202 \304\316\"\2034 \312\303\314\315$\317	B\320B\321	\313QBE*\207" [text key item "" string-match "\\`{\\([^}]+\\)}\\([^ ]*\\)" match-string 1 2 "[\n	]\\|[ 	][ 	]+" replace-match " " nil t "\\`[ 	]+" "&key" "&text" "&entry"] 6])
(defalias 'reftex-format-bibitem #[(item) "\305\306\"\305\307\"\310\211G\311V\2033 \312\313\314\310O\"\2033 \315\211\224\314\\O	B\315\224\316\\\310O\211\202 	B\317\320	\237\321#\322 \203L \323\315G\324\f%\210\n\321\325R+\207" [item lines key text 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"] 7])
#@1010 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 `C-u' 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 knows citation keys is possible.
`=' is a good regular expression to match all entries in all files.
(defalias 'reftex-citation #[(&optional no-insert format-key) "\304 \210\203 \305\306!\210\307\216\310	\n#)\207" [reftex-mode current-prefix-arg no-insert format-key reftex-check-recursive-edit reftex-access-scan-info nil ((reftex-kill-temporary-buffers)) reftex-do-citation] 4 (#$ . 13259) nil])
(defalias 'reftex-do-citation #[(&optional arg no-insert format-key) "\306	\n#\f\307 \21123\310\21145\31062;\203# \3112!\2102\204, \311\312!\2102;\203A \310\2112\3132BDC3\202D \31462@\315=\203f 2\2102A2\316\3172\320#\2117\3137BDC3)	\204e\321\322!\2103\211A3@\2114\203#8\203\214 8\323\3134\"\"\202\221 \3244\"59\314=\204\245 9\203\336 \325\232\203\336 \326\211\310:;<\327\3305<#\211<\203\335 \331\303\332;T\211;\"!:\333\334:\335Q\314\2115$5<T<\202\256 +=\203\327\3365\"\203\367 \333\337\310\2115$5\202\327\3405\"\203\333\341\310\2115$5\202\327\3425\"\203\333\343\314\2115$55c\210\202n \327\3445\"\2033\345\346!\210\347\350!\210>\203L\351\352!\203L?\203L\353\352\354\3172\"\"\210>\203a@\203a6\203a\354\3552\"\210\321\343!\210A\310\211\223\210\356\357!\210\250\203\213\350V\203\210\360\310x\210S\361!\210\202\213\350u\2102@@.\207" [arg no-insert format-key format reftex-docstruct-symbol docstruct-symbol 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 "\\[\\]" read-string "Optional argument %d: " replace-match "[" "]" "\\([a-zA-Z0-9]\\)\\[\\]{" "\\1{" "\\[\\]\\(\\[[a-zA-Z0-9., ]+\\]\\)" "\\1" "\\[\\]\\[\\]" "" "\\?" search-backward "?" delete-char 1 fboundp LaTeX-add-bibitems apply mapcar #[(entry) "\302	\"\207" [entry docstruct-symbol reftex-make-cite-echo-string] 3] reftex-kill-buffer "*RefTeX Select*" "}" reftex-do-citation selected-entries insert-entries entry string cite-view concat-keys reftex-format-cite-function reftex-cite-prompt-optional-args value nth start reftex-cite-cleanup-optional-args reftex-mode reftex-plug-into-AUCTeX reftex-cache-cite-echo reftex-select-return-marker] 6])
(defalias 'reftex-figure-out-cite-format #[(arg &optional no-insert format-key) "\306\307!@\310 \311\211\f\203 \312\202\212 ;\203K \313\314\"\203K \203* <\204F h\315\235\2034 \316\2025 \317\312g\320\235\203@ \316\202A \317Q\202\212 \312\202\212 \n9\203` \n\236\203` \321\n\2368\202a \n\211<\203\212 \206v \322\316\323\324\325\326#P\"\211\236\203\205 	\236A\202\212 \327\330	\"\210,\207" [format key cite-format-value macro no-insert arg reftex-what-macro 1 reftex-get-cite-format nil "%l" string-match "\\`\\\\cite\\|cite\\'" (123 44) "" "," (125 44) 2 reftex-select-with-char "SELECT A CITATION FORMAT\n\n" mapconcat #[(x) "\301\302@@\303V\203 \304\202 \305A$\207" [x format "[%c] %s  %s" 31 " " ""] 5] "\n" error "No citation format associated with key `%c'" reftex-cite-format-builtin format-key] 8])
#@53 Call `reftex-citation' with a format selector `?p'.
(defalias 'reftex-citep #[nil "\300\301\302\"\207" [reftex-citation nil 112] 3 (#$ . 17254) nil])
#@53 Call `reftex-citation' with a format selector `?t'.
(defalias 'reftex-citet #[nil "\300\301\302\"\207" [reftex-citation nil 116] 3 (#$ . 17410) nil])
(defalias 'reftex-offer-bib-menu #[nil "\306 \307\211\211\211\211\310\311\215\203 .\207" [selected-entries data key rtn found-list bibtype reftex-bib-or-thebib nil done (byte-code "\306=\203 \307\310 !\2024 \311=\203\" \312\313\314\315\316\311	J\"\"!!\2024 \n\2031 \317\320!\210\307\302 !\2024 \321\322!\211\204= \321\323!\210p`\324\223\210\325\213\207" [bibtype reftex-docstruct-symbol reftex-default-bibliography found-list reftex-call-back-to-this-buffer reftex-select-return-marker bib reftex-extract-bib-entries reftex-get-bibfile-list thebib reftex-extract-bib-entries-from-thebibliography reftex-uniquify mapcar cdr reftex-all-assq message "Using default bibliography" error "No valid bibliography in this document, and no default available" "Sorry, no matches found" nil ((byte-code "\306 \210\307\310\311!\210\312\311!\210	\307=\204 \307 \210\313\314 \210\315!\210*\316\317 \320U\203- \321\322!\210\316\323b\210\324()\313\325\313&\211*@+*A@,+\204S \326\327\316\"\210+\330=\203b \326\327\313\"\210\2022 +\331=\203} \332!\313\314 \210\315!\210)\323b\210\2022 +\333=\203\235 -\203\222 \334\335-\237\"\202\223 .\326\327\316\"\210\2022 +\336=\203\277 \337-\203\263 \334\335-\237\"\202\264 B.\326\327\316\"\210\2022 +\340=\203\327 \341-\"\210\342.\326\327\316\"\210\2022 +\343=\203\360 \341-\344#\210\342.\326\327\316\"\210\2022 +\345=\204\376 +\346=\203 -\203\337\334\335-\237\"B\202,\205,C.\326\327\316\"\210\2022 +;\2032+.\326\327\316\"\210\2022 \347 \210\2022 " [default-major-mode major-mode buffer-read-only found-list truncate-lines reftex-citation-prompt delete-other-windows reftex-select-bib-mode reftex-kill-buffer "*RefTeX Select*" switch-to-buffer-other-window nil erase-buffer reftex-insert-bib-matches t buffer-size 0 error "No matches found" 1 reftex-select-item reftex-bibtex-selection-callback throw done 103 114 reftex-restrict-bib-matches 65 mapcar car 97 concat 101 reftex-extract-bib-file "BibTeX database file created" 69 complement 13 return ding reftex-citation-help reftex-select-bib-map rtn key data reftex-select-marked selected-entries] 8))] 8)] 6])
(defalias 'reftex-restrict-bib-matches #[(found-list) "\304\305\306\307\310#\311\"\307\211A@\211\203\" \312\307\313\314\n\"\"\202 \n\203* \n\202. \315 \210+\207" [found-list re found-list-r re-list split-string read-string "RegExp [ && RegExp...]: " nil reftex-cite-regexp-hist "[ 	]*&&[ 	]*" delq mapcar #[(x) "\302\303\304	\"A\"\205\f 	\207" [re x string-match assoc "&entry"] 5] ding] 5])
(defalias 'reftex-extract-bib-file #[(all &optional marked complement) "\302\303!\304!\210\305 \306V\203 \307\310\311\"!\204 \312\313!\210\314 \210\315\316\317\320	\"\"\321\322	\323#c\210\324 \210eb)\207" [file all 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 #[(x) "\203! \303	\"\203 \n\203 \303	\"?\205& \n\205& \303\304	\"A\207\303\304	\"A\207" [marked x complement assoc "&entry"] 3] mapconcat identity "\n\n" save-buffer] 5])
(defalias 'reftex-insert-bib-matches #[(list) "\306>\205 	\307\211\310\311\"\210+\312\313!\207" [reftex-highlight-selection reftex-mouse-selected-face len tmp mouse-face list (mouse both) nil mapcar #[(x) "\304\305\"A\211G\306\307\n\310	%\210\306\307\nS\303	%\210	c\207" [x tmp len mouse-face assoc "&formatted" put-text-property 0 :data] 7] run-hooks reftex-display-copied-context-hook] 3])
(defalias 'reftex-format-names #[(namelist n) "\305G\306U\203 		\307W\203 \310\202M 	\307U\203\" @\202M 	V\2031 @\311\f8P\202M 	^\211S8\311Z\233\305\241\210\312\313\f@#\fA@\nQ*\207" [namelist len last n reftex-cite-punctuation nil 0 1 "" 2 mapconcat identity] 5])
(defalias 'reftex-format-citation #[(entry format) ";\204 \306	\203 \307\310\n\"\203 \311\312!\210\307\313\"\203\314\315\316\"!\317\315\320\"!\321\211\211@A\322 B\323\216@\324U\203R \325\326C\"	\203M \n\202N \327P\202\351@\330U\203i \331\332\333C\"A\206e \334\"\202\351@\335U\203y \332\333C\"@\202\351@\336U\203\211 \325\337C\340#\202\351@\341U\203\233 \342\325\337C\340#!\202\351@\343U\203\252 \325\344C\"\202\351@\345U\203\271 \325\346C\"\202\351@\347U\203\320 \331\332\350C\"A\206\314 \334\"\202\351@\351U\203\340 \332\350C\"@\202\351@\352U\203\357 \325\353C\"\202\351@\354U\203\376 \325\355C\"\202\351@\356U\203\325\357C\"\202\351@\360U\203\325\361C\"\202\351@\362U\203+\325\363C\"\202\351@\364U\203:\325\365C\"\202\351@\366U\203I\325\367C\"\202\351@\370U\203X\325\371C\"\202\351@\372U\203k\373\325\371C\"\374\"@\202\351@\375U\203z\325\376C\"\202\351@\377U\203\213\325\201D C\"\202\351@\201E U\203\236\325\201F C\"\202\351@\201G U\203\261\325\201H C\"\202\351@\201I U\203\306\342\325\201H C\"!\202\351@\201J U\203\331\325\201K C\"\202\351@\201L U\205\351\325\201M C\"*\327\230\203\372\334\224\334\225\202\201N \224\201N \225\201O \fO\321OQ-\202 \307\201P \"\203.\201Q \201R \201S \211$\202\307\201T \"\203E\201Q \327\201S \211$\202.\207" [format reftex-comment-citations reftex-cite-comment-format e b rpl "\\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 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" 111 "organization" 112 "pages" 80 split-string "[- .]+" 115 "school" 117 l n save-match-data-internal entry "publisher" 114 "address" 116 "title" 84 118 "volume" 121 "year" 3 0 "%%" replace-match "%" t "[ ,.;:]*%<"] 5])
(defalias 'reftex-make-cite-echo-string #[(entry docstruct-symbol) "\306\307\"\310\311\")\312J\236\313	A\"\204) \312\314BJBL\210\203p \315	!\316\317	G\314	$\210\316\317\fG\314\f$\210\203^ A\f\230\204p \f\241\210\320\321\322#\210\202p 	\fBAB\241\210\320\321\322#\210\f,\207" [entry key reftex-cite-punctuation reftex-cite-view-format string docstruct-symbol reftex-get-bib-field "&key" (" " " & " " etal.") reftex-format-citation bibview-cache assoc nil copy-sequence set-text-properties 0 put modified t cache cache-entry reftex-cache-cite-echo reftex-docstruct-symbol] 5])
(defalias 'reftex-bibtex-selection-callback #[(data ignore no-revisit) "\306 \307\310\"\311\211\211\312\313\215\210\314!-\207" [data bibtype item bibfile-list key win selected-window reftex-get-bib-field "&key" nil exit (byte-code "\212q\210\306 \211\307=\203 \310 \202; 	\311=\203) \312\313\314\315\311J\"\"!\316\202; \2033 \305 \202; \317 \210\320\321\322\"\210)\203E \323\n!\322\324\325\217\207" [reftex-call-back-to-this-buffer bibtype bibfile-list reftex-docstruct-symbol item reftex-default-bibliography reftex-bib-or-thebib bib reftex-get-bibfile-list thebib reftex-uniquify mapcar cdr reftex-all-assq t ding throw exit nil reftex-visited-files (byte-code "\304	\n?\305%\207" [key bibfile-list reftex-keep-temporary-buffers item reftex-pop-to-bibtex-entry t] 6) ((error (ding))) no-revisit] 7) select-window] 5])
(defalias 'reftex-all-used-citation-keys #[nil "\305 \210\306 \307\211\211\211\212\f\211A@\211\203c \310\311\"q\210\212\214~\210eb\210\312\313\307\314#\203_ \315\316!\317\320	\"\203C \321\322\314\211	$\2022 \323	\324\"	\211A@\211\203& \n\235\204H \nB\202H *\202 )\325 \210\n-\207" [k kk keys file files reftex-access-scan-info reftex-all-document-files nil reftex-get-file-buffer-force mark re-search-forward "^[^%\n]*\\\\\\(bibentry\\|[a-zA-Z]*cite[a-zA-Z]*\\)\\(\\[[^\\]]*\\]\\)?{\\([^}]+\\)}" t match-string-no-properties 3 string-match "%.*\n?" replace-match "" split-string "[, 	\n]+" reftex-kill-temporary-buffers] 5])
#@317 Create a new BibTeX database file 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.
(defalias 'reftex-create-bibtex-file #[(bibfile) "\306 \307 \310\211\211\211\211\211&'\212&\211A&@\211\203p \311\312\"q\210\313 (\314\216\315)!\210\212\214~\210eb\210\316\317\310\320#\203l \321\322!\323\224\322\224b\210\310\324\325\217\210`\f'\235\2039 \n	{\211B\326\f'\"'\2029 ,\202 )\327*!\210\330 \323V\203\213 \331\332\333*\"!\204\213 \334\335!\210\336 \210\337\340\341!\342#c\210eb\210\343 \210\344\345G\".\207" [entry end beg entries key file reftex-all-used-citation-keys reftex-get-bibfile-list nil reftex-get-file-buffer-force mark syntax-table ((set-syntax-table saved-syntax)) set-syntax-table re-search-forward "^[ 	]*@[a-zA-Z]+[ 	]*{\\([^ 	\n]+\\)," t match-string 1 0 (up-list 1) ((error (byte-code "\300\225b\207" [0] 1))) delete find-file-other-window buffer-size yes-or-no-p format "Overwrite non-empty file %s? " error "Abort" erase-buffer mapconcat identity reverse "\n\n" save-buffer message "%d entries extracted and copied to new database" files keys saved-syntax reftex-syntax-table-for-bib bibfile] 9 (#$ . 25704) "FNew BibTeX file: "])