;ELC ;;; Compiled ;;; in Emacs version 27.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\300\302!\207" [require reftex reftex-parse] 2) #@147 Return the environment or macro which determines the label type at point. If optional BOUND is an integer, limit backward searches to that point. (defalias 'reftex-label-location #[(&optional bound) "\306 \"\307 \"\310\311 \"\nA\206\312\fA\206\312 A\206%\312]]\211U\203M\n@G\\\n@\206\230\313\202\230U\203h\314\315\f@G#\f@\206\230\313\202\230U\203\227 @\211\204\313\202\230 9\203\212\316 !\202\230 ;\203\223 \202\230\313\202\230\313.\207" [reftex-label-mac-list bound loc1 reftex-label-env-list loc2 loc3 reftex-what-macro reftex-what-environment reftex-what-special-env 1 0 "section" + 8 symbol-name p1 p2 p3 pmax reftex-location-start reftex-default-context-position] 5 (#$ . 482)]) (defalias 'reftex-label-info-update #[(cell) "@A@\3068\3078\3108\311 \312=?\"\211\204, \n\313 \f\314\257\202irq\210\214~\210\315b\210\316\317\320 !\"\321\312#\204S\316\317\320 !\"\321\312#\203a\322u\210\323\324 \" C\"\202h \n\313 \314\257*.\207" [cell label typekey file comment note 3 4 5 reftex-get-file-buffer-force t "" "LOST LABEL. RESCAN TO FIX." 1 re-search-forward format regexp-quote nil -1 append reftex-label-info reftex-keep-temporary-buffers buf reftex-find-label-regexp-format reftex-find-label-regexp-format2] 7]) (defalias 'reftex-label-info #[(label &optional file bound derive env-or-mac) "\306\307\"\205 \310\311\"\312 \n\"A\f\206\313  \314  \203]\315=\204O\203];\203>\306 \"\202L<\203K \235\202L\316\203] \317\320 !\f\257\202\221\206f\321!\312\"A@\322\312\"8\323$ \f\257,-\207" [label prefix reftex-prefix-to-typekey-alist typekey file reftex-trust-label-prefix string-match "^[a-zA-Z0-9]+:" match-string 0 assoc buffer-file-name reftex-in-comment t nil reftex-nicify-text reftex-context-substring reftex-label-location 2 reftex-short-context trust in-comment env-or-mac bound reftex-env-or-mac-alist parse reftex-location-start derive text] 5]) #@474 Insert a unique label. Return the label. If ENVIRONMENT is given, don't bother to find out yourself. If NO-INSERT is non-nil, do not insert label into buffer. With prefix arg, force to rescan document first. When you are prompted to enter or confirm a label, and you reply with just the prefix or an empty string, no label at all will be inserted. A new label is also recorded into the label list. This function is controlled by the settings of reftex-insert-label-flags. (defalias 'reftex-label #[(&optional environment no-insert) "\306!\210 \203\307 \n\"\204\310  \204\311\312!\210\31326\307 \n\"\211A@\314 8\315\316!>\307>@\n\"?\317\211@A\317\211BC\317\211DE\317F\320 8\204Z\320?8\203eh\321>\203e\322A\323\307\fG\"A\206q\f\324PB\325B!B\326\fH@\"\203\340\327\330\331 @IJ#J\332\333\334\335\317\211\322$8!D\336\337D\"\204\301\336\340D\"\204\301\336\341D\"\204\301\336\342D\"\204\301\336\343D\"\203\313BD\322E\202\370BKD!PD\344D\317\324#D\202\370\326\fHA@\"\203\361BD\202\370\344B\322\"D\326\fHA@\"\204E\203vC\204z\345A\203\346\202\347D\"@\336\350\351B!\352Q@\"\2036\353\354!\210\355\313\317\"\210\202\336L@\"\203O\353\356@\"\210\357 \210\360\333!\210\202\307@IJ\"\211\203o\357 \210\361\362\363@\"!\203\322\211C\202 \322\211C\202 D@\212A\204\205M\203\221>A\250\203\221>Ab\210\331 )\211N@ONA\203\244\364\202\245\365P\366 Q\317ROIJ>SNA\204\277\322FS\203\347@\fRQ\317P\257TS\211UTUAB\241\210*\367I\370\322#\210.M\204V\203\374V@ \"\202\305 @\"c\210W\203\371\372!\203\372@!\210X\203$\373\374\f!!\210\373\374\335!!\210F\2031Y\2031\375 \210@.\f0\207" [current-prefix-arg environment reftex-env-or-mac-alist entry typekey format reftex-access-scan-info assoc reftex-label-location error "Can't figure out what kind of label should be inserted" exit 3 reftex-what-macro 1 nil 5 (91 123) t "%s" "-" reftex-replace-prefix-escapes reftex-typekey-check reftex-last-assoc-before-elt toc reftex-where-am-I reftex-no-props 2 reftex-label-info " " string-match "NO MATCH FOR CONTEXT REGEXP" "INVALID VALUE OF PARSE" "SECTION HEADING NOT FOUND" "HOOK ERROR" "^[ ]*$" reftex-uniquify-label read-string "Naked Label: " "Label: " "\\`\\(" regexp-quote "\\)?[ ]*\\'" message "No label inserted." throw "Label \"%s\" contains invalid characters" ding sit-for y-or-n-p format-message "Label `%s' exists. Use anyway? " "" "POSITION UNCERTAIN. RESCAN TO FIX." buffer-file-name put modified fboundp LaTeX-add-labels reftex-erase-buffer reftex-make-selection-buffer-name reftex-parse-one macro-cell entry1 label naked prefix valid default force-prompt rescan-is-useful reftex-typekey-to-prefix-alist reftex-insert-label-flags reftex-docstruct-symbol reftex-active-toc reftex-string-to-label-function reftex-label-illegal-re no-insert here-I-am-info here-I-am note file text tail #1=#:v #2=#:v reftex-format-label-function reftex-plug-into-AUCTeX reftex-auto-update-selection-buffers reftex-allow-automatic-rescan] 8 (#$ . 2507) nil]) #@181 Convert a string (a sentence) to a label. Uses `reftex-derive-label-parameters' and `reftex-label-illegal-re'. It also applies `reftex-translate-to-ascii-function' to the string. (defalias 'reftex-string-to-label #[(string) "\203\304!\203 !\305\306 \307\n\310\211 &\207" [reftex-translate-to-ascii-function string reftex-label-illegal-re reftex-derive-label-parameters fboundp apply reftex-convert-string "[-~ \n ,;]+" nil] 8 (#$ . 5585)]) (defalias 'reftex-latin1-to-ascii #[(string) "\303\304\305\306\n\307#*\207" [emacsp tab string "@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@ icLxY|S\"ca<--R-o|23'uq..1o>423?AAAAAAACEEEEIIIIDNOOOOOXOUUUUYP3aaaaaaaceeeeiiiidnooooo:ouuuuypy" t mapconcat #[(c) "\303V\203\304W\203\305 \306ZH!\207\n\203,\307V\203,\310W\203,\305 \311ZH!\207\305!\207" [c tab emacsp 127 256 char-to-string 128 2175 2304 2176] 4] ""] 4]) (defalias 'reftex-replace-prefix-escapes #[(prefix) "\306 \307\216\310\311\310\312\313\f\n#\203\341\314\315\f\"\306 \316\216 \317\267\202\315\320\321 !\202\316\322\323 !\324\321 !&\312\325\326&!P \"\203J\327 &G\"\202K *\202\316\320\323 !\202\316\330\327\322\323 !\311\331#!\202\316\332 \206\316\333\202\316\310\211'(\310)\212\306 \334\216\335*\310\336#\203\253\337\340!'\341'+\"A\211(9\203\245\342\306 \343\216( *!\202\251\342(!)\341',\"\206\307\341),\"\206\307\336,\236\206\307\336\344DA.\202\316\333*\315\224 G\\S\345 \310\211\f$\202 \f-\207" [save-match-data-internal replace num letter prefix file match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil 0 string-match "%\\([a-zA-Z]\\)" match-string 1 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("f" 35 "F" 42 "m" 79 "M" 86 "u" 99 "S" 108)) file-name-base buffer-file-name file-name-directory reftex-TeX-master-file file-name-sans-extension "\\`" regexp-quote substring file-name-nondirectory -1 user-login-name "" #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-backward t reftex-match-string 2 assoc abs #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "sec:" replace-match masterdir macro level-exp level reftex-section-regexp reftex-section-levels-all reftex-section-prefixes] 6]) (defalias 'reftex-uniquify-label #[(label &optional force separator) "\306 \210\204\307 \nJ\"\204 \207\303\nJ\236\211A\307 \f\"\206( \310B\fB\241@\211AT \f\2064\311 \307  \312 !Q\nJ\"\203M T \2026  \241\210  \312 !Q-\207" [force label reftex-docstruct-symbol label-numbers label-numbers-alist cell reftex-access-scan-info assoc 0 "" int-to-string num separator sep] 6]) (defconst reftex-select-label-prompt "Select: [n]ext [p]revious [r]escan [ ]context e[x]tern [q]uit RET [?]HELP+more") (defconst reftex-select-label-help " n / p Go to next/previous label (Cursor motion works as well)\n C-c C-n/p Go to next/previous section heading.\n b / l Jump back to previous selection / Reuse last referenced label.\n z Jump to a specific section, e.g. '3 z' jumps to section 3.\n g / s Update menu / Switch label type.\n r / C-u r Reparse document / Reparse entire document.\n x Switch to label menu of external document (with LaTeX package `xr').\n F t c Toggle: [F]ile borders, [t]able of contents, [c]ontext\n # % Toggle: [#] label counters, [%] labels in comments\n SPC / f Show full context in other window / Toggle follow mode.\n . Show insertion point in other window.\n v / V Toggle \\ref <-> \\vref / Rotate \\ref <=> \\fref <=> \\Fref\n TAB Enter a label with completion.\n m , - + Mark entry. `,-+' also assign a separator.\n a / A Put all marked entries into one/many \\ref commands.\n q / RET Quit without referencing / Accept current label (also on mouse-2).") #@489 Make a LaTeX reference. Look only for labels of a certain TYPE. With prefix arg, force to rescan buffer for labels. This should only be necessary if you have recently entered labels yourself without using reftex-label. Rescanning of the buffer can also be requested from the label selection menu. The function returns the selected label or nil. If NO-INSERT is non-nil, do not insert \ref command, just return label. When called with 2 C-u prefix args, disable magic word recognition. (defalias 'reftex-reference #[(&optional type no-insert cut) "\306 \210\307!\210\310\301!\205 \205 \n\311\312\211\211\211\211*+,\211\204\216-\203x.\312/\2110\203V0@\211/@\313 \235\203M\314\315\316/8\"\2100A\2110\2048*\317\320\321\322\323 \324#P\"1\3251 \"A\211\204t\326\3271\"\210)\202\216\316\325\313 @.\"8@@\206\215\316.@8@@2\204\261\203\255\330 \2112\203\2552A32@2\202\261\331 24`\312\223\210\212\3322!)*\333 \2104\312\211\223\210*@\334=\203\340\322\335*A\336#*A@ADC**@A@2\32525\"A\206\363,,6\203*@@\202\215*\204\337\340!\210\312\202\215*\203\207*@@+\316*@8\325 7\"A*A*3\2038\3413!\210\3123\342,!\343U\203Nh\344\235\203N\345,\346\", \347\230\204V\350\f\203]\fc\210\n\203k\n+, #\202r\351,+\211#c\210\342,!\343U\203\345,\346\",\202\337\320!\210+.\207" [current-prefix-arg reftex-refstyle reftex-format-ref-function style-alist sep1 sep reftex-check-recursive-edit reftex-access-scan-info boundp "\\ref{%s}" nil reftex-ref-style-list mapc #[(x) "A@@B\211\n\235\203\n\202\303\n C\"\211)\207" [x #1=#:x style-alist append] 4] 2 reftex-select-with-char #2="" "SELECT A REFERENCE FORMAT\n\n" mapconcat #[(x) "\301\302@@\303V\203\304\202\305A$\207" [x format "[%c] %s %s" 31 " " #2#] 5] "\n" assoc error "No reference macro associated with key `%c'" reftex-guess-label-type reftex-query-label-type reftex-offer-label-menu reftex-ensure-compiled-variables concat car "," message "Quit" backward-delete-char string-to-char 126 (32 9 10 126) substring 1 "\\ref" reftex-format-special format labels label form reftex-ref-macro-prompt reftex-ref-style-alist elt --dolist-tail-- key type cut reftex-select-return-marker reftex-typekey-to-format-alist no-insert reftex-multiref-punctuation] 9 (#$ . 9566) nil]) (defalias 'reftex-guess-label-type #[nil "\306e`\307Z]\310\211\212 \211A\242\211\203$\311 @ \306#\211\203)\n\2051 A\312\225\313\225ZB-\207" [reftex-words-to-typekey-alist cell matched bound case-fold-search words t 35 nil re-search-backward 0 1] 5]) (defalias 'reftex-offer-label-menu #[(typekey) "p\306 J\236\307\310 B\nA@B\311\312 @\211@\313AB\311#C\313AB\314#D\313AB\315#?E\313AB\316#F\313AB\317#G\320B8H\307I\321\211JK\321\211LM\321\211NO\321P\322\216\3232r\324 Q\325\216\326 \210R\327 ST\203\217\330rq\210\331A!)!\210\202\226\330\332!\210\333 \210U\334=\204\240\334 \210pV\335VJ\"\203\262J\210\202\271VJBJ)\336W\337\340\341\342\343X\344\345\346\347\350\257 Y\351 \311U\203\373\321Z\352\353!\210\354CA\321DEFH \206\360KI\321& K)\202  \203\n\355 A#K\202 \336K\336ZK\206\336K\321\356[\\]K\357G&\211L@MLA@N\316L8O\336KM\204G\360\323\321\"\210M\361=\203T\333 \210\202mM\362=\204bM\363=\203x^\203j\363M\333 \210\364OM#\210\202mM\365\267\202\377\333 \210E?E\202m@\366 A\202m\333 \210^\203\245\367^!_\202mC?C\202m\333 \210D?D\202m\333 \210F?F\202m\333 \210H?H\202m`P\360\323\336\"\210\202m\370 \f\"\371\f 8A!\206\353\372\373!\f 8@\206\364\307Iq\210\374 \210\202mM;\203\375M J\"\206MADCCP\360\323\336\"\210\202mM\376>\203ga\2033a\237P\202DN\203ANCCP\202D\321PP\203\\M\377\232\203X\201bPBPP`q\210\360\323\336\"\210\202m\372\201c!\210*\202k0\210)\201d\201eP\".\207" [buf reftex-docstruct-symbol xr-data xr-alist xr-index here-I-am xr "" buffer-file-name 0 reftex-where-am-I reftex-typekey-check 7 3 2 4 5 nil #[nil "\212\203@@q\210\211A\242A\202)\303\304\n\"\210\305 \207" [reftex-buffers-with-changed-invisibility buffer-invisibility-spec selection-buffers mapc #[(buf) "\301!\205 \302!\207" [buf buffer-live-p bury-buffer] 2] reftex-kill-temporary-buffers] 3] exit current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] delete-other-windows syntax-table switch-to-buffer-other-window reftex-make-selection-buffer-name "*RefTeX Select*" reftex-erase-buffer reftex-select-label-mode memql t "---- " mode-line-buffer-identification " " global-mode-string " (" ")" " S<" reftex-refstyle ">" " -%-" buffer-size message "Creating Selection Buffer..." reftex-insert-docstruct reftex-get-offset reftex-select-item reftex-show-label-location throw 103 114 82 reftex-reparse-document #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 383 115 394 116 404 70 429 35 440 37 451 108 462 120 474)) reftex-query-label-type prefix-numeric-value reftex-select-external-document reftex-get-file-buffer-force error "Cannot switch document" reftex-access-scan-info assoc (97 65 return) 97 here-I-am1 typekey reftex-label-menu-flags toc files context counter follow commented prefix selection-buffers offset rtn key data last-data entries #1# reftex-call-back-to-this-buffer reftex-latex-syntax-table reftex-use-multiple-selection-buffers major-mode #2=#:var truncate-lines mode-name mode-line-format buffer-read-only reftex-select-label-prompt reftex-select-label-help reftex-select-label-map current-prefix-arg reftex-toc-max-level reftex-last-used-reference reftex-select-marked concat "This should not happen (reftex-offer-label-menu)" mapcar #[(x) "<\203 @@P@A@\3028E\207\207" [x prefix 2] 4]] 13]) (defalias 'reftex-reparse-document #[(&optional buffer data key) "\306 \307\216\212 \203\310 !\204\311\312\313 !\"\210\202 q\210\n\314=\203'\315\202(\316\317 8\320 \f\"-\207" [#1=#:wconfig buffer key data file arg current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] bufferp error "No such buffer %s" buffer-name 82 (16) (4) 3 reftex-access-scan-info] 4]) (defalias 'reftex-query-label-type #[nil "\304 \305#\306\n! \235\204\307\310\306\n!\"\210\306\n!)\207" [reftex-type-query-prompt reftex-type-query-help key reftex-typekey-list reftex-select-with-char 3 char-to-string error "No such label type: %s"] 4]) (defalias 'reftex-show-label-location #[(data forward no-revisit &optional stay error) "\306  \203 \301\202\f\307\310\211\310\211\310\3112\311@\3128\211\2043\n\313!\210\314\311\310\"\210\203>\315\f!\202D\316\f ?\"\211\203P\317 !\210\202Z\n\320 \"\210\314\311\310\"\210\321!\322 !\"\"\203q\323\310\324#\202w\325\310\324#\211\204\231eb\210\323\310\324#\211\204\231\323\321#\322 !\"\310\324#\312\225\203\275\326\327\312\224\312\225#\210\330\312\224\312\225\"\210\331\332!\210$\204\306\333!\210\202\306\333!\210\n\320 \"\2100.\207" [this-window error errorf label file buffer selected-window message nil exit 3 "Unknown label - reparse might help" throw reftex-get-buffer-visiting reftex-get-file-buffer-force switch-to-buffer-other-window "Label %s not found" format regexp-quote re-search-forward t re-search-backward reftex-highlight 0 reftex-show-entry recenter (4) select-window re found data no-revisit reftex-keep-temporary-buffers reftex-find-label-regexp-format forward reftex-find-label-regexp-format2 stay] 6]) (defalias 'reftex-show-entry #[(beg-hlt end-hlt) "\306 \307\245\212\310\311\312\313$\210`)\212\314\311\312\313$\210`)\315\303!\2039 \2039\316\fT\317\"\2039p B B\312\211\202\251\320\321 \n{\"\205\251\322 \n\"%\323\324!\210\312&\325 \210%c\210\326ed\327\330\331%\210\f Zb\210\332\333\f ZT' ZT#\210\334 \203\221(\335=\203\201)\204\240\335 \210\336\337*\340#\210\341 \210\202\240(\342=\203\235)\203\240\342 \210\343\344!\210\331\211&)+\207" [n beg end buffer-invisibility-spec beg-hlt reftex-buffers-with-changed-invisibility reftex-window-height 2 re-search-backward "[\n ]" nil 1 re-search-forward boundp get-char-property invisible string-match " " buffer-substring-no-properties switch-to-buffer "*RefTeX Context Copy*" erase-buffer subst-char-in-region 13 10 t reftex-highlight 0 reftex-refontify latex-mode run-hook-with-args reftex-pre-refontification-functions reftex-hidden turn-on-font-lock fundamental-mode run-hooks reftex-display-copied-context-hook string buffer-read-only end-hlt major-mode font-lock-mode reftex-call-back-to-this-buffer] 6]) (byte-code "\306\211\203W\n@\211A@;\203P\307 8\306\211\203O\n@\211@ A@\310\311\312\313\314\f\315 \316 G##!\306\313\317 \f#\320\321\322 DC\323BB\257!\210*\nA\211\204*\nA\211\204*\306\207" [reftex-ref-style-alist elt --dolist-tail-- item package macro nil 2 eval defun intern format "reftex-%s-%s" substring 1 "Insert a reference using the `%s' macro from the %s package.\n\nThis is a generated function." (interactive) let reftex-refstyle ((reftex-reference))] 11) #@110 Apply selected reference style to format FMT and add LABEL. Replace any occurrences of "\ref" with REFSTYLE. (defalias 'reftex-format-special #[(label fmt refstyle) "\304\305\306 \")\203\307\n\310\211 \311%\202\305\312 \"\203$\307\n\310\211 \311%\313 \"\207" [case-fold-search fmt refstyle label nil string-match "\\(\\\\ref\\)[ ]*{" replace-match t 1 "\\(\\\\[[:alpha:]]+\\)[ ]*{" format] 6 (#$ . 18657)]) #@153 Prompt for a label (with completion) and jump to the location of this label. Optional prefix argument OTHER-WINDOW goes to the label in another window. (defalias 'reftex-goto-label #[(&optional other-window) "\306 \210\307  J\310\311\312 \"\205\313\314!\315 \203!\316\317 \"\202\"\320\n\321\322\323\211 &\324\f\n\"\325 \322\323\326$\210\327 \204O\330!\210\331\332!!\210b\210\333\334!.\207" [wcfg reftex-docstruct-symbol docstruct default label selection reftex-access-scan-info current-window-configuration looking-back "\\\\\\(?:page\\)?ref{[-a-zA-Z0-9_*.:]*" line-beginning-position reftex-this-word "-a-zA-Z0-9_*.:" completing-read format "Label (default %s): " "Label: " #[(x) "@;\207" [x] 1] t nil assoc reftex-show-label-location stay point-marker set-window-configuration switch-to-buffer marker-buffer reftex-unhighlight 0 where other-window] 8 (#$ . 19082) "P"]) (provide 'reftex-ref)