WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/textmodes
Viewing File: /usr/share/emacs/24.3/lisp/textmodes/reftex-cite.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:49 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/reftex-cite.el
;;; in Emacs version 24.3.1
;;; 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.

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


(byte-code "\300\301!\210\302\303!\207" [provide reftex-cite require reftex] 2)
(defvar reftex-cite-regexp-hist nil)
(defconst reftex-citation-prompt "Select: [n]ext [p]revious [r]estrict [ ]full_entry [q]uit RET [?]Help+more")
(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\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 "}" "@\\(?:\\w\\|\\s_\\)+[ 	\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8\306\2119:\306\211;<\306\211=>\306?\307\310 !?\311\312\313\314?\315R@\205Q\316\317!\203J\317 \202Q\320\321AJ\"A\306\211\211\322&\323\"\211\203d\324\232\203h?C@A\325\326	\206u\327\"\203}\330\331!\210\212\332 B\333\216\f\203\n\f@:\fA\334:!\203\244\335:!\203\244:9\202\255\336:C?\"99\204\273\337\340:\"\210\202\341\337\3419\"\210\3429!\204\341\343\344\345\346\3479!!\"!\203\341r9q\210\350\351\211\"\210)9q\210\352 D\353\216\354E!\210\212eb\210\355	\306\351#\203\356\357\215\210\202\364+\360 \210\202\204+
\237F\361=\203\362
\363\"\2029F\364=\203*\362
\365\"\2029F\366=\2038\362
\367\"\2029
.
\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 "[ 	]*&&[ 	]*" (#1="") string-match "\\`[ 	]*\\'" #1# error "Empty regular expression" current-window-configuration ((set-window-configuration #2=#:wconfig)) 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 ((set-syntax-table saved-syntax)) set-syntax-table re-search-forward 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
]\\)[ 	]*@\\(\\(?:\\w\\|\\s_\\)+\\)[ 	\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 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 #2# reftex-keep-temporary-buffers saved-syntax reftex-syntax-table-for-bib 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\212\31103?\"\211\204:\307\3120\"\210\313\3140\"\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 !1\331\337\340\3411\342R4\205\267\343\344!\203\260\344 \202\267\345\3465J\"A\306\211\211\347&\350\"\211\203\312
\351\232\203\3161C\352\353
@\"\203\332\307\354!\210
\211A@\211\203\363\203\363\355\306\325\356\"\"\202\332\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 #1="" 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 "[ 	]*&&[ 	]*" (#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!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 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\320\321!\227g\325U\203z*\203m`\321u\210\202\256\321u\210`\306\326\327\217\210\202\256g\330U\203\246*\203\215`\321u\210\202\222\321u\210`\331\332\306\316#\203\256`\323Zf\333U\204\222\202\256`\314\334\306\321#\210*\203\277`Sf\335U\204\277`\202\301`S+\336	+\")\337\340\"\203\333\341\342\306\316$\202\312\337*\203\345\343\202\346\344\"\203\362\341\345\306\316$\337*\203\374\346\202\375\347\"\203	\341\345\306\316$\nBB\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 (up-list 1) ((error)) 34 search-forward "\"" 92 "[ 	]*[\n
,}]" 44 buffer-substring-no-properties string-match "[\n	
]\\|[ 	][ 	]+" replace-match " " "^[ 	]+" "^[ 	{]+" "" "[ 	]+$" "[ 	}]+$" from to raw stop] 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\"1
\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2\350\n\351\352\211$\353 \203\332\354\3551G\35631%\210\354\355\nG\3564\n%\210\354\355G\3565%\210\354\355\fG\3566\f%\210\354\3552G\35672%\2101\357\n\322\3222\357\f\360\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 "\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\314\315\224\\O	B\316\315\224\\\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 (#$ . 13455) nil])
(defalias 'reftex-do-citation #[(&optional arg no-insert format-key) "\306	\n#\f\307 \21145\310\21167\31084\204!\311\312!\2104;\20374\3134BDC5\3104\202:\31484@\315=\203]4\2104A4\316\31749#\211:\313:BDC5)	\204c\320\321!\2105\211A5@\2116\203!;\203\203;\322\3136\"\"\202\210\3236\"7<\314=\204\234<\203\334\324\232\203\334\325\211\310=>?\326\3277?#\211?\203\333\330 @\331\216\332\303\333>T\211>\"!*=\334\335=\336Q\314\2117$7?T?\202\245+A\203\326\3377\"\203\365\334\340\310\2117$7\202\326\3417\"\203	\334\342\310\2117$7\202\326\3437\"\203\334\344\314\2117$77c\210\202e\326\3457\"\2031\346\347!\210\350\351!\210B\203J\352\353!\203JC\203J\354\353\355\3174\"\"\210B\203_D\203_8\203_\356\3574\"\210\320\344!\210E\310\211\223\210\360\361!\210\250\203\211\351V\203\206\362\310x\210S\363!\210\202\211\351u\210\355\3174\".\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 ((byte-code "\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])
(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\202CQ\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\\'" (123 44) #1="" (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 " " #1#] 5] "\n" error "No citation format associated with key `%c'" reftex-cite-key-separator 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 (#$ . 17621) nil])
#@53 Call `reftex-citation' with a format selector `?t'.
(defalias 'reftex-citet #[nil "\300\301\302\"\207" [reftex-citation nil 116] 3 (#$ . 17777) 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 6\326\216\327 \210\330\331!\210\332\331!\2107\333=\204_\333 \210\3248\334 \210\335!\210)\3368\337 \340U\203x\321\341!\210\3369\342b\210\343:;<\324\344\324&\211=@>=A@?>\204\240\345\346\336\"\210>\347=\203\257\345\346\324\"\210\202~>\350=\203\313\351!\3248\334 \210\335!\210)\342b\210\202~>\352=\203\353@\203\340\314\353@\237\"\202\341A\345\346\336\"\210\202~>\354=\203
\355@\203\314\353@\237\"\202BA\345\346\336\"\210\202~>\356=\203%\357@\"\210\360A\345\346\336\"\210\202~>\361=\203>\357@\362#\210\360A\345\346\336\"\210\202~>\363=\204L>\364=\203n@\203\\\355\314\353@\237\"B\202d?\205d?CA\345\346\336\"\210\202~>;\203\200>A\345\346\336\"\210\202~\365 \210\202~" [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 current-window-configuration ((set-window-configuration #1=#:wconfig)) 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 done 103 114 reftex-restrict-bib-matches 65 car 97 concat 101 reftex-extract-bib-file "BibTeX database file created" 69 complement 13 return ding #1# major-mode buffer-read-only truncate-lines reftex-citation-prompt reftex-citation-help reftex-select-bib-map rtn key data reftex-select-marked selected-entries] 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 mapc #[(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@\201EU\203\236\325\201FC\"\202\351@\201GU\203\261\325\201HC\"\202\351@\201IU\203\306\342\325\201HC\"!\202\351@\201JU\203\331\325\201KC\"\202\351@\201LU\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\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\211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 #1=#:v #2=#:v] 6])
(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 "r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r\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])
#@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 (#$ . 26108)])
#@570 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.

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0123r2\3101\2114\203\3454@1\3111\312\"q\210\313 5\314\216\3156!\210\212\214~\210eb\210\316\317\310\320#\203\333\321\322!0\323\224\322\224b\210\310\324\325\217\210`03\235\203D\f{\211
B\32603\"3\327\310\f#7\330\3317\"A\2118\203\24589\33293\"\203\2353\210\202\24493B3)*\327\310\f\320$:\333:!\211;\310<\2114\203\3274@\211<	\235\204\316<	B4A\2114\204\276,\202D,4A\2114\204&+	\203Rr2\3101\2114\203Q4@1\3111\312\"q\210\313 5\334\216\3156!\210\212\214~\210eb\210\316\335\310\320#\203G\321\322!0\323\224\322\224b\210\310\336\337\217\210`0	\235\203\f{\211B\3260	\"\202,4A\2114\204\366+\340=!\210\341 \323V\203l\342\343\344=\"!\204l\345\346!\210\347 \210>\203z>\350\261\210\351\352\353!\350#c\210\203\212\354c\210\351\352\353
!\350#c\210?\203\236\350?\261\210eb\210\355 \210\356\357
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 ((set-syntax-table saved-syntax)) set-syntax-table re-search-forward "^[ 	]*@\\(?:\\w\\|\\s_\\)+[ 	\n
]*[{(][ 	\n
]*\\([^ 	\n
,]+\\)" t match-string 1 0 (up-list 1) ((error (byte-code "\300\225b\207" [0] 1))) delete reftex-parse-bibtex-entry assoc "crossref" memql reftex-get-string-refs ((set-syntax-table saved-syntax)) "^[ 	]*@[Ss][Tt][Rr][Ii][Nn][Gg][ 	]*{[ 	]*\\([^ 	
\n]+\\)" (up-list 1) ((error (byte-code "\300\225b\207" [0] 1))) 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 (#$ . 26450) "FNew BibTeX file: "])
F1l3 Manager
