%PDF-
%PDF-
Mini Shell
Mini Shell
;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)
(defalias 'reftex-with-special-syntax '(macro . #[(&rest body) "\301\302\303\304\305\301\306BBE\307BBE\207" [body let ((saved-syntax (syntax-table))) unwind-protect progn (set-syntax-table reftex-syntax-table) ((case-fold-search nil)) ((set-syntax-table saved-syntax))] 8]))
#@21 Re-parse this file.
(defalias 'reftex-parse-one #[nil "\301\302\303!)\207" [reftex-enable-partial-scans t reftex-access-scan-info (4)] 2 (#$ . 702) nil])
#@27 Re-parse entire document.
(defalias 'reftex-parse-all #[nil "\300\301!\207" [reftex-access-scan-info (16)] 2 (#$ . 863) nil])
#@71 Do a document rescan.
When allowed, do only a partial scan from FILE.
(defalias 'reftex-do-parse #[(rescan &optional file) "\306\267\202 \307\202 \310\202 \307\202 \310\202 \310 \204 \310\nJ\311 \312\f! \313\314\f!! ':\2066 \315 :\312:! ;\316 \236 \317 \236A <\320\211 = \320\211 > ?\307=\203o \321:D \235\203m \322:D \235\204o \310;
\230\203x \310\323\267\202\213 :\206\216 \f\202\216 \f\202\216 \324\325!=\310\232\203\231 \320<\326\327\321=D #@\326\330\321=D #\331@\"\210\310=\203\301 \332\333!\210\202\307 \332\334=\"\210\335 A\336\216\337B!\210\320 C\340 D\341\216\212\342\216\343=>'#>.\332\344!\210>\237>\345 >\310=#>\346>\236\204\f\346\320B>B>\347>\236\204 \347'B>B>\316>\236\204-\316AB>B>\321>\236>> E\321EA\236 FE\205DF?? (\350>\236\206Z\350(D>B\211>@\211 G(\320B\241\210,<\203p\351<\352\"<\317>\236\211 H\203\203H<\241\210\202\214\317<B>B>)\353>\236\204\322\354\355>\" I\356\357I\" J\360\320J\" J\360\320\356\361J\"\"\211 K\203\303\362\363\364K\365#\366Q\202\304\367 L\353JLE>B>-\n>L\210\370\n\371\307#.\f\207" [rescan reftex-enable-partial-scans reftex-docstruct-symbol old-list master true-master #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 6 1 10 (4) 14 (16) 18)) t 1 reftex-TeX-master-file file-truename file-name-as-directory file-name-directory buffer-file-name bibview-cache index-tags nil bof eof #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 126 1 135)) error "This should not happen (reftex-do-parse)" reftex-last-assoc-before-elt toc appendix reftex-init-section-numbers message "Scanning entire document..." "Scanning document from %s..." syntax-table #[nil "\301!\207" [saved-syntax set-syntax-table] 2] set-syntax-table current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] #[nil "\300 \207" [reftex-kill-temporary-buffers] 1] reftex-parse-from-file "Scanning document... done" reftex-replace-label-list-segment label-numbers master-dir is-multi sort string< xr reftex-all-assq xr-doc mapcar #[(x) "\303\3048\305 #\211\203 A@\nB\207\306\307\3048\"\210\310\207" [x master-dir tmp reftex-locate-file 2 "tex" message "Can't find external document %s" nil] 4] delq car "\\`\\(" mapconcat identity "\\|" "\\)" "\\\\\\\\\\\\" put modified file true-file reftex--index-tags from-file docstruct tmp reftex-active-toc saved-syntax reftex-syntax-table case-fold-search #1# bof1 bof2 entry index-tag-cell allxr alist allprefix regexp] 6 (#$ . 995)])
(defalias 'reftex-everything-regexp #[nil "\203 \207\n\207" [reftex-support-index reftex-everything-regexp reftex-everything-regexp-no-index] 1])
#@143 Return a list of all files belonging to the current document.
When RELATIVE is non-nil, give file names relative to directory
of master file.
(defalias 'reftex-all-document-files #[(&optional relative) "J\306\307 !\310\311\n!P\312\211 \312 \313\314 \"\211\203E
A@
>A\203= \315 \"\203= \316\317\225\"\fB\202 \f\237.\207" [reftex-docstruct-symbol all master-dir re file-list tmp file-name-directory reftex-TeX-master-file "\\`" regexp-quote nil assoc bof string-match substring 0 file relative] 4 (#$ . 3748)])
#@53 Scan the buffer for labels and save them in a list.
(defalias 'reftex-parse-from-file #[(file docstruct master-dir) "\306 \307\310\211\211\311\312\310\211\211\211 @ A B C D\3132^\314E\315F#\211B\204; \316E!\211\203; \317!BB\204N \320EDGBG\321\313\310\"\210\212\322\323E\"\210\324BH\325=?\"\211q\210\317 E\326EDGBG\327 I\330\216\331J!\210\310 K\212\214~\210\311b\210\332D\310\325#\203\373\311\225\203\343 L\203\322 \333\334\307!\307\335#\336\230\204\322 \337\340!\203\316 \337\341!\203\316 \342 M\343\216\340 *L\235\206\312 \342 M\344\216\341 *L\235?\202\317 \325\203\204 \345\334\311!EC#GBG\202\204 \346\225\2036\307\224C`Sf\347=\203\367 \350u\210NE!\211\203\204 Cf\351U\352\353E\"=\203\204 \354 8\f
^
\fU\203*\322\355\356
O\"@\357 8#\210 GBG P\202\204 \335\225\203X\334\335!@\360\310\361\362Q\"\"\204\204 \363@GF#G\202\204 \364\225\203m\365\310\325\"\210\366\325BGBG\202\204 \367\225\203\242R\203\204 \370E!\211\203\204 \nA@\211 ST\235\203\221T\202\226STB)T\nGBG\202\204 \371\225\203\362\212\334\371! U\371\225b\210\342 M\372\216\373\374U!!* V\375UW\"A@\211 X\203\325\307\225b\210\202\334\371\225b\210\376 \210\345VEC\310\211%\211 YGBG-\202\204 \377\201Z !\210\202\204 \201[ F!\211A\203\201\\ ABGBG\311b\210\332\201] \310\325#\203*\201^ EBGBG\311b\210\332\201_ \310\325#\203K\201` \334\201a !\334\346!EGBG\202-\201b EDGBG.\201c !0\210G. \207" [buf next-buf index-entry toc-entry highest-level level reftex-everything-regexp 0 nil 1 100 exit reftex-locate-file "tex" reftex-get-buffer-visiting buffer-file-name file-error throw message "Scanning file %s" reftex-get-file-buffer-force t bof syntax-table #[nil "\301!\207" [saved-syntax set-syntax-table] 2] set-syntax-table re-search-forward substring reftex-match-string 7 "\\label{" fboundp TeX-current-macro LaTeX-current-environment match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] reftex-label-info 3 92 -1 37 string-suffix-p ".dtx" 5 "Scanning %s %s ..." rassoc 6 delq mapcar #[(x) "\302 \"\207" [x include-file string-match] 3] reftex-parse-from-file 9 reftex-init-section-numbers appendix 10 reftex-index-info 11 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] reftex-no-props reftex-nth-arg-wrapper assoc reftex-move-over-touching-args error include-file tmp file-found bound regexp file master-dir docstruct reftex-keep-temporary-buffers saved-syntax reftex-syntax-table case-fold-search reftex-label-ignored-macros-and-environments save-match-data-internal reftex-section-info-function reftex-section-levels-all reftex-active-toc reftex-no-include-regexps reftex-support-index #1=#:va reftex--index-tags mac label reftex-env-or-mac-alist typekey entry "This should not happen (reftex-parse-from-file)" reftex-locate-bibliography-files bib "\\(\\`\\|[\n
]\\)[ ]*\\\\begin{thebibliography}" thebib "[\n
][ ]*\\\\externaldocument\\(\\[\\([^]]*\\)\\]\\)?{\\([^}]+\\)}" xr-doc 2 eof reftex-kill-temporary-buffers] 12 (#$ . 4288)])
#@61 Return non-nil if we are using biblatex rather than bibtex.
(defalias 'reftex-using-biblatex-p #[nil "\301\300!\203\n \302\235\207\212\303\304\305\306#)\207" [TeX-active-styles boundp "biblatex" re-search-forward "^[^%\n]*?\\\\usepackage.*{biblatex}" nil t] 4 (#$ . 7444)])
#@59 Scan buffer for bibliography macros and return file list.
(defalias 'reftex-locate-bibliography-files #[(master-dir &optional files) "\2045 \212eb\210\304 \305 \2034 \306\307\310\311 \312#\313Q\314\305#\2034 \315\316\317\320!\321\"\"\n\204
\314\211\204 +\205B \322\323\"\324\314\"\207" [files again using-biblatex reftex-bibliography-commands reftex-using-biblatex-p t re-search-forward "\\(^\\)[^%\n
]*\\\\\\(" mapconcat identity "\\|" "\\)\\(\\[.+?\\]\\)?{[ ]*\\([^}]+\\)" nil append split-string reftex-match-string 4 "[ \n
]*,[ \n
]*" mapcar #[(x) " \235\206
\304\305\306\307\n\"\"?\205 \310\311 #\207" [x reftex-bibfile-ignore-list reftex-bibfile-ignore-regexps master-dir delq nil mapcar #[(re) "\302 \"\207" [re x string-match] 3] reftex-locate-file "bib"] 5] delq] 7 (#$ . 7725)])
#@215 Replace the segment in OLD which corresponds to INSERT.
Works with side effects, directly changes old.
If ENTIRELY is t, just return INSERT.
This function also makes sure the old toc markers do not point anywhere.
(defalias 'reftex-replace-label-list-segment #[(old insert &optional entirely) "\203\f \306 \211G\"\210\n\207 \n@A@ \307\fD \235 \310\fD \235 \f\311
\f\203,
\2043 \312\313!\210\202U \306\f\211G
GZ\"\210 G\fGZ\211
\233\nA\241\210 GS \233
A\241\210 -\207" [entirely old insert new file eof-list reftex-silence-toc-markers eof bof nil error "Cannot splice" bof-list n] 5 (#$ . 8541)])
#@115 Return a section entry for the current match.
Careful: This function expects the match-data to be still in place!
(defalias 'reftex-section-info #[(file) "\306 \307\224S\310\223\311\307!\312 \313\216\314\315 \"\205 \316\317 \"*\320 \f\"A\211 9\2034 \312 \321\216
*\2025
$\307\225f\322U\211 %\206F $\323W &\324$! $\325$&\" '\312 \326\216\212\327 !+ (\330\307\224Sd\331\323\225(G\317#^\" )\332(! *\333+$_\334\",A@\205\214 '\335P \203\230 \336 !\337P\202\231 \340*R*\341\342*-$')\343!\257 .\f\207" [marker macro save-match-data-internal prefix reftex-section-levels-all level-exp make-marker 3 nil reftex-match-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "begin{\\([^}]+\\)}" match-string 1 assoc #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 42 0 abs reftex-section-number #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] reftex-context-substring buffer-substring-no-properties + reftex-nicify-text make-string 32 " " capitalize ": " "" toc "toc" marker-position level star unnumbered section-number text1 literal text reftex-level-indent reftex-label-menu-flags file] 11 (#$ . 9153)])
#@156 When index support is turned off, ask to turn it on and
set the current prefix argument so that `reftex-access-scan-info'
will rescan the entire document.
(defalias 'reftex-ensure-index-support #[(&optional abort) "\203 \303\207\304\305!\203 \306\307\211\207\n\203 \310\311!\207\312\311!\210\313 \210\314\315!\207" [reftex-support-index current-prefix-arg abort t y-or-n-p "Turn on index support and rescan entire document? " demanded (16) error "No index support" message ding sit-for 1] 2 (#$ . 10402)])
(defalias 'reftex-index-info-safe #[(file) "\304 \305\216\306 !\210\307\310 !+\207" [saved-syntax reftex-syntax-table case-fold-search file syntax-table #[nil "\301!\207" [saved-syntax set-syntax-table] 2] set-syntax-table nil reftex-index-info] 2])
#@114 Return an index entry for the current match.
Careful: This function expects the match-data to be still in place!
(defalias 'reftex-index-info #[(file) "\3062\344 \307\310!\310\224\310\225\311 \"\206 \312\306\313\" \314\f8 \315
!\205-
\205- \312\306\313\" \fA@ !\316\f8 \"!;\203D !\202\\ !\250\203[ \nb\210\317!\320\f8\"\206\\ \321\202\\ \321 #\nb\210\317\322\f8\320\f8\"\206m \323 $\nb\210\324 \210` %\325\313w\210` & b\210\326\313x\210` '\327'&\" (\330)$\"\205\235 \331\224T *\332$\331*# +\"\203\265 \"+P\202\267 +\211 ,\227 -\333\334\335,.\"\336# /%b\210\337#(0 $,/-*\257\n.0\207" [macro bom boa reftex-index-macro-alist entry exclude exit reftex-match-string 10 assoc throw nil 3 fboundp 2 reftex-nth-arg 6 "idx" 5 "" reftex-move-over-touching-args "^ \n
" "^
\n" buffer-substring-no-properties string-match 0 substring mapconcat identity split-string " ! " index test-dummy itag prefix index-tag arg end-of-args end-of-context begin-of-context context reftex-index-key-end-re key-end rawkey key sortkey reftex-index-level-re showkey file] 11 (#$ . 11174)])
#@73 Get about one line of useful context for the label definition at point.
(defalias 'reftex-short-context #[(env parse &optional bound derive) ":\203 \203 A\202 @\306\204 \212\307 )\202\306 \310=\203n \n\311\230\203Y \212\312 e\310#\203@ \313\225\203@ \314\225b\210\307 \202U \f\203T \315\316\317\f8\"\210\320\321\317\f8\"\202U \322)\202\306 \212
b\210\323\n!\324=\204h \325 \210\307 )\202\306 ;\203\213 \212\312 \310#\203\206 \314\225b\210\307 \202\207 \326)\202\306 \250\203\246 \212
b\210\327\330\331\n!\"8\")\206\306 \332\202\306 \333!\203\305 \212\3341\270 \n!0\202\301 \"\335\336\"A\"))\202\306 \337!\207" [parse derive env reftex-section-or-include-regexp reftex-active-toc reftex-default-context-position reftex-nicify-text reftex-context-substring t "section" re-search-backward 2 0 string-match "{\\([^}]*\\)" 7 match-string 1 "SECTION HEADING NOT FOUND" string-to-char 92 reftex-move-over-touching-args "NO MATCH FOR CONTEXT REGEXP" reftex-nth-arg 6 assoc "" fboundp (error) format "HOOK ERROR: %s" "INVALID VALUE OF PARSE" bound reftex-env-or-mac-alist error-var] 7 (#$ . 12278)])
#@162 Return the docstruct entry above point.
Actually returns a cons cell in which the cdr is a flag indicating
if the information is exact (t) or approximate (nil).
(defalias 'reftex-where-am-I #[nil "J\306\307\211\211 \212 \204\277\fT\310\311 \307\312#\211\2049 \313\314 D
\235@\206\272\315\211?\206\272\313
\236\206\272\316\202\272\317\225\203H \320\321\317!J\"\202\272\322\225\203\322 \322\224Sb\210\313\314 D
\235 *\323\314 D*\235@ +\307 ,*\203\314 +*@=\204\314 *@@\324=\203\302 \314 \322*@8\230\203\302 `\325\326*@8!\203\236 \327\326*@8!\206\243 \330*@8\232\203\262 *@,\307*\202\302 \331\332\333*@8!!\203\302 *@*\211A*\210\202g ,+\202\272\333\225\203\351 \323\334\321\333!\335\336
\236A#D
\235@\202\272\337\225\203\365 \340J\236\202\272\341\225\203\236-\205\272\212\342\307!) .\313\314 D
\235 *\323\314 D*\235@ +\307\211 / 0\307 1\306 2*\203w+*@=\204w*@@\343=\203n\315.8\315*@8\230\203n2T2\344`\326*@8Z!/0\203e/0W\203n/0*@1*A\211*\204)2\317U\204\205/\306\232\203\2121\202\2312\317V\203\230\3151\202\231\307.\202\272\345\225\203\267\212\345\225b\210\320\346\347\321\345!!!J\")\202\272\350\351!\211\203 ) \204\314\n\203\314\n\315 \f-\317=B\207" [reftex-docstruct-symbol found rtn-if-no-other rtn cnt docstruct 0 nil re-search-backward reftex-everything-regexp t bof buffer-file-name 2 corrupted 1 assoc reftex-match-string 3 eof toc markerp 4 marker-position 8 looking-at reftex-make-regexp-allow-for-ctrl-m 7 reftex-locate-file "tex" master-dir 9 appendix 10 reftex-index-info-safe index abs 11 reftex-no-props reftex-nth-arg-wrapper error "This should not happen (reftex-where-am-I)" list endelt rtn1 reftex-support-index index-info dist last-dist last n] 7 (#$ . 13397)])
#@70 Hook to handshake with RefTeX after something new has been inserted.
(defalias 'reftex-notice-new #[(&optional n force) "\3061t\3072r\204 \310\307\311\"\210\312 \210 J\311\211 \311\211 &\311\211 ' (\311\211 ) *\212\313\314 \311\315+\2068 \316$\205o\317 \211\204H \310\307\311\"\210,\204W A\204W \310\307\311\"\210 @\n>\211\204e \310\307\311\"\210\320\321 @\n#-\320\304 @\n# @@\304=\203\204 \322\311\315\"\210\202\212 \322-\f\"\210\323\314 \311\315#\205o\316\225\203\260 \324\325\316!\" .
\211 /./AB\241*\202o\326\225\203O\326\225f\327U'\330\331 !&\332&8(
\211 0&0AB\241\210)1A@\204\341 \310\307\311\"\210
A\321
A\236
>\211\205o
@\211&\205o\332&8(Y\205o\333\334\335&8\"'\336&8*\337\332&8'\")\333\340*\"\203\344 \f\2045\341\342\336!!\343Y\2035\310\307\311\"\210&AA\211 2\342\316*\")\342\326*\"Q\240\210)\202\344 \344\225\205o3\205o\345!\211&\205o
\211 4&4AB\241).\n00\207\210\311\207" [reftex-mode reftex-docstruct-symbol docstruct here-I-am appendix tail (error) exit throw nil reftex-access-scan-info re-search-backward reftex-everything-regexp t 1 reftex-where-am-I reftex-last-assoc-before-elt toc reftex-init-section-numbers re-search-forward reftex-label-info reftex-match-string 3 42 reftex-section-info buffer-file-name 5 string-match "\\*" 6 2 reftex-section-number "\\`\\([ ]*\\)\\([.0-9A-Z]+\\)\\(.*\\)" string-to-char match-string 65 10 reftex-index-info-safe entry star level section-number context n force reftex-active-toc #1=#:v #2=#:v #3=#:v reftex-label-menu-flags #4=#:c reftex-support-index #5=#:v] 7 (#$ . 15166)])
#@196 Assuming that we are in front of a macro argument,
move backward to the closing parenthesis of the previous argument.
This function understands the splitting of macros over several lines
in TeX.
(defalias 'reftex-move-to-previous-arg #[(&optional bound) "h\302>\206 \203 \303\304 \305#\203 \306\224Tb\210\305\207\307\207" [reftex-allow-detached-macro-args bound (93 125) re-search-backward "[]}][ ]*[\n
]?\\([ ]*%[^\n
]*[\n
]\\)*[ ]*\\=" t 0 nil] 4 (#$ . 16769)])
(put 'reftex-move-to-previous-arg 'byte-optimizer 'byte-compile-inline-expand)
#@53 Call `reftex-what-macro' with special syntax table.
(defalias 'reftex-what-macro-safe #[(which &optional bound) "\305 \306\216\307 !\210\310\311 \f\"+\207" [saved-syntax reftex-syntax-table case-fold-search which bound syntax-table #[nil "\301!\207" [saved-syntax set-syntax-table] 2] set-syntax-table nil reftex-what-macro] 3 (#$ . 17325)])
#@811 Find out if point is within the arguments of any TeX-macro.
The return value is either ("\macro" . (point)) or a list of them.
If WHICH is nil, immediately return nil.
If WHICH is 1, return innermost enclosing macro.
If WHICH is t, return list of all macros enclosing point.
If WHICH is a list of macros, look only for those macros and return the
name of the first macro in this list found to enclose point.
If the optional BOUND is an integer, bound backwards directed
searches to this point. If it is nil, limit to nearest \section -
like statement.
This function is pretty stable, but can be fooled if the text contains
things like \macro{aa}{bb} where \macro is defined to take only one
argument. As RefTeX cannot know this, the string "bb" would still be
considered an argument of macro \macro.
(defalias 'reftex-what-macro #[(which &optional bound) "\204 \306 \210\3072 \204 \310\307\311\"\210\n\206! \212\312\311\313#\210`)\311\211\211\211\211\211 \214\212e\n]d}\210\3141J \311 !\315\316!\210)\3170\202N \210\202\203\313\320\nh\321>\206t \"\203s \312\322\n\317#\203s \320\224Tb\210\317\202t \311)\203\234 \3231\210 \311 !\324 \210)\3170\202\212 \210\311\203\234 g\325=\203\226 \fT
T\202U ` g\325U\204\253 g\326U\203\f\312\327\311\317#\203\f\330\320! \331\332!\203\306 \330\320!
S\333 #\"\211\203\340
\334 8\206\331 \335V\203\340 \311 \203\f \317=\203\367 `B B \202\f \313=\204 \235\203\f\310\307 `B\"\210 b\210\2029 ) \237.0\207" [reftex-section-regexp which bound entry cnt-opt cnt reftex-compile-variables exit throw nil re-search-backward 1 (error) up-list -1 t 0 (93 125) "[]}][ ]*[\n
]?\\([ ]*%[^\n
]*[\n
]\\)*[ ]*\\=" (error) backward-sexp 91 123 "\\\\[*a-zA-Z]+\\=" reftex-match-string looking-at "\\\\begin{[^}]*}" assoc 4 100 cmd cmd-list pos forward-sexp-function reftex-allow-detached-macro-args reftex-env-or-mac-alist] 7 (#$ . 17677)])
#@588 Find out if point is inside a LaTeX environment.
The return value is (e.g.) either ("equation" . (point)) or a list of
them.
If WHICH is nil, immediately return nil.
If WHICH is 1, return innermost enclosing environment.
If WHICH is t, return list of all environments enclosing point.
If WHICH is a list of environments, look only for those environments and
return the name of the first environment in this list found to enclose
point.
If the optional BOUND is an integer, bound backwards directed searches to
this point. If it is nil, limit to nearest \section - like statement.
(defalias 'reftex-what-environment #[(which &optional bound) "\204 \306 \210\3072} \212 \204 \310\307\311\"\210\n\206\" \212\312\311\313#\210`)\311\211\211 \312\314\n\315#\203y \316\317\224\317\225\"\320\313!\321\230\203G \fB\202) \f@\232\203T \fA\202) \315=\203c `B
B\202) \313=\204o \235\203) \310\307 `B\"\210\202)
\237-0\207" [reftex-section-regexp which bound env end-list env-list reftex-compile-variables exit throw nil re-search-backward 1 "\\\\\\(begin\\|end\\){\\([^}]+\\)}" t buffer-substring-no-properties 2 match-string "end"] 4 (#$ . 19607)])
#@464 Run the special environment parsers and return the matches.
The return value is (e.g.) either ("my-parser-function" . (point))
or a list of them.
If WHICH is nil, immediately return nil.
If WHICH is 1, return innermost enclosing environment.
If WHICH is t, return list of all environments enclosing point.
If WHICH is a list of environments, look only for those environments and
return the name of the first environment in this list found to enclose
point.
(defalias 'reftex-what-special-env #[(which &optional bound) "\204 \306 \210\3072] \212 \204 \310\307\311\"\210\n\204 \310\307\311\"\210 \206+ \212\312\311\313#\210`)\n<\2037 \314\315 \"\2028 \311\211 \314\316\"\317\311
\"\320
\321\"\n\322=\203Y
\202[
@-0\207" [reftex-section-regexp reftex-special-env-parsers which bound rtn specials reftex-compile-variables exit throw nil re-search-backward 1 mapcar #[(x) " >\205 \207" [x which] 2] #[(fun) "\212\205 !\211\205 \303!\nB)\207" [fun bound rtn symbol-name] 3] delq sort #[(a b) "A AV\207" [a b] 2] t fun-list] 4 (#$ . 20777)])
#@209 Assuming that we are at the end of a macro name or a macro argument,
move forward to the opening parenthesis of the next argument.
This function understands the splitting of macros over several lines
in TeX.
(defalias 'reftex-move-to-next-arg #[(&optional _ignore) "g\301>\206 \203 \302\303!\203 \304\225Sb\210\305\207\306\207" [reftex-allow-detached-macro-args (91 123) looking-at "[ ]*[\n
]?\\([ ]*%[^\n
]*[\n
]\\)*[ ]*[[{]" 0 t nil] 2 (#$ . 21853)])
(put 'reftex-move-to-next-arg 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'reftex-nth-arg-wrapper #[(key) "\303 \"\304\305\n8\306\n8\")\207" [key reftex-env-or-mac-alist entry assoc reftex-nth-arg 5 6] 4])
#@115 Return the Nth following {} or [] parentheses content.
OPT-ARGS is a list of argument numbers which are optional.
(defalias 'reftex-nth-arg #[(n &optional opt-args) "g\305=\203\n \306\307w\210\310U\203 \311 \210\312 \207\313\307g\314>\2064 \2033 \315\316!\2033 \317\225Sb\210\320\2024 \307)\203\255 W\203\232 \f\235\203Q g\321=\203Q T\211\202? W\2038 \3221f \323\313!\206b \3200\202j \210\202\224 \203\224 \307g\314>\206\211 \203\210 \315\316!\203\210 \317\225Sb\210\320\202\211 \307)\203\224 T\211\2048 \310\211\2029 \f>\203\255 g\321=\203\255 T\211\202\233 U\205\275 \324\307w\317V\205\275 \312 )\207" [n cnt _ignore reftex-allow-detached-macro-args opt-args 92 "a-zA-Z*\\\\" nil 1000 reftex-move-over-touching-args reftex-context-substring 1 (91 123) looking-at "[ ]*[\n
]?\\([ ]*%[^\n
]*[\n
]\\)*[ ]*[[{]" 0 t 123 (error) forward-list "{["] 3 (#$ . 22539)])
(defalias 'reftex-move-over-touching-args #[nil "\3001 g\301>\205 \302\303!\210\202 0\207\210\304\207" [(error) (91 123) forward-list 1 nil] 2])
#@109 Return up to 150 chars from point.
When point is just after a { or [, limit string to matching parenthesis.
(defalias 'reftex-context-substring #[(&optional to-end) "\203 \303``\304\\\305 \306\216\307\310\311\312#\203 \313\224\202 d*^\"\207h\314>\203C \303``\304\\d^\3151> \311\316\317!\210`S)0\202@ \210d^\"\207\303``\304\\d^\"\207" [to-end save-match-data-internal forward-sexp-function buffer-substring-no-properties 150 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward "\\\\end{" nil t 0 (123 91) (error) up-list 1] 7 (#$ . 23581)])
(defvar reftex-section-numbers (make-vector reftex-max-section-depth 0))
#@83 Initialize the section numbers with zeros or with what is found in the TOC-ENTRY.
(defalias 'reftex-init-section-numbers #[(&optional toc-entry appendix) "\3068\206 \307\310\3118\206 \312\313\"\237 GS\211 \314
\315Y\203d
V\2031
\315I\210\202] \n@\2067 \316\317\320\"\203P
\321\322!\323\307#I\210\202X
\324!I\210\n\211A\210
S\211\202 -\325\303\326#\207" [toc-entry level numbers reftex-section-numbers depth i 5 -1 split-string 6 "" "\\." nil 0 "0" string-match "\\`[A-Z]\\'" - string-to-char 65 string-to-number put appendix number-string] 7 (#$ . 24262)])
#@113 Return a string with the current section number.
When LEVEL is non-nil, increase section numbers on that level.
(defalias 'reftex-section-number #[(&optional level star) "GS\306\211\307 \300\305N ?\205 \310\232 \203[ \311V\2035 !\2045 HTI\210 T!\204[ \n X\203[ \203O \n\312U\204T \n\310I\210\nT\211\202? \203l \313\314\310H!P\211\202\365 \203u \310\202v \312\211 X\203\244 \nH \203\214 \f\307\232\203\235 \f\211\307\230\204\227 \315\202\230 \307\316 !Q\nT\211\202x \317 \"\320\216\321\322\f\"\203\270 \323\307\306\211\f$\321\324\f\"\203\306 \323\307\306\211\f$
\203\343 \321\325\f\"\203\343 \326\327\330\331\310\f\"!\\S!\332\f\310\225\"P*!\203\364 \333\fGS\334\"\335P\202\365 \f.\207" [reftex-section-numbers depth idx n string appendix nil "" 0 -1 1 "Part " reftex-roman-number "." int-to-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`\\([@0]\\.\\)+" replace-match "\\(\\.0\\)+\\'" "\\`[0-9]+" char-to-string 65 string-to-number match-string substring make-string 32 "*" reftex-part-resets-chapter level partspecial star save-match-data-internal] 7 (#$ . 24856)])
#@49 Return as a string the roman number equal to N.
(defalias 'reftex-roman-number #[(n) "\306\307\310\211\211 \n\n\311Y\2035 \f\211A\242\211@ A\n\nY\203
P\n\nZ\211\n\202\"
.\207" [n s i listel list string "" ((1000 . "M") (900 . "CM") (500 . "D") (400 . "CD") (100 . "C") (90 . "XC") (50 . "L") (40 . "XL") (10 . "X") (9 . "IX") (5 . "V") (4 . "IV") (1 . "I")) nil 1 nrest] 7 (#$ . 26041)])
(provide 'reftex-parse)
Zerion Mini Shell 1.0