Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/textmodes/reftex-ref.elc

;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.

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


(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@\3148\315\316!>\307>@\n\"?\317\211@A\317\211BC\317\211DE\317F\3208\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@\"\204
E\203v
C\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\205
M\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\374
V@
\"\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\"\203MT\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\203N
h\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\257Y\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=\204b
M\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\f8A!\206\353
\372\373!\f8@\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\3178\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\"\2039pB
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)