| Current File : //proc/self/root/kunden/proc/self/root/usr/share/emacs/27.2/lisp/textmodes/reftex-global.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\302\303!\207" [provide reftex-global require reftex] 2)
#@129 Create TAGS file by running `etags' on the current document.
The TAGS file is also immediately visited with `visit-tags-table'.
(defalias 'reftex-create-tags-file #[nil "\304!\210\305 \306 \307\310\311\312\n\313#\"r\314 !q\210\315\316!\210\317 !\210\320\321!,\207" [current-prefix-arg master files cmd reftex-access-scan-info reftex-TeX-master-file reftex-all-document-files format "etags %s" mapconcat shell-quote-argument " " reftex-get-file-buffer-force message "Running etags to create TAGS file..." shell-command visit-tags-table "TAGS"] 6 (#$ . 491) nil])
(defvar reftex-grep-history nil)
#@75 Last grep command used in \[reftex-grep-document]; default for next grep.
(defvar reftex-grep-command "grep -n " (#$ . 1096))
#@137 Run grep query through all files related to this document.
With prefix arg, force to rescan document.
No active TAGS table is required.
(defalias 'reftex-grep-document #[(grep-cmd) "\304!\210\305\306!\307\310\n\311\312 \313##\314 !*\207" [current-prefix-arg files grep-cmd cmd reftex-access-scan-info reftex-all-document-files t format "%s %s" mapconcat identity " " grep] 7 (#$ . 1229) (list (read-from-minibuffer "Run grep on document (like this): " reftex-grep-command nil nil 'reftex-grep-history))])
#@229 Regexp search through all files of the current document.
Starts always in the master file. Stops when a match is found.
To continue searching for next match, use command \[tags-loop-continue].
No active TAGS table is required.
(defalias 'reftex-search-document #[(&optional regexp) "\303 \204 \304\305\306\"! \307\230\203 \310!\311\n!\210\312 \313C\")\207" [default regexp current-prefix-arg reftex-this-word read-string format "Search regexp in document [%s]: " "" regexp-quote reftex-access-scan-info tags-search reftex-all-document-files] 4 (#$ . 1744) nil])
#@294 Do `query-replace-regexp' of FROM with TO over the entire document.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (\[keyboard-quit], RET or q), you can resume the query replace
with the command \[tags-loop-continue].
No active TAGS table is required.
(defalias 'reftex-query-replace-document #[(&optional from to delimited) "\305 \204 \306\307\310\"!\211\311\230\203 \312!\n\204# \306\307\313 \"!\314 !\210\315 \n\316 \211\227\232?\2055 \300\f\206: %\210\317 )\207" [default from to current-prefix-arg delimited reftex-this-word read-string format "Replace regexp in document [%s]: " "" regexp-quote "Replace regexp %s with: " reftex-access-scan-info fileloop-initialize-replace reftex-all-document-files fileloop-continue] 7 (#$ . 2322) nil])
#@57 Produce a list of all duplicate labels in the document.
(defalias 'reftex-find-duplicate-labels #[nil "\305\306!\210\307 \310\311\312\313J!\"\313 !\211\204 \314\315!\210\316\317!\210\320\304!\210 \321 \210\322c\210\323\324\261\210\325c\210\326c\210\327\330 !\210\331\332\333\"\210\331\334\335\"\210 \203l @@\203d @A\203d \nT\336\337 @\340#\341\261\210 \211A\210\202G eb\210\n\310U\205 \342p!\210\343 \210\344\345!+\207" [reftex-docstruct-symbol dlist cnt master TeX-master reftex-access-scan-info t reftex-TeX-master-file 0 mapcar #[(x) "\303 @\304>\203
\303\202) \305 @\nJ\"\306GW\203' \307 @C\310\311\"\"\202) \303C)\207" [x1 x reftex-docstruct-symbol nil (toc bof eof bib thebib label-numbers xr xr-doc master-dir file-error bibview-cache appendix is-multi index) reftex-all-assoc-string 1 append mapcar #[(x) "\301\3028!\207" [x abbreviate-file-name 3] 3]] 5] reftex-uniquify-by-car error "No duplicate labels in document" switch-to-buffer-other-window "*Duplicate Labels*" make-local-variable erase-buffer " MULTIPLE LABELS IN CURRENT DOCUMENT:\n" " Move point to label and type `r' to run a query-replace on the label\n" " and its references. Type `q' to exit this buffer.\n\n" " LABEL FILE\n" " -------------------------------------------------------------\n" use-local-map make-sparse-keymap local-set-key [113] #[nil "\300p!\210\301 \207" [kill-buffer delete-window] 2 "Kill this buffer." nil] [114] reftex-change-label mapconcat identity "\n " "\n" kill-buffer delete-window message "Document does not contain duplicate labels."] 7 (#$ . 3125) nil])
#@257 Run `query-replace-regexp' of FROM with TO in all macro arguments.
Works on the entire multifile document.
If you exit (\[keyboard-quit], RET or q), you can resume the query replace
with the command \[tags-loop-continue].
No active TAGS table is required.
(defalias 'reftex-change-label #[(&optional from to) "\303\304! \204 \305\306\307\"! \310\230\203 \n\204\" \305\306\311 \"!\312\313\314 !\315Q\306\316\n\"\")\207" [default from to reftex-this-word "-a-zA-Z0-9_*.:" read-string format "Replace label globally [%s]: " "" "Replace label %s with: " reftex-query-replace-document "{" regexp-quote "}" "{%s}"] 5 (#$ . 4745) nil])
#@581 Renumber all simple labels in the document to make them sequentially.
Simple labels are the ones created by RefTeX, consisting only of the
prefix and a number. After the command completes, all these labels will
have sequential numbers throughout the document. Any references to
the labels will be changed as well. For this, RefTeX looks at the
arguments of any macros which either start or end in the string `ref'.
This command should be used with care, in particular in multifile
documents. You should not use it if another document refers to this
one with the `xr' package.
(defalias 'reftex-renumber-simple-labels #[nil "\306\307!\210\310 \203 \311\312!\204 \313\314!\210\315\316\317\320#\321Q\322 \323Q\324 \325Q\326 \327\330\" \331 ,-J .\332\211 / 0\332\211 1 2\332\211 3 4\332 5.\211A.\242\2111\203\264 1@;\203K \333\n1@\"\203K 1@2\334\335\3071@\"
\"4\3342/\"\203\207 \313\3362\"\210\335\3071@\"\3374\211 6\211AT\241)!P323B/B/23\230\204K \3405\202K 5\204\275 \313\341!\210\342\331 !\210\343 \210\344, /\f\345%0\311\346\347/G0,G$!\203 \340 7\344, /\f\332%\210\3328)\310 \203\377 \311\350!\203\377 \343 \210\306\307!\210\351\352!\202\f\351\353!.\207" [reftex-typekey-to-prefix-alist re-core label-re search-re error-fmt label-numbers-alist reftex-access-scan-info 1 reftex-is-multi yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? " error "Abort" "\\(" mapconcat cdr "\\|" "\\)" "\\`" "\\([0-9]+\\)\\'" "[{,]\\(" "\\([0-9]+\\)\\)[,}]" "Undefined label or reference %s. Ignore and continue? " mapcar #[(x) "A\301B\207" [x 0] 2] reftex-all-document-files nil string-match assoc match-string "Duplicate label %s" int-to-string t "Simple labels are already in correct sequence" reftex-ensure-write-access reftex-save-all-document-buffers reftex-translate test format "Replace %d items at %d places in %d files? " "Save entire document? " message "Done replacing simple labels." "No replacements done" files reftex-docstruct-symbol list translate-alist n entry label new-label nr-cell changed-sequence #1=#:v inhibit-quit quit-flag] 7 (#$ . 5389) nil])
(defalias 'reftex-translate #[(files search-re translate-alist error-fmt test) "\306\307\211\211\211\211\211\211 \211A \242\211 \203\336 \310 !\211\204. \311\312 \"\210 q\210\212\214~\210eb\210\313!\307\314#\203\332 \315u\210\212\316\317!\320
\"\"\304 \321\317!\211A\211\206^ `b\210\n\203\326 \322\323!\204\202 \322\324!\204\202 \322\325!\204\202 \322\326#\327
!\"!\203\326 \330\f!\210$\203\256 \204\256 \331\216\332\317\306\224\306\225#\210\333 \210\334\326%
\"!\204\252 \311\335!\210)\202\326 $\203\277 \203\277 T \202\326 $\204\326 \203\326 \317\224b\210\317\224\317\225|\210Ac\210)\2028 *\202 .\207" [cell pos macro buf match-data label 0 nil reftex-get-file-buffer-force error "No such file %s" re-search-forward t -1 reftex-match-string 1 assoc reftex-what-macro looking-at "\\\\ref" "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]" "\\\\ref[a-zA-Z]*[^a-zA-Z]" format regexp-quote set-match-data #[nil "\300\301!\207" [reftex-unhighlight 1] 2] reftex-highlight ding y-or-n-p "Abort" file n files search-re translate-alist reftex-find-label-regexp-format test error-fmt] 9])
#@141 Save all documents associated with the current document.
The function is useful after a global action like replacing or renumbering
labels.
(defalias 'reftex-save-all-document-buffers #[nil "\303 \304\211r\n\211A\242\211\205# \305 !\211\203 q\210\306 \210\202 ,\207" [buffer file files reftex-all-document-files nil reftex-get-buffer-visiting save-buffer] 4 (#$ . 8638) nil])
#@120 Make sure we have write access to all files in FILES.
Also checks if buffers visiting the files are in read-only mode.
(defalias 'reftex-ensure-write-access #[(files) "\304\211\n\211A\242\211\205` \305 !\204$ \306 \210\307\310\311 \"!\204$ \312\313!\210\314 !\204: \306 \210\307\310\315 \"!\204: \312\313!\210\316 !\211\203 rq\210 )\203 \306 \210\307\310\317\320!\"!\204 \312\313!\210\202 *\207" [buf file files buffer-read-only nil file-exists-p ding y-or-n-p format "No such file %s. Continue? " error "Abort" file-writable-p "No write access to %s. Continue? " reftex-get-buffer-visiting "Buffer %s is read-only. Continue? " buffer-name] 5 (#$ . 9030)])
(defalias 'reftex-isearch-wrap-function #[nil "\302p\303\"!\210 \203 e\202 db\207" [isearch-next-buffer-function isearch-forward switch-to-buffer t] 4])
(defalias 'reftex-isearch-push-state-function #[nil "\300\301\302\303pEE\207" [lambda (cmd) reftex-isearch-pop-state-function cmd] 5])
(defalias 'reftex-isearch-pop-state-function #[(cmd buffer) "\301!\207" [buffer switch-to-buffer] 2])
(defalias 'reftex-isearch-isearch-search #[(string bound noerror) "\306\307 \n \f#\206` ?\205` \3101^
\205Z \n \f#\204Y
\203@
p!\211\2046 \311\312!\210\202 \313 !\210eb\210\202
p!\211\204O \311\314!\210\202 \313 !\210db\210\202 `0\202` \210\306*\207" [search-fun nxt-buff string bound noerror isearch-next-buffer-function nil isearch-search-fun-default (error) error "Wrap forward" switch-to-buffer "Wrap backward" isearch-forward] 5])
(defalias 'reftex-isearch-switch-to-next-file #[(crt-buf &optional wrapp) "\305 \210\306!\307 \205> \203 \f\2046 \310 !\2026 \f\204% \311 ! @\n\230\2043 A\211\202& A \205> \312 @!*\207" [crt-buf flist cb wrapp isearch-forward reftex-access-scan-info buffer-file-name reftex-all-document-files last reverse find-file-noselect] 3])
#@343 When on, isearch searches the whole document, not only the current file.
This minor mode allows isearch to search through all the files of
the current TeX document.
With no argument, this command toggles
`reftex-isearch-minor-mode'. With a prefix argument ARG, turn
`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off.
(defalias 'reftex-isearch-minor-mode #[(&optional arg) "\n\204\n \206 \306\n!\307X?\211 =\204\257 \203n \310 \311\211 \203e \f@r q\210
\203] \312\313!\203? \314\313!\210\315 \202[ \314\316!\210\317\314\320!\210\321\314\322!\210\323\314\324!\210\315\325)\fA\211\204$ *\326\327\300\"\210\202\257 \310 \311\211 \203\251 \f@r q\210
\203\241 \312\313!\203\217 \330\313!\210\202\237 \330\316!\210\330\320!\210\330\322!\210\330\324!\210\311)\fA\211\204w *\331\327\300\"\210\332\333 !)\207" [reftex-isearch-minor-mode old-reftex-isearch-minor-mode arg crt-buf --dolist-tail-- reftex-mode prefix-numeric-value 0 buffer-list nil boundp multi-isearch-next-buffer-function make-local-variable reftex-isearch-switch-to-next-file isearch-wrap-function reftex-isearch-wrap-function isearch-search-fun-function #[nil "\300\207" [reftex-isearch-isearch-search] 1] isearch-push-state-function reftex-isearch-push-state-function isearch-next-buffer-function t add-hook reftex-mode-hook kill-local-variable remove-hook set-buffer-modified-p buffer-modified-p] 4 (#$ . 10893) "P"])
(byte-code "\300\301\302\303\211\301%\207" [add-minor-mode reftex-isearch-minor-mode "/I" nil] 6)