;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'reftex) #@19 (fn &rest BODY) (defalias 'reftex-with-special-syntax '(macro . #[128 "\300\301\302\303\304\300\305BBE\306BBE\207" [let ((saved-syntax (syntax-table))) unwind-protect progn (set-syntax-table reftex-syntax-table) ((case-fold-search nil)) ((set-syntax-table saved-syntax))] 9 (#$ . 102)])) #@21 Re-parse this file. (defalias 'reftex-parse-one #[0 "\301\302\303!)\207" [reftex-enable-partial-scans t reftex-access-scan-info (4)] 2 (#$ . 400) nil]) #@27 Re-parse entire document. (defalias 'reftex-parse-all #[0 "\300\301!\207" [reftex-access-scan-info (16)] 2 (#$ . 559) nil]) #@99 Do a document rescan. When allowed, do only a partial scan from FILE. (fn RESCAN &optional FILE) (defalias 'reftex-do-parse #[513 "\306\267\202\307\202\310\202\307\202\310\202\310\262\204 \310\262 J\311 \312!\313\314!!\2062\315 \312!\316\236\317\236A\320\211\211\211C\f\307=\203b\321D \235\203_\322D \235\204b\310\262  \230\203l\310\262 \f\323\267\202\202\206\205 \202\205 \202\205\324\325!\262\f\310=\203\220\320\326\327\321D #\326\330\321D #\262\331 \"\210\f\310=\203\270\332\333!\210\202\275\332\334\"\210\335 \336\337\"\216\340\f!\210\320\341 \336\342\"\216\212\343\216\344\320\f#\262+\210*\210\332\345!\210\237\262\346 \310=#\262\347\236\204\347CB\262\350\236\204\350BB\262\316\236\204\316ABB\262\321\236>\321A\236\205*\211??\351\236\206;\351DB\211\262@\211C\241\266\n\203J\352\n\353\"\317\236\211\203Y\211\n\241\266\202a\317\nBB\262\210\354\236\204\232\355\356\"\357\336\360 #\"\361\320\"\361\320\357\362\"\"\211\203\216\363\364\365\366#\367Q\202\217\370\354EB\262\266 L\210\371 \372\307#)\207" [reftex-enable-partial-scans reftex-docstruct-symbol reftex--index-tags reftex-active-toc reftex-syntax-table case-fold-search #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 115 1 125)) 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 make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] #[0 "\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 #[257 "\301\302\3038\304\300#\240\203\211A@\301\242B\207\305\306\3038\"\210\307\207" [V0 V1 reftex-locate-file 2 "tex" message "Can't find external document %s" nil] 6 "\n\n(fn X)"] delq car "\\`\\(" mapconcat identity "\\|" "\\)" "\\\\\\\\\\\\" put modified] 22 (#$ . 689)]) (defalias 'reftex-everything-regexp #[0 "\203 \207\n\207" [reftex-support-index reftex-everything-regexp reftex-everything-regexp-no-index] 1]) #@168 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. (fn &optional RELATIVE) (defalias 'reftex-all-document-files #[256 "J\301\302 !\303\304!P\305\211\211\306\236\211\262\203?A@\262>A\262\2037\307\"\2037\211\310\225\305O\262\211B\262\202\237\207" [reftex-docstruct-symbol file-name-directory reftex-TeX-master-file "\\`" regexp-quote nil bof string-match 0] 10 (#$ . 3313)]) #@85 Scan the buffer for labels and save them in a list. (fn FILE DOCSTRUCT MASTER-DIR) (defalias 'reftex-parse-from-file #[771 "\306 \307\310\211\211C\311\312\310\211\211\211\3132Y\314\315#\262 \204.\316!\211\262\203.\317!\262 \204A\320D B\262 \321\313\310\"\210\212\322\323\"\210\324 \325=?\"\211\262q\210\317 \262\326D B\262 \327 \330\331\"\216\332 !\210\310\212\214~\210\311b\210\333\f\310\325#\203\365\311\225\203\327 \203\306\334\307!\307\335O\336\230\204\306\337\340!\203\302\337\341!\203\302\342 \330\343\"\216\340 )\262 \235\206\276\342 \330\344\"\216\341 )\262 \235?\202\303\325\203v\345\334\311! #B\262\202v\346\225\2030\307\224\262 `Sf\347=\203\353\350u\210\f!\262\203v\nf\351U\352\353\"=\203v\3548\262^\262U\203$\322\355\356 \"@\3578#\210B\262@\202v\335\225\203Y\334\335!\240\210\360\310\361\330\362\f\"A\"\"\204v\363\242#\262\202v\364\225\203n\365\310\325\"\210\366\325BB\262\202v\367\225\203\242B\203v\370!\262\203vA@\211C\235\203\221C\202\225\211CB\262CB\262\202v\371\225\203\354\212\334\371!\371\225b\210\342 \330\372\"\216\373\374!!)\262\375D\"A@\211\203\320\307\225b\210\202\327\371\225b\210\376 \210\345\310\211%\211B\262\266)\202v\377\201E!\210\202v\201F !\211\262\n\203\f\201G BB\262\311b\210\333\201H\310\325#\203$\201IBB\262\311b\210\333\201J\310\325#\203E\201K\334\201L!\334\346!EB\262\202'\201MDB\262,\210)\201N!0\210\f\207" [reftex-keep-temporary-buffers reftex-syntax-table case-fold-search reftex-label-ignored-macros-and-environments reftex-section-info-function reftex-section-levels-all reftex-everything-regexp 0 nil 1 100 exit reftex-locate-file "tex" find-buffer-visiting buffer-file-name file-error throw message "Scanning file %s" reftex-get-file-buffer-force t bof syntax-table make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table re-search-forward reftex-match-string 7 "\\label{" fboundp TeX-current-macro LaTeX-current-environment match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] reftex-label-info 3 92 -1 37 string-suffix-p ".dtx" 5 "Scanning %s %s ..." rassoc 6 delq mapcar #[257 "\301\300\242\"\207" [V0 string-match] 4 "\n\n(fn X)"] reftex-parse-from-file 9 reftex-init-section-numbers appendix 10 reftex-index-info 11 #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] reftex-no-props reftex-nth-arg-wrapper assoc reftex-move-over-touching-args error reftex-active-toc reftex-no-include-regexps reftex-support-index reftex--index-tags reftex-env-or-mac-alist "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] 24 (#$ . 3808)]) #@61 Return non-nil if we are using biblatex rather than bibtex. (defalias 'reftex-using-biblatex-p #[0 "\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 (#$ . 6776)]) #@92 Scan buffer for bibliography macros and return file list. (fn MASTER-DIR &optional FILES) (defalias 'reftex-locate-bibliography-files #[513 "\211\2046\212eb\210\301 \302\211\2033\303\304\305\306\307#\310Q\311\302#\2033\312\313\314\315!\316\"\"\262\204 \311\262\202 \266)\211\205G\317\320\321\"\"\262\322\311\"\207" [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 make-closure #[257 "\211 \235\206\303\304\305\306\307\"\n\"\"?\205\310\311\300#\207" [V0 reftex-bibfile-ignore-list reftex-bibfile-ignore-regexps delq nil mapcar make-closure #[257 "\301\300\"\207" [V0 string-match] 4 "\n\n(fn RE)"] reftex-locate-file "bib"] 7 "\n\n(fn X)"] delq] 10 (#$ . 7055)]) #@251 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. (fn OLD INSERT &optional ENTIRELY) (defalias 'reftex-replace-label-list-segment #[770 "\211\203\f\300\211G\"\210\207@A@\301D\235\302D\235\303\203#\204*\304\305!\210\202O\300\211GGZ\"\210GGZ\262\211\233A\241\210GS\233A\241\210\207" [reftex-silence-toc-markers eof bof nil error "Cannot splice"] 11 (#$ . 7935)]) #@128 Return a section entry for the current match. Careful: This function expects the `match-data' to still be in place! (fn FILE) (defalias 'reftex-section-info #[257 "\303 \304\224S\305\223\306\304!\307 \310\311\"\216\312\313\"\205\314\315\")\262\316\"A\2119\2038\307 \310\317\"\216 )\262\2029\211\304\225f\320U\211\206E\321W\322!\323\"\307 \310\324\"\216\212\325!*\262\326\304\224Sd\321\225G\\T^\"\327!\330 _\331\"\nA@\205{\332P \203\211\333\f!\334P\202\212\335R\262\336\337  \340!\257 \207" [reftex-section-levels-all reftex-level-indent reftex-label-menu-flags make-marker 3 nil reftex-match-string match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "begin{\\([^}]+\\)}" match-string 1 assoc #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 42 0 abs reftex-section-number #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] reftex-context-substring buffer-substring-no-properties reftex-nicify-text make-string 32 " " capitalize ": " "" toc "toc" marker-position] 23 (#$ . 8498)]) #@178 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. (fn &optional ABORT) (defalias 'reftex-ensure-index-support #[256 "\203\302\207\303\304!\203\305\306\211\207\211\203\307\310!\207\311\310!\210\312 \210\313\314!\207" [reftex-support-index current-prefix-arg t y-or-n-p "Turn on index support and rescan entire document? " demanded (16) error "No index support" message ding sit-for 1] 3 (#$ . 9591)]) #@13 (fn FILE) (defalias 'reftex-index-info-safe #[257 "\302 \303\304\"\216\305!\210\306\307!*\207" [reftex-syntax-table case-fold-search syntax-table make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table nil reftex-index-info] 5 (#$ . 10112)]) #@127 Return an index entry for the current match. Careful: This function expects the `match-data' to still be in place! (fn FILE) (defalias 'reftex-index-info #[257 "\3042\275\305\306!\306\224\306\225\307\"\206\310\304\311\"\3128\313!\205(\211 \205(\310\304\311\"A@\3148;\2038\202O\250\203Nb\210\315\3168\"\206O\317\202O\317b\210\315\3208\3168\"\206`\321b\210\322 \210`\323\311w\210` b\210\324\311x\210`\325\"\326\n\"\205\205\327\224T\327O\203\225P\202\226\211\211\227\330\331\332 \"\333#b\210\334   \257\n)\266\2220\207" [reftex-index-macro-alist test-dummy reftex-index-key-end-re reftex-index-level-re 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 mapconcat identity split-string " ! " index] 29 (#$ . 10386)]) #@112 Get about one line of useful context for the label definition at point. (fn ENV PARSE &optional BOUND DERIVE) (defalias 'reftex-short-context #[1026 ":\203\211\203A\202@\262\304\305\267\202k\212\306 )\202\300\307\230\203V\212\310e\311#\203=\312\225\203=\313\225b\210\306 \202R \203Q\314\315\316 8\"\210\317\320\316 8\"\202R\321)\202\300\212\nb\210\322!\323=\204e\324 \210\306 )\202\300;\203\207\212\310\311#\203\202\313\225b\210\306 \202\203\325)\202\300\250\203\242\212\nb\210\326\327\330 \"8\")\206\300\331\202\300\332!\203\277\212\3331\264!0\202\273\334\335A\"\262)\202\300\336!\207" [reftex-section-or-include-regexp reftex-active-toc reftex-default-context-position reftex-env-or-mac-alist reftex-nicify-text #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 25 t 32)) reftex-context-substring "section" re-search-backward t 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"] 11 (#$ . 11301)]) #@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 #[0 "J\302\303\211\211\212\204\217T\262\304\305 \303\306#\262\211\2047\307\310 D\235@\206\212\311\211\262?\206\212\307\236\206\212\312\202\212\313\225\203F\314\315\313!J\"\202\212\316\225\203\273\316\224Sb\210\307\310 D\235\317\310 D\235@\303\203\266@=\204\266@@\320=\203\257\310 \316@8\230\203\257`\321\322@8!\203\216\323\322@8!\206\222\324@8\232\203\240@\262\303\262\202\257\325\326\327@8!!\203\257@\262A\262\202^\266\202\202\212\327\225\203\323\317\330\315\327!\331\332 \236A#D\235@\202\212\333\225\203\337\334J\236\202\212\335\225\203n \205\212\212\336\303!)\307\310 D\235\317\310 D\235@\303\211\211\302\203G@=\204G@@\337=\203@\3118\311@8\230\203@\211T\262\340`\322@8Z!\262\2039W\203@\262@\262A\262\202\377\211\313U\204S\302=\203Y\266\207\202\212\211\313V\203h\311\262 \266\207\202\212\266\303\202\212\341\225\203\207\212\341\225b\210\314\342\343\315\341!!!J\")\202\212\344\345!\262\202)\204\236\203\236\262\311\262\313=B\207" [reftex-docstruct-symbol reftex-support-index 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)"] 16 (#$ . 12493)]) #@94 Hook to handshake with RefTeX after something new has been inserted. (fn &optional N FORCE) (defalias 'reftex-notice-new #[512 "\3061Z\3072X\204\310\307\311\"\210\312 \210 J\311\211\211\211\211\211\211\211\212\313\314 \311\315\206*\316$\205T\317 \262\204<\310\307\311\"\210 \204LA\204L\310\307\311\"\210@ >\262\204]\310\307\311\"\210\320\321 @ #\320\322 @ #\262@@\322=\203\201\323\311\315\"\210\202\207\323\n\"\210\324\314 \311\315#\205T\316\225\203\250\325\326\316! \"AB\241\262\202T\327\225\203;\327\225f\330U\262\331\303 !\262\3328\262AB\241\210\fA@\204\322\310\307\311\"\210A\262\321A\236>\211\262\205T@\211\262\205T\3328Y\205T\333\334\3358\"\262\3368\262\337\3328\"\262\340\341\"\203\326\204&\342\343\336!!\344Y\203&\310\307\311\"\210AA\211\343\316\"\343\327\"Q\240\266\202\326\345\225\205T \205T\346 !\211\262\205TAB\241)\266\21100\207\210\311\207" [reftex-mode reftex-docstruct-symbol reftex-active-toc buffer-file-name reftex-label-menu-flags reftex-support-index (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 appendix reftex-init-section-numbers re-search-forward reftex-label-info reftex-match-string 3 42 reftex-section-info 5 string-search "*" 6 2 reftex-section-number string-match "\\`\\([ ]*\\)\\([.0-9A-Z]+\\)\\(.*\\)" string-to-char match-string 65 10 reftex-index-info-safe] 18 (#$ . 14174)]) #@218 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. (fn &optional BOUND) (defalias 'reftex-move-to-previous-arg #[256 "h\301>\206\203\302\303\304#\203\305\224Tb\210\304\207\306\207" [reftex-allow-detached-macro-args (93 125) re-search-backward "[]}][ ]*[\n ]?\\([ ]*%[^\n ]*[\n ]\\)*[ ]*\\=" t 0 nil] 5 (#$ . 15693)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put reftex-move-to-previous-arg speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@81 Call `reftex-what-macro' with special syntax table. (fn WHICH &optional BOUND) (defalias 'reftex-what-macro-safe #[513 "\302 \303\304\"\216\305!\210\306\307\"*\207" [reftex-syntax-table case-fold-search syntax-table make-closure #[0 "\301\300!\207" [V0 set-syntax-table] 2] set-syntax-table nil reftex-what-macro] 6 (#$ . 16325)]) #@839 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. (fn WHICH &optional BOUND) (defalias 'reftex-what-macro #[513 "\204\304 \210\3052\204\306\305\307\"\210\211\206!\212\310\307\311#\210`)\307\211\211\211\211\211\214\212e]d}\210\3121@\307\313\314!\210)\3150\202D\210\202 \203 \311\262\316\262h\317>\206m\n\203l\310\320\315#\203l\316\224Tb\210\315\262\202o\307\262\203\227\3211\201\307\322 \210)\3150\202\203\210\307\203\227g\323=\203\220T\262T\262\202M`\262g\323U\204\246g\324U\203\310\325\307\315#\203\326\316!\262\327\330!\203\302\326\316!\262S\262\331 \"\211\262\203\333\3328\206\324\333V\203\333\307\262\203\315=\203\360`BB\262\202\311=\204\376 \235\203\306\305`B\"\210b\210\2020)\237)\266\2070\207" [reftex-section-regexp forward-sexp-function reftex-allow-detached-macro-args reftex-env-or-mac-alist 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] 14 (#$ . 16669)]) #@616 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. (fn WHICH &optional BOUND) (defalias 'reftex-what-environment #[513 "\204\301 \210\3022\200\212\204\303\302\304\"\210\211\206\"\212\305\304\306#\210`)\304\211\211\305\307\310#\203z\311\312\224\312\225\"\262\313\306!\314\230\203E\211B\262\202%\211@\232\203SA\262\202%\310=\203c\211`BB\262\202%\306=\204p\211\235\203%\303\302`B\"\210\202%\237\266\204)0\207" [reftex-section-regexp reftex-compile-variables exit throw nil re-search-backward 1 "\\\\\\(begin\\|end\\){\\([^}]+\\)}" t buffer-substring-no-properties 2 match-string "end"] 10 (#$ . 18594)]) #@492 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. (fn WHICH &optional BOUND) (defalias 'reftex-what-special-env #[513 "\204\302 \210\3032g\212 \204\304\303\305\"\210\204\304\303\305\"\210\211\206+\212\306\305\307#\210`)<\203:\310\311\312\" \"\202; \305\211C\310\311\313#\"\262\314\305\"\262\315\316\"\262\317=\203a\266\204\202e@\266\204)0\207" [reftex-section-regexp reftex-special-env-parsers reftex-compile-variables exit throw nil re-search-backward 1 mapcar make-closure #[257 "\211\300>\205\211\207" [V0] 3 "\n\n(fn X)"] #[257 "\212\301\205 \300!\240\210\301\242\205\302!\301\242B)\207" [V0 V1 symbol-name] 4 "\n\n(fn FUN)"] delq sort #[514 "AAV\207" [] 4 "\n\n(fn A B)"] t] 11 (#$ . 19773)]) #@232 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. (fn &optional IGNORE) (defalias 'reftex-move-to-next-arg #[256 "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] 3 (#$ . 20931)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put reftex-move-to-next-arg speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@12 (fn KEY) (defalias 'reftex-nth-arg-wrapper #[257 "\301\"\302\3038\3048\"\207" [reftex-env-or-mac-alist assoc reftex-nth-arg 5 6] 6 (#$ . 21553)]) #@142 Return the Nth following {} or [] parentheses content. OPT-ARGS is a list of argument numbers which are optional. (fn N &optional OPT-ARGS) (defalias 'reftex-nth-arg #[513 "g\301=\203\n\302\303w\210\304U\203\305 \210\306 \207\307\303g\310>\2064\2033\311\312!\2033\313\225Sb\210\314\262\2026\303\262\203\261\211W\203\236\211\235\203Rg\315=\203R\211T\262\202?\211W\2039\3161g\317\307!\206c\3140\202k\210\202\230\203\230\303g\310>\206\213\203\212\311\312!\203\212\313\225Sb\210\314\262\202\215\303\262\203\230\211T\211\262\2049\304\262\2029\211>\203\261g\315=\203\261\211T\262\202\236U\205\301\320\303w\313V\205\301\306 \207" [reftex-allow-detached-macro-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 "{["] 6 (#$ . 21712)]) (defalias 'reftex-move-over-touching-args #[0 "\3001g\301>\205\302\303!\210\2020\207\210\304\207" [(error) (91 123) forward-list 1 nil] 2]) #@132 Return up to 150 chars from point. When point is just after a { or [, limit string to matching parenthesis. (fn &optional TO-END) (defalias 'reftex-context-substring #[256 "\211\203$\301``\302\\\303 \304\305\"\216\306\307\310\311#\203\312\224\202d)\262^\"\207h\313>\203G\301``\302\\d^\3141B\310\315\316!\210`S)0\202D\210d^\"\207\301``\302\\d^\"\207" [forward-sexp-function buffer-substring-no-properties 150 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward "\\\\end{" nil t 0 (123 91) (error) up-list 1] 9 (#$ . 22774)]) (defvar reftex-section-numbers (make-vector reftex-max-section-depth 0)) #@114 Initialize section numbers with zeros or with what is found in the TOC-ENTRY. (fn &optional TOC-ENTRY APPENDIX) (defalias 'reftex-init-section-numbers #[512 "\3018\206\302\303\3048\206\305\306\"\237GS\211\307\310Y\203YV\203+\310I\210\202R@\2061\311\262\312\313\"\203G\314!\315ZTI\210\202N\316!I\210A\262S\262\202\266\317\300\320#\207" [reftex-section-numbers 5 -1 split-string 6 "" "\\." nil 0 "0" string-match "\\`[A-Z]\\'" string-to-char 65 string-to-number put appendix] 11 (#$ . 23438)]) #@140 Return a string with the current section number. When LEVEL is non-nil, increase section numbers on that level. (fn &optional LEVEL STAR) (defalias 'reftex-section-number #[512 "GS\302\211\303\300\304N ?\205\305=\203T\306V\203-\204-\nHTI\210T\262\204TX\203T\211\203H\307U\204M\305I\210T\262\2027\211\203c\310\311\305H!P\211\262\207 \203k\305\202l\307\262X\203\236H\262\211\203\204\303\232\203\227\211\303\230\204\217\312\202\220\303\313!Q\262T\262\202n\314 \315\316\"\216\317\320\"\203\265\321\303\302\211$\262\317\322\"\203\305\321\303\302\211$\262\203\344\317\323\"\203\344\324\325\326\327\305\"!\\S!\305\225\302OP\262)\210\203\364\330GS\331\"\332P\207\207" [reftex-section-numbers reftex-part-resets-chapter nil "" appendix 0 -1 1 "Part " reftex-roman-number "." int-to-string match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\([@0]\\.\\)+" replace-match "\\(\\.0\\)+\\'" "\\`[0-9]+" char-to-string 65 string-to-number match-string make-string 32 "*"] 15 (#$ . 23973)]) #@57 Return as a string the roman number equal to N. (fn N) (defalias 'reftex-roman-number #[257 "\211\300\301\302\211\211\303Y\203/\211A\262\242\262@\262A\262Y\203P\262Z\262\202\207" ["" ((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] 9 (#$ . 25090)]) (provide 'reftex-parse)