Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/textmodes/reftex-cite.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(require 'reftex)
#@60 The history list of regular expressions used for citations
(defvar reftex-cite-regexp-hist nil (#$ . 426))
#@47 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" (#$ . 539))
(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.")
(defalias 'reftex-with-special-syntax-for-bib '(macro . #[(&rest body) "\301\302\303\304\305BB\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]))
#@100 Return the expanded value of variable `reftex-default-bibliography'.
The expanded value is cached.
(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 (#$ . 1676)])
#@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 #[nil "J\306\307 D	\235\206
	\303\n\236\304\n\236\n>\f\n>\f\2048\2048\303	\236\304	\236	>\f	>
GGV\203I\205N\303\202N\f\205N\304.\207" [reftex-docstruct-symbol docstruct rest bib thebib bibmem bof buffer-file-name thebibmem] 2 (#$ . 2033)])
#@310 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 mater file).
Then this function will return the applicable database files.
(defalias 'reftex-get-bibfile-list #[nil "\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 (#$ . 2448)])
#@289 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.
(defalias 'reftex-pop-to-bibtex-entry #[(key file-list &optional mark-to-kill highlight item return) "\203
\306\307	!\310Q\202\311\307	!\312Qp\313\211\313\211\3142\270\203\245@A\315\f\"\211\204A\316\317\f\"\210
q\210`~\210eb\210\320\n\313\321#\204[b\210\202$\322\224b\210`\203\203\203o\322\225b\210`\323!{b\210q\210\324\314\"\210\325
!\210b\210\326\322!\210 \203\234\327\322\211\224\322\225#\210\324\314\330 \"\210\202$q\210\203\263\316\331	\"\202\267\316\332	\"0.\207" [item key re buffer-conf file buf "\\\\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" pos oldpos file-list mark-to-kill return highlight] 5 (#$ . 3109)])
(defalias 'reftex-end-of-bib-entry #[(item) "\212\3011\203\302\210\303\304!\210\305\224S\202\306\307!\210`0\202%\210d\310`\\^)\207" [item (error) nil re-search-forward "\\\\bibitem\\|\\\\end{thebibliography}" 0 forward-list 1 300] 3])
#@105 Query for regexps for searching entries using DEFAULT as default.
Return a list of regular expressions.
(defalias 'reftex--query-search-regexps #[(default) "\305\306\307\310Q\205\fC	\205!\311\312!\203\312 \202!\313\314\nJ\"A\211\2031\f\235\2031\2024\fB*\315\211\211\316&\317\"\207" [default reftex-mode reftex-docstruct-symbol coll def split-string completing-read "Regex { && Regex...}: [" "]: " fboundp LaTeX-bibitem-list assoc bibview-cache nil reftex-cite-regexp-hist "[ 	]*&&[ 	]*"] 9 (#$ . 4654)])
#@125 Extract bib entries which match regexps from BUFFERS.
BUFFERS is a list of buffers or file names.
Return list with entries.
(defalias 'reftex-extract-bib-entries #[(buffers) "\306\211\306<\203\202C\306\211@\306\211AB\306\211CD\306\211EF\306G\307\310 !G\311G!\211\203A\312\232\203EGC@A\313\314	\206R\315\"\203Z\316\317!\210\313	\315\"\203e\316\320!\210\212\321 H\322\216\f\203\256
\f@B\fA\323B!\203\214\324B!\203\214BA\202\225\325BI?\"AA\204\243\326\327B\"\210\202\311\326\330A\"\210\331A!\204\311\332\333\334\335\336A!!\"!\203\311rAq\210\337\340\211\"\210)Aq\210\341 J\342\216\343K!\210\212eb\210\344	\306\340#\203\247
\3452\243
`D\346\347\306\340#\204\370\350\345\306\"\210`E\351\225b\210\3521\n
\353\354!0\202
\210Db\210\350\345\306\"\210`F\355\356!\227\357\230\2049
\355\356!\227\360\230\2049
\355\356!\227\361\230\2049
`DW\203B
Db\210\350\345\306\"\210E`{@\n\203d
\313@@\"\204\\
\350\345\306\"\210\211A\210\202J
\362\306EF#C\363@BCBC\364\365C\"\203\210
\366C\367C!\"C\370\371C!BCBC\372\373C\"CB\211C
B\2110\210\202\334+\374 \210\202l+
\237L\375\267\202\322
\376
\377\"\202\323
\376
\201M\"\202\323
\376
\201N\"\202\323

.
\207" [re-list first-re rest-re buffers buffer-list found-list 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 #[nil "\301!\207" [#2=#:wconfig 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 #[nil "\301!\207" [saved-syntax 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 448 reverse-year 457)) sort reftex-bib-sort-author entry buffer1 buffer alist key-point start-point end-point default #2# reftex-keep-temporary-buffers saved-syntax reftex-syntax-table-for-bib reftex-sort-bibtex-matches reftex-bib-sort-year reftex-bib-sort-year-reverse] 7 (#$ . 5182)])
#@97 Compare bib entries E1 and E2 by author.
The name of the first different author/editor is used.
(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\202?@;?*\207" [e1 e2 al2 al1 reftex-get-bib-names "author"] 4 (#$ . 7871)])
#@59 Compare bib entries E1 and E2 by year in ascending order.
(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 (#$ . 8209)])
#@60 Compare bib entries E1 and E2 by year in descending order.
(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 (#$ . 8436)])
#@41 Return the alist from a crossref ENTRY.
(defalias 'reftex-get-crossref-alist #[(entry) "\303\304\"A\305\212\214~\210\306\307\310\n!\311Q\305\312#\2051\313\224\3141'\315\316!0\202+\210\202,\210\317\305	`#,\207" [entry start crkey assoc "crossref" nil re-search-forward "@\\w+[{(][ 	\n
]*" regexp-quote "[ 	\n
]*," t 0 (error) up-list 1 reftex-parse-bibtex-entry] 4 (#$ . 8672)])
#@167 Extract bib-entries from the egin{thebibliography} environment.
Parsing is not as good as for the BibTeX database stuff.
The environment should be located in FILES.
(defalias 'reftex-extract-bib-entries-from-thebibliography #[(files) "\306\211\306\211\306\211\306\211'()\204\307\310!\210)\211A)\242\211'\203\212\311'*?\"\211\204:\307\312'\"\210\313\314'\"\210r\nq\210\212\214~\210eb\210\315\316\306\317#\203\206\320\321!\210`\315\322\306\317#\203g\320\323!\210`\203\200	\203\200\324\325\326\327\330\331\332	\"\333\"\"\"\"	b\210\202K+\202\204\222\307\334!\210\335\336 !(\337(!\211\203\247
\340\232\203\253(C\341\342
@\"\203\267\307\343!\210
\211A\242\211\203\320\203\320\344\306\325\345\"\"\202\267\325\346\"\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 #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 #[(x) "\302\303\304	\"A\"\205\f	\207" [re x string-match assoc "&entry"] 5] #[(x) "\301\302!BB\303\304\"B\211\207" [x "&formatted" reftex-format-bibitem reftex-get-bib-field "&key"] 4] file default files reftex-keep-temporary-buffers] 11 (#$ . 9065)])
#@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 #[nil "\301\302!\212\203\303\304@\"\203Ab\210\305\306x\210\307 *\207" [macro reftex-what-macro 1 string-match "cite" "^a-zA-Z0-9" nil reftex-this-word] 3 (#$ . 10738)])
#@95 Return a list with the author or editor names in ENTRY.
If FIELD is empty try "editor" field.
(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 (#$ . 11065)])
#@167 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.
(defalias 'reftex-parse-bibtex-entry #[(entry &optional from to raw) "\306\211\211\211\212\214\f\203#\307\310!q\210\311 \210\312
!\210\313 \210\fc\210\2025~\210#\2035$\2035#$}\210eb\210\314\315\306\316#\203M\317\320\321!\227B\322\320\323!BD\314\324\306\316#\203\357\320\321!\227g\325U\203\205%\203m`\321u\210\202\271\321u\210`\3261}\327\321!0\202\201\210\202\271\210\202\271g\330U\203\261%\203\230`\321u\210\202\235\321u\210`\331\332\306\316#\203\271`\323Zf\333U\204\235\202\271`\314\334\306\321#\210%\203\312`Sf\335U\204\312`\202\314`S&\336	&\")\337\340\"\203\346\341\342\306\316$\202\325\nBB\202M*,\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\\|\\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 " " from to raw stop] 5 (#$ . 11657)])
#@90 Extract the field FIELDNAME from ENTRY.
If FORMAT is non-nil `format' entry accordingly.
(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 (#$ . 12982)])
#@54 Format a BibTeX ENTRY so that it is nice to look at.
(defalias 'reftex-format-bib-entry #[(entry) "\306\307\"\310\311	\312#\313\314\"\313\315\"\313\316\"\313\317\".
\320\267\202v\313\321\"\211/G\322U\203:\313\323\"\202</)\324\313\325\"\312\313\326\"\260\202\221\327\313\330\"\331Q\202\221\332\313\333\"P\202\221\334\313\333\"P\202\221\335\313\336\"\337\313\326\"R\202\221
\340\232\204\210
\341\232\204\210
\342\232\203\220\313\343\344#\202\221\3450\346\n\347\350\211$\351 \203\325\352\322.G\3531.%\210\352\322\nG\3532\n%\210\352\322G\3533%\210\352\322\fG\3534\f%\210\352\3220G\35350%\210.\354\n\324\3240\354\f\355\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" #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("article" 38 "book" 76 "phdthesis" 86 "mastersthesis" 95 "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" key jt extra reftex-label-face reftex-bib-author-face reftex-bib-year-face reftex-bib-title-face reftex-bib-extra-face] 11 (#$ . 13265)])
#@32 Parse a ibitem entry in ITEM.
(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\320B\321	\313QBE*\207" [text key item "" string-match "\\`{\\([^}]+\\)}\\([^]*\\)" match-string 1 2 "[\n
	]\\|[ 	][ 	]+" replace-match " " nil t "\\`[ 	]+" "&key" "&text" "&entry"] 6 (#$ . 14671)])
#@76 Format a ibitem entry in ITEM so that it is (relatively) nice to look at.
(defalias 'reftex-format-bibitem #[(item) "\305\306\"\305\307\"\310\211G\311V\2034\312\313\314\315\"\"\2034\314\316\315\316\224\\#	B\314\317\316\224\\\"\211\202
	B\320\321	\237\322#\323 \203M\324\316G\325\f%\210\n\322\326R+\207" [item lines key text reftex-bib-author-face reftex-get-bib-field "&text" "&key" nil 70 string-match " " substring 60 0 61 mapconcat identity "\n     " reftex-use-fonts put-text-property face "\n\n"] 7 (#$ . 15090)])
#@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 #[nil "\300 \207" [reftex-kill-temporary-buffers] 1] reftex-do-citation] 4 (#$ . 15638) nil])
#@49 This really does the work of `reftex-citation'.
(defalias 'reftex-do-citation #[(&optional arg no-insert format-key) "\306	\n#\f\307 \21145\310\21167\31084\204!\311\312!\2104;\20374\3134BDC5\3104\202:\31484@\315=\203]4\2104A4\316\31749#\211:\313:BDC5)	\204c
\320\321!\2105\211A5\242\2116\203!
;\203\203;\322\3136\"\"\202\210\3236\"7<\314=\204\234<\203\334\324\232\203\334\325\211\310=>?\326\3277?#\211?\203\333\330 @\331\216\332\303\333>T\211>\"!*=\334\335=\336Q\314\2117$7?T?\202\245+A\203
\326\3377\"\203\365\334\340\310\2117$7\202
\326\3417\"\203	
\334\342\310\2117$7\202
\326\3437\"\203
\334\344\314\2117$77c\210\202e\326\3457\"\2031
\346\347!\210\350\351!\210B\203J
\352\353!\203J
C\203J
\354\353\355\3174\"\"\210B\203_
D\203_
8\203_
\356\3574\"\210\320\344!\210E\310\211\223\210\360\361!\210\250\203\211
\351V\203\206
\362\310x\210S\363!\210\202\211
\351u\210\355\3174\".\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 "\\[\\]" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 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 mapc #[(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 reftex-cite-key-separator concat-keys reftex-format-cite-function reftex-cite-prompt-optional-args value nth start save-match-data-internal reftex-cite-cleanup-optional-args reftex-mode reftex-plug-into-AUCTeX reftex-cache-cite-echo reftex-select-return-marker] 6 (#$ . 16972)])
#@139 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.
(defalias 'reftex-figure-out-cite-format #[(arg &optional no-insert format-key) "\306\307!@\310 \311\211\f\203\312\202\214;\203M\313\314\"\203M
\203*
<\204Hh\315\235\2034\316\2026\312g\317\235\203A\316\202CQ\202\214\312\202\214\n9\203b\n\236\203b\320\n\2368\202c\n\211<\203\214\206x\321\316\322\323\324\325#P\"\211\236\203\207	\236A\202\214\326\327	\"\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\\([s*]\\|texts?\\)?\\'" (123 44) #1="" (125 44) 2 reftex-select-with-char "SELECT A CITATION FORMAT\n\n" mapconcat #[(x) "\301\302@@\303V\203\304\202\305A$\207" [x format "[%c] %s  %s" 31 " " #1#] 5] "\n" error "No citation format associated with key `%c'" reftex-cite-key-separator reftex-cite-format-builtin format-key] 8 (#$ . 19031)])
#@53 Call `reftex-citation' with a format selector `?p'.
(defalias 'reftex-citep #[nil "\300\301\302\"\207" [reftex-citation nil 112] 3 (#$ . 20064) nil])
#@53 Call `reftex-citation' with a format selector `?t'.
(defalias 'reftex-citet #[nil "\300\301\302\"\207" [reftex-citation nil 116] 3 (#$ . 20220) nil])
#@51 Offer bib menu and return list of selected items.
(defalias 'reftex-offer-bib-menu #[nil "\306 \307\211\211\211\211\3102b

\311\267\202.\312\313 !\202A\314\315\316\317\320\3213J\"\"!!\202A\203>\322\323!\210\312\324 !\202A\325\326!\211\204J\325\327!\210p45`\307\223\210\330 6\331\216\332 \210\333\334!\210\335\334!\2107\336=\204n\336 \210\3078\337 \210\340\f!\210)\3418\342 \343U\203\207\325\344!\210\3419\345b\210\346:;<\307\347\307&\211@A@\n\204\252\350\310\341\"\210\n\351\267\202 
\350\310\307\"\210\202\215\352\f!\3078\337 \210\340\f!\210)\345b\210\202\215=\203\333\316\353=\237\"\202\334\f\350\310\341\"\210\202\215\354=\203\364\316\353=\237\"\202\365\fB\350\310\341\"\210\202\215\355\f=\"\210\356\350\310\341\"\210\202\215\355\f=\357#\210\356\350\310\341\"\210\202\215\n\360=\204,
\n\361=\203K
=\203<
\354\316\353=\237\"B\202B
	\205B
	C\350\310\341\"\210\202\215\n;\203Z
\n\350\310\341\"\210\202\215\362 \210\202\215*0\203
.\207" [selected-entries data key rtn found-list bibtype 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 23 thebib 30)) 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" reftex-default-bibliography error "No valid bibliography in this document, and no default available" "Sorry, no matches found" current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] delete-other-windows reftex-kill-buffer "*RefTeX Select*" switch-to-buffer-other-window reftex-select-bib-mode erase-buffer reftex-insert-bib-matches t 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 176 114 184 65 205 97 229 101 255 69 271)) reftex-restrict-bib-matches car concat reftex-extract-bib-file "BibTeX database file created" complement 13 return ding reftex-docstruct-symbol reftex-call-back-to-this-buffer reftex-select-return-marker #1# major-mode buffer-read-only truncate-lines reftex-citation-prompt reftex-citation-help reftex-select-bib-map reftex-select-marked] 8 (#$ . 20376)])
#@49 Limit FOUND-LIST with more regular expressions.
(defalias 'reftex-restrict-bib-matches #[(found-list) "\304\305\306\307\310#\311\"\307\211A\242\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 (#$ . 22707)])
#@49 Limit FOUND-LIST with more regular expressions.
(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 (#$ . 23180)])
#@51 Insert the bib matches and number them correctly.
(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 mapc #[(x) "\304\305\"A\211G\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 (#$ . 23809)])
(defalias 'reftex-format-names #[(namelist n) "\305G\306U\203
		\307W\203\310\202M	\307U\203\"@\202M	V\2031@\311\f8P\202M	^\211S8\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])
#@74 Format a citation from the info in the BibTeX ENTRY according to FORMAT.
(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\326C\"	\203M\n\202N\327P\202@\330U\203i\331\332\333C\"A\206e\334\"\202@\335U\203y\332\333C\"@\202@\336U\203\211\325\337C\340#\202@\341U\203\233\342\325\337C\340#!\202@\343U\203\252\325\344C\"\202@\345U\203\271\325\346C\"\202@\347U\203\320\331\332\350C\"A\206\314\334\"\202@\351U\203\340\332\350C\"@\202@\352U\203\357\325\353C\"\202@\354U\203\376\325\355C\"\202@\356U\203

\325\357C\"\202@\360U\203
\325\361C\"\202@\362U\203+
\325\363C\"\202@\364U\203:
\325\365C\"\202@\366U\203I
\325\367C\"\202@\370U\203X
\325\371C\"\202@\372U\203g
\325\373C\"\202@\374U\203z
\375\325\373C\"\376\"@\202@\377U\203\213
\325\201DC\"\202@\201EU\203\236
\325\201FC\"\202@\201GU\203\261
\325\201HC\"\202@\201IU\203\304
\325\201JC\"\202@\201KU\203\327
\325\201LC\"\202@\201MU\203\354
\342\325\201LC\"!\202@\201NU\203\377
\325\201OC\"\202@\201PU\205\325\201QC\"*
\327\230\203 \334\224\334\225\202*\201R\224\201R\225\201S\201T\f#
\201S\"Q-\202\307\201U\"\203Y\201V\201W\201X\211$\202@\307\201Y\"\203p\201V\327\201X\211$\202Y\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 #[nil "\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" 78 "note" 111 "organization" 112 "pages" 80 split-string "[- .]+" 115 l n save-match-data-internal entry "school" 117 "publisher" 85 "url" 114 "address" 116 "title" 84 118 "volume" 121 "year" 3 substring 0 "%%" replace-match "%" t "[ ,.;:]*%<"] 5 (#$ . 24560)])
#@63 Format a bibtex ENTRY for the echo area and cache the result.
(defalias 'reftex-make-cite-echo-string #[(entry docstruct-symbol) "\306\307\"\310\311\")\312
J\236\313	A\"\204)
\312\314B
JBL\210\203x\315	!\316\317	G\314	$\210\316\317\fG\314\f$\210\203^A\f\230\204x\f\241\210\320\321\322#\210\202x	\fB\211AB\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 #1=#:v #2=#:v] 6 (#$ . 26922)])
#@196 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.
(defalias 'reftex-bibtex-selection-callback #[(data ignore no-revisit) "\306 \307\310\"\311\211\211\3122irq\210\313 \211\314\267\2027\315 \202J\316\317\320\321\322J\"\"!\323\202J\203B\324 \202J\325 \210\326\312\311\"\210)\203T\327!\3301e\331\f?\323\n%0\202h\210\325 0\210\332
!-\207" [data bibtype item bibfile-list key win 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 32 thebib 38)) reftex-get-bibfile-list reftex-uniquify mapcar cdr reftex-all-assq thebib t reftex-default-bibliography ding throw reftex-visited-files (error) reftex-pop-to-bibtex-entry select-window reftex-call-back-to-this-buffer reftex-docstruct-symbol no-revisit reftex-keep-temporary-buffers] 7 (#$ . 27637)])
(defalias 'reftex-all-used-citation-keys #[nil "\305 \210\306 \307\211\211\211r\f\211A\242\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\242\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])
#@76 Return a list of BibTeX @string references that appear as values in ALIST.
(defalias 'reftex-get-string-refs #[(alist) "\301\302\303\304\301\305\"\"\"\207" [alist reftex-remove-if #[(x) "\301\302\"\207" [x string-match "^\\([\"{]\\|[0-9]+$\\)"] 3] mapcar cdr #[(pair) "\301\302@\"\207" [pair string-match "^&"] 3]] 7 (#$ . 29334)])
#@573 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.
(defalias 'reftex-create-bibtex-file #[(bibfile) "\306 \307 \310\211\211\211\211\211\211\211/012r1\3100\2113\203\3603@0\3110\312\"q\210\313 4\314\216\3155!\210\212\214~\210eb\210\316\317\310\320#\203\346\321\322!/\323\224\322\224b\210\3241c\325\322!0\202g\210\323\225b\210`/2\235\203D\f{\211
B\326/2\"2\327\310\f#6\330\3316\"A\2117\203\26078\33282\"\203\2502\210\202\25782B2)*\327\310\f\320$9\3339!\211:\310;\2113\203\3423@\211;	\235\204\331;	B3A\2113\204\311,\202D,3A\2113\204&+	\203h
r1\3100\2113\203g
3@0\3110\312\"q\210\313 4\334\216\3155!\210\212\214~\210eb\210\316\335\310\320#\203]
\321\322!/\323\224\322\224b\210\3361>
\325\322!0\202B
\210\323\225b\210`/	\235\203
\f{\211B\326/	\"\202
,3A\2113\204

+\337<!\210\340 \323V\203\202
\341\342\343<\"!\204\202
\344\345!\210\346 \210=\203\220
=\347\261\210\350\351\352!\347#c\210\203\240
\353c\210\350\351\352
!\347#c\210>\203\264
\347>\261\210eb\210\354 \210\355\356
G\".\n\207" [string-entries string-keys entry end beg entries reftex-all-used-citation-keys reftex-get-bibfile-list nil reftex-get-file-buffer-force mark syntax-table #[nil "\301!\207" [saved-syntax 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 #[nil "\301!\207" [saved-syntax 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" key file files keys --dolist-tail-- saved-syntax reftex-syntax-table-for-bib attr-list xref-key #1=#:var raw-fields string-fields skey bibfile reftex-create-bibtex-header reftex-create-bibtex-footer] 11 (#$ . 29676) "FNew BibTeX file: "])
(provide 'reftex-cite)