;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:22 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/reftex-parse.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`reftex-parse.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\207" [provide reftex-parse require reftex] 2) (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 (#$ . 938) nil]) #@27 Re-parse entire document. (defalias 'reftex-parse-all #[nil "\300\301!\207" [reftex-access-scan-info (16)] 2 (#$ . 1099) nil]) #@72 Do a document rescan. When allowed, do only a partial scan from FILE. (defalias 'reftex-do-parse #[(rescan &optional file) "\306=\203\n\306\202)\307=\203\307\202)\310\232\203\306\202)\311\232\203(\307\202)\307 \2040\307\nJ\312 \313\f!\314\315\f!!$7\206H\316 7\3137!8\317 \236\320 \236A\321\2119\321\211:;\306=\203\201\3227D \235\203\3237D \235\204\201\3078 \230\203\212\307\306=\203\2317\206\246\f\202\246\307=\203\243\f\202\246\324\325!9\307\232\203\261\321\326\327\3229D #<\326\330\3229D #\331<\"\210\307=\203\331\332\333!\210\202\337\332\3349\"\210\335 =\336\216\337>!\210\321?\340\213\210+\332\341!\210:\237:\342 :\307=#:\343:\236\204\343\321B:B:\344:\236\204#\344$B:B:\317:\236\2044\317AB:B:\322:\236:>@\322@A\236A@\205KA??%\345:\236\206a\345%D:B\211:@\211B%\321B\241\210,\203w\346\347\"\320:\236\211C\203\212C\241\210\202\223\320B:B:)\350:\236\204\331\351\352:\"D\353\354D\"E\355\321E\"E\355\321\353\356E\"\"\211F\203\312\357\360\361F\362#\363Q\202\313\364G\350EGE:B:-\n:L\210\365\n\366\306#.\f\207" [rescan reftex-enable-partial-scans reftex-docstruct-symbol old-list master true-master t 1 (4) (16) reftex-TeX-master-file file-truename file-name-as-directory file-name-directory buffer-file-name bibview-cache index-tags nil bof eof 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 ((set-syntax-table saved-syntax)) set-syntax-table ((byte-code "\212\303\216\304 \n#*\304\207" [from-file docstruct master-dir ((reftex-kill-temporary-buffers)) reftex-parse-from-file] 4)) "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\203A@\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 from-file docstruct tmp reftex-active-toc saved-syntax reftex-syntax-table case-fold-search bof1 bof2 entry index-tag-cell allxr alist allprefix regexp] 6 (#$ . 1232)]) (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\225\312O\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 0 file relative] 4 (#$ . 3742)]) (defalias 'reftex-parse-from-file #[(file docstruct master-dir) "\306 \307\310\211\211\311\312\310\211\211\211 \313\314\215\210. \207" [buf next-buf index-entry toc-entry highest-level level reftex-everything-regexp 0 nil 1 100 exit (byte-code "\306\307 #\211\204\310!\211\203\311 !\n\204%\312D\fB\313\314\315\"\210\212\316\317\"\210\320\n \321=?\"\211?q\210\311 \322D\fB\323 @\324\216\325A!\210\315B\212\214~\210\326b\210\327C\315\321#\203[\326\225\203q\330\331\326!D#\fB\202U\332\225\203\262`D\333!\211E\203U\334E8FGF^GFGU\203\246\316\335\336FH\"@\337E8#\210E\fBEI\202U\340\225\203\321\331\340!J\341\315\342\343K\"\"\204U\344J\f #\202U\345\225\203\344\346\315\321\"\210\347\321B\fB\202U\350\225\203L\203U\351!\211M\203U\352\353MA@\"\210M\fB\202U\354\225\203T\212\331\354!N\354\225b\210\355 O\356\216\357\360N!!*P\361NQ\"A@\211R\203:\362\225b\210\202A\354\225b\210\363 \210\330PD\315\211%\211S\fB-\202U\364\365!\210\202U\366 !\211T\203k\367TB\fB\326b\210\327\370\315\321#\203|\371B\fB\326b\210\327\372\315\321#\203\225\373\331\374!\331\332!E\fB\202\375D\fB.\376?!\207" [file master-dir file-found buf docstruct reftex-keep-temporary-buffers reftex-locate-file "tex" reftex-get-buffer-visiting buffer-file-name file-error throw exit nil message "Scanning file %s" reftex-get-file-buffer-force t bof syntax-table ((set-syntax-table saved-syntax)) set-syntax-table 1 re-search-forward reftex-label-info reftex-match-string 3 reftex-section-info 5 "Scanning %s %s ..." rassoc 6 7 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 add-to-list index-tags 11 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) reftex-no-props reftex-nth-arg-wrapper assoc 0 reftex-move-over-touching-args error "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 next-buf saved-syntax reftex-syntax-table case-fold-search regexp bound toc-entry level highest-level reftex-section-levels-all reftex-active-toc include-file reftex-no-include-regexps reftex-support-index index-entry mac save-match-data-internal label reftex-env-or-mac-alist typekey entry tmp] 7) include-file tmp file-found bound regexp docstruct] 11]) (defalias 'reftex-locate-bibliography-files #[(master-dir &optional files) "\204\212eb\210\302\303\304\305 \306#\307Q\310\311#\203\312\313\314!\315\")\205,\316\317\"\320\310\"\207" [files reftex-bibliography-commands re-search-forward "\\(^\\)[^%\n ]*\\\\\\(" mapconcat identity "\\|" "\\){[ ]*\\([^}]+\\)" nil t split-string reftex-match-string 3 "[ \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] 6]) (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]) (defalias 'reftex-section-info #[(file) "\306 \307\224S\310\223\311\307!\312 \313\216\314\315 \"\205\316\317 \"*\320 \f\"A\2119\2034\312 \321\216 *\2025 #\307\225f\322U\211$\206F#\323W%\324#!#\325#%\"&\312 \326\216\212\327 !+'\330\307\224Sd\323\225'G\\\317\\^\"(\331'!)\332*#_\333\"+A@\205\214&\334P \203\230\335 !\336P\202\231\337)R)\340\341),#&(\342!\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "begin{\\([^}]+\\)}" match-string 1 assoc ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 42 0 abs reftex-section-number ((byte-code "\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]) (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]) (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 ((set-syntax-table saved-syntax)) set-syntax-table nil reftex-index-info] 2]) (defalias 'reftex-index-info #[(file) "\300\301\215\207" [exit (byte-code "\306\307!\307\224\307\225\310 \"\206\311\312\313\"\314\f8\315 !\205) \205)\311\312\313\"\fA@ \316\f8! ;\203@ \202X \250\203W\nb\210\317 \320\f8\"\206X\321\202X\321\"\nb\210\317\322\f8\320\f8\"\206i\323#\nb\210\324 \210`$\325\313w\210`% b\210\326\313x\210`&\327&%\"'\330(#\"\205\231\331\224T)#\331)O*!\203\260!*P\202\262*\211+\227,\332\333\334+-\"\335#.$b\210\336\"'/ #+.,)\257\n.\207" [macro bom boa reftex-index-macro-alist entry exclude reftex-match-string 10 assoc throw exit 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 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)] 2]) (defalias 'reftex-short-context #[(env parse &optional bound derive) ":\203 \203A\202@\306\204\212\307 )\202\266\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\266\212 b\210\323\n!\324=\204h\325 \210\307 )\202\266;\203\213\212\312 \310#\203\206\314\225b\210\307 \202\207\326)\202\266\250\203\246\212 b\210\327\330\331\n!\"8\")\206\266\332\202\266\333!\203\265\212\334\335\336\217)\202\266\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-var (funcall parse env) ((error (byte-code "\301\302A\"\207" [error-var format "HOOK ERROR: %s"] 3))) "INVALID VALUE OF PARSE" bound reftex-env-or-mac-alist] 7]) (defalias 'reftex-where-am-I #[nil "J\306\307\211\211\212 \204\300\fT\310\311 \307\312#\211\2049\313\314 D \235@\206\273\315\211?\206\273\313 \236\206\273\316\202\273\317\225\203H\320\321\317!J\"\202\273\322\225\203\323\322\224Sb\210\313\314 D \235*\323\314 D*\235@+\307,*\203\315+*@=\204\315*@@\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\273\333\225\203\352\323\334\321\333!\335\336 \236A#D \235@\202\273\337\225\203\366\340J\236\202\273\341\225\203\237-\205\273\212\342\307!).\313\314 D \235*\323\314 D*\235@+\307\211/0\3071\3062*\203x+*@=\204x*@@\343=\203o\315.8\315*@8\230\203o2T2\344`\326*@8Z!/0\203f/0W\203o/0*@1*A\211*\204*2\317U\204\206/\306\232\203\2131\202\2322\317V\203\231\3151\202\232\307.\202\273\345\225\203\270\212\345\225b\210\320\346\347\321\345!!!J\")\202\273\350\351!\211\203) \204\315\n\203\315\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]) #@70 Hook to handshake with RefTeX after something new has been inserted. (defalias 'reftex-notice-new #[(&optional n force) "\300\301\302\217\207" [nil (byte-code "\300\301\215\207" [exit (byte-code "\204 \306\307\310\"\210\311 \210 J\310\211\310\211%\310\211&'\310\211()\212\312\313 \310\314*\2060\315$\205U\316 \211\204@\306\307\310\"\210+\204O A\204O\306\307\310\"\210 @\n>\211\204]\306\307\310\"\210\317\320 @\n#,\317\304 @\n# @@\304=\203|\321\310\314\"\210\202\202\321,\f\"\210\322\313 \310\314#\205U\315\225\203\244\323\324\315!\"- - AB\241)\202U\325\225\203:\325\225f\326U&\327\330 !%\331%8' % AB\241\210.A@\204\320\306\307\310\"\210 A\320 A\236 >\211\205U @\211%\205U\331%8'Y\205U\332\333\334%8\"&\335%8)\336\331%8&\"(\332\337)\"\203\323\f\204$\340\341\335!!\342Y\203$\306\307\310\"\210%AA\341\315)\"(\341\325)\"Q\240\210\202\323\343\225\205U/\205U\344!\211%\205U % AB\241.\n\207" [reftex-mode reftex-docstruct-symbol docstruct here-I-am appendix tail throw exit 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=#:--cl-arg1-- reftex-label-menu-flags reftex-support-index] 7)] 2) ((error))] 3 (#$ . 13190)]) (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]) (put 'reftex-move-to-previous-arg 'byte-optimizer 'byte-compile-inline-expand) (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 ((set-syntax-table saved-syntax)) set-syntax-table nil reftex-what-macro] 3]) (defalias 'reftex-what-macro #[(which &optional bound) "\204\301 \210\302\303\215\207" [reftex-section-regexp reftex-compile-variables exit (byte-code "\204 \306\307\310\"\210 \206\212\311\n\310\312#\210`)\310\211\211\211\211\211\214\212\312 ]d}\210\310\313\314\217\203\351\312\315 h\316>\206X\203W\311\317 \320#\203W\315\224Tb\210\320\202X\310)\203r\310\321\322\217\203rg\323=\203l\fT T\2029`g\323U\204\201g\324U\203\342\311\325\310\320#\203\342\326\315!\327\330!\203\234\326\315! S\331 \"\211\203\266 \332 8\206\257\333V\203\266\310\203\342\320=\203\315`BB\202\342\312=\204\332\235\203\342\306\307`B\"\210b\210\202.)\237.\207" [which bound reftex-section-regexp entry cnt-opt cnt throw exit nil re-search-backward 1 (byte-code "\300\301!\210\302\207" [up-list -1 t] 2) ((error)) 0 (93 125) "[]}][ ]*[\n ]?\\([ ]*%[^\n ]*[\n ]\\)*[ ]*\\=" t (byte-code "\300 \210\301\207" [backward-sexp t] 1) ((error)) 91 123 "\\\\[*a-zA-Z]+\\=" reftex-match-string looking-at "\\\\begin{[^}]*}" assoc 4 100 cmd cmd-list pos reftex-allow-detached-macro-args reftex-env-or-mac-alist] 7)] 2]) (defalias 'reftex-what-environment #[(which &optional bound) "\204\301 \210\302\303\215\207" [reftex-section-regexp reftex-compile-variables exit (byte-code "\212\204\n\306\307\310\"\210 \206\212\311\n\310\312#\210`)\310\211\211\311\313 \314#\203n\315\316\224\316\225\"\317\312!\320\230\203< \fB\202 \f@\232\203I\fA\202\314=\203X `B B\202\312=\204d \235\203\306\307 `B\"\210\202 \237-\207" [which bound reftex-section-regexp env end-list env-list throw exit nil re-search-backward 1 "\\\\\\(begin\\|end\\){\\([^}]+\\)}" t buffer-substring-no-properties 2 match-string "end"] 4)] 2]) (defalias 'reftex-what-special-env #[(which &optional bound) "\204\301 \210\302\303\215\207" [reftex-section-regexp reftex-compile-variables exit (byte-code "\212\204\n\306\307\310\"\210 \204\306\307\310\"\210\n\206 \212\311 \310\312#\210`) <\203,\313\314\"\202-\310\211\313\315\"\316\310 \"\317 \320\" \321=\203N \202P @-\207" [reftex-special-env-parsers which bound reftex-section-regexp rtn specials throw exit 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)] 2]) (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]) (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]) (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\236 W\203\213 \f\235\203Qg\321=\203Q T\211\202? W\2038\307\322\323\217\203\205\307g\314>\206z \203y\315\316!\203y\317\225Sb\210\320\202z\307)\203\205 T\211\2048\310\211\2029 \f>\203\236g\321=\203\236 T\211\202\214 U\205\256\324\307w\317V\205\256\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 (byte-code "\300\301!\206\302\207" [forward-list 1 t] 2) ((error)) "{\\["] 4]) (defalias 'reftex-move-over-touching-args #[nil "\300\301\302\217\207" [nil (byte-code "g\300>\205 \301\302!\210\202\207" [(91 123) forward-list 1] 2) ((error))] 3]) (defalias 'reftex-context-substring #[(&optional to-end) "\203 \302``\303\\\304 \305\216\306\307\310\311#\203\312\224\202d*^\"\207h\313U\204,h\314U\203:\302``\303\\d^\310\315\316\217^\"\207\302``\303\\d^\"\207" [to-end save-match-data-internal buffer-substring-no-properties 150 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "\\\\end{" nil t 0 123 91 (byte-code "\300\301!\210`S\207" [up-list 1] 2) ((error (point-max)))] 7]) (byte-code "\302B\303\302!\204\304\302\305 \306\"\"\210\302\207" [current-load-list reftex-max-section-depth reftex-section-numbers default-boundp set-default make-vector 0] 5) (defalias 'reftex-init-section-numbers #[(&optional toc-entry appendix) "\3068\206\307\310\3118\206\312\313\"\237 GS\211\314 \315Y\203c V\2031 \315I\210\202\\\n@\2067\316\317\320\"\203N \321!\322ZI\210\202V \323!I\210\n\211A@\210 S\211\202-\324\303\325#\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 64 string-to-number put appendix number-string] 5]) (defalias 'reftex-section-number #[(&optional level star) "GS\306\211\307\300\305N?\205\310\232\203[\311V\2035 \2045HTI\210T \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\310\f\"!\331\\S!\f\310\225\306OP* \203\364\332\fGS\333\"\334P\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`\\([@0]\\.\\)+" replace-match "\\(\\.0\\)+\\'" "\\`[0-9]+" char-to-string string-to-number match-string 65 make-string 32 "*" reftex-part-resets-chapter level partspecial star save-match-data-internal] 6]) (defalias 'reftex-roman-number #[(n) "\306\307\310\211\211\n\n\311Y\2035\f\211A@\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])