%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/textmodes/
Current File : //usr/local/share/emacs/27.2/lisp/textmodes/reftex-toc.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 "\302\303!\210\304\305!\210\306\307\310\311#\210\312\311\211\2034	@\307N\203-\310N\204-\313\310\307N#\210	A\211\204*\314\307\310\315#\207" [prop --dolist-tail-- provide reftex-toc require reftex defvaralias reftex-toc-map reftex-toc-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6)
#@31 Keymap used for *toc* buffer.
(defvar reftex-toc-mode-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\310\311\312	$\210\310\313\314	$\210\303\315\312#\210\303\316\314#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\201A\201B!\210\201C\201D\201E\201F$\210)\207" [map global-map make-sparse-keymap define-key [(mouse-2)] reftex-toc-mouse-goto-line-and-hide [follow-link] mouse-face substitute-key-definition next-line reftex-toc-next previous-line reftex-toc-previous "n" "p" "?" reftex-toc-show-help " " reftex-toc-view-line "
" reftex-toc-goto-line-and-hide "	" reftex-toc-goto-line ">" reftex-toc-display-index "r" reftex-toc-rescan "R" reftex-toc-Rescan "q" reftex-toc-quit "k" reftex-toc-quit-and-kill "f" reftex-toc-toggle-follow "a" reftex-toggle-auto-toc-recenter "d" reftex-toc-toggle-dedicated-frame "F" reftex-toc-toggle-file-boundary "i" reftex-toc-toggle-index "l" reftex-toc-toggle-labels "t" reftex-toc-max-level "c" reftex-toc-toggle-context "\245" reftex-toc-rename-label "x" reftex-toc-external "z" reftex-toc-jump "." reftex-toc-show-calling-point "" reftex-toc-next-heading "" reftex-toc-previous-heading ">" reftex-toc-demote "<" reftex-toc-promote (lambda (#1=#:def-tmp-var) (defvar reftex-toc-menu #1# #2="Menu for Table of Contents buffer")) nil easy-menu-do-define reftex-toc-menu #2# ("TOC" ["Show Location" reftex-toc-view-line t] ["Go To Location" reftex-toc-goto-line t] ["Exit & Go To Location" reftex-toc-goto-line-and-hide t] ["Show Calling Point" reftex-toc-show-calling-point t] ["Quit" reftex-toc-quit t] "--" ("Edit" ["Promote" reftex-toc-promote t] ["Demote" reftex-toc-demote t] ["Rename Label" reftex-toc-rename-label t]) "--" ["Index" reftex-toc-display-index t] ["External Document TOC  " reftex-toc-external t] "--" ("Update" ["Rebuilt *toc* Buffer" revert-buffer t] ["Rescan One File" reftex-toc-rescan reftex-enable-partial-scans] ["Rescan Entire Document" reftex-toc-Rescan t]) ("Options" "TOC Items" ["File Boundaries" reftex-toc-toggle-file-boundary :style toggle :selected reftex-toc-include-file-boundaries] ["Labels" reftex-toc-toggle-labels :style toggle :selected reftex-toc-include-labels] ["Index Entries" reftex-toc-toggle-index :style toggle :selected reftex-toc-include-index-entries] ["Context" reftex-toc-toggle-context :style toggle :selected reftex-toc-include-context] "--" ["Follow Mode" reftex-toc-toggle-follow :style toggle :selected reftex-toc-follow-mode] ["Auto Recenter" reftex-toggle-auto-toc-recenter :style toggle :selected reftex-toc-auto-recenter-timer] ["Dedicated Frame" reftex-toc-toggle-dedicated-frame t]) "--" ["Help" reftex-toc-show-help t])] 5) (#$ . 753))
(defvar reftex-last-window-height nil)
(defvar reftex-last-window-width nil)
(defvar reftex-toc-include-labels-indicator nil)
(defvar reftex-toc-include-index-indicator nil)
(defvar reftex-toc-max-level-indicator nil)
(defvar reftex-toc-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [reftex-toc-mode-hook variable-documentation put "Hook run after entering TOC mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp reftex-toc-mode-map definition-name reftex-toc-mode] 4)
(defvar reftex-toc-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [reftex-toc-mode-abbrev-table reftex-toc-mode-map variable-documentation put purecopy "Keymap for `reftex-toc-mode'." boundp reftex-toc-mode-syntax-table definition-name reftex-toc-mode (lambda (#1=#:def-tmp-var) (defvar reftex-toc-mode-syntax-table #1#)) make-syntax-table "Syntax table for `reftex-toc-mode'." (lambda (#1#) (defvar reftex-toc-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `reftex-toc-mode'." derived-mode-parent special-mode] 5)
#@379 Major mode for managing Table of Contents for LaTeX files.
This buffer was created with RefTeX.
Press `?' for a summary of important key bindings.

Here are all local bindings.

\{reftex-toc-mode-map}

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `reftex-toc-mode-hook', as the final or penultimate step
during initialization.
(defalias 'reftex-toc-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\3248\325\"\204V89=\204V\3268\3259C#\210\327!\210\330\f!\21089\306\331!\210\307\306\332!\210\333\306\334!\210\335\306\336!\210:\337U\203\206\340\202\212\341:!\342\343\344\345\346\n\347\350\334\351\352\353\351\354\336\351\355\257;\307<\306\356!\210\357\360\361\362\307$\210\357\363\364\362\307$\210\365=\"\210)\366\367!\207" [delay-mode-hooks major-mode mode-name reftex-toc-mode-map reftex-toc-mode-syntax-table parent make-local-variable t special-mode reftex-toc-mode "TOC" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table transient-mark-mode revert-buffer-function reftex-toc-revert reftex-toc-include-labels-indicator "" reftex-toc-max-level-indicator 100 "ALL" int-to-string "----  " mode-line-buffer-identification "  " global-mode-string "   (" ")" "  L<" ">" "  I<" reftex-toc-include-index-indicator "  T<" " -%-" reftex-last-follow-point add-hook post-command-hook reftex-toc-post-command-hook nil pre-command-hook reftex-toc-pre-command-hook easy-menu-add run-mode-hooks reftex-toc-mode-hook reftex-toc-mode-abbrev-table local-abbrev-table reftex-toc-max-level mode-line-format truncate-lines reftex-toc-menu] 18 (#$ . 5247) nil])
#@77 Stores the file name from which `reftex-toc' was called.  For redo command.
(defvar reftex-last-toc-file nil (#$ . 7154))
#@68 Marker which makes it possible to return from TOC to old position.
(defvar reftex-toc-return-marker (make-marker) (#$ . 7282))
(defconst reftex-toc-help "                      AVAILABLE KEYS IN TOC BUFFER\n                      ============================\nn / p      next-line / previous-line\nSPC        Show the corresponding location of the LaTeX document.\nTAB        Goto the location and keep the TOC window.\nRET        Goto the location and hide the TOC window (also on mouse-2).\n< / >      Promote / Demote section, or all sections in region.\nC-c >      Display Index. With prefix arg, restrict index to current section.\nq / k      Hide/Kill *toc* buffer, return to position of reftex-toc command.\nl i c F    Toggle display of  [l]abels,  [i]ndex,  [c]ontext,  [F]ile borders.\nt          Change maximum toc depth (e.g. `3 t' hides levels greater than 3).\nf / g      Toggle follow mode / Refresh *toc* buffer.\na / d      Toggle auto recenter / Toggle dedicated frame\nr / C-u r  Reparse the LaTeX document     / Reparse entire LaTeX document.\n.          In other window, show position from where `reftex-toc' was called.\nM-%        Global search and replace to rename label at point.\nx          Switch to TOC of external document (with LaTeX package `xr').\nz          Jump to a specific section (e.g. '3 z' goes to section 3).")
(defvar reftex--rebuilding-toc nil)
#@116 Show the table of contents for the current document.
When called with a raw C-u prefix, rescan the document first.
(defalias 'reftex-toc #[(&optional _rebuild reuse) "\306 \230\203	\203\307\310!\210\311 \306 `\312\223\210\f\203 \313
\203'\314 \210@\204.\312\315	!\210pA%B\316%J\236C\317\311 BCA@B6D\203V\320\321N\202Y\322 @E\323\324!\203i\324\325 \326\"\202m\327\312\326\"\312\211FG\330\310H\205}\331\"\211G\203\214\332G!\210\202\313I\203\233\333 \334J_W\203\236\335 \210\336 K\333 L\204\307M\203\275\337\340\336 N_!!\210\202\307\341\340\333 N_!!\210\342\310!\210O\343=\204\325\343 \210\344\345!\210B%P\346=\203\350\347\202\352PQ
\346=\203\366\347\202\367
R\350 \351U\203b\352\353!\210\312S\354\355\356!\"c\210\357 \203\360e`\361T$\210\323\362!\203)\362\313!\210\2020\360e`\363\346$\210\364e`\365#\210\360eeT\3666$\210\367A\346P
UV\312\211E\317\346&F\370\371!\210\352\372!\210\346S\202\220\373AEP\205m\374\346
U&\206~\375\376E%J#F\377\320\201X\201Y#\210eb\210\334y\210\201Z`F\320\201XN#\210`\211W.\207" [reftex-last-toc-master current-prefix-arg reftex-last-toc-file reftex-toc-return-marker reftex-toc-follow-mode reftex-toc-include-index-entries reftex-TeX-master-file reftex-erase-buffer "*toc*" buffer-file-name nil 1 reftex-ensure-index-support reftex-access-scan-info xr "" reftex-toc :reftex-data reftex-where-am-I fboundp frame-property selected-frame unsplittable frame-parameter get-buffer-window visible select-window window-height 2 delete-other-windows window-total-width split-window-right floor split-window-below switch-to-buffer reftex-toc-mode make-local-variable reftex-docstruct-symbol t "ALL" buffer-size 0 message "Building *toc* buffer..." format "TABLE-OF-CONTENTS on %s\nSPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help\n------------------------------------------------------------------------------\n" abbreviate-file-name reftex-use-fonts put-text-property font-lock-face cursor-intangible-mode intangible add-text-properties (cursor-intangible t front-sticky (cursor-intangible) rear-nonsticky (cursor-intangible)) xr-alist reftex-insert-docstruct run-hooks reftex-display-copied-context-hook "Building *toc* buffer...done." reftex-get-offset " " reftex-last-assoc-before-elt toc put reftex-support-index this-buf docstruct-symbol xr-data reftex--rebuilding-toc here-I-am offset toc-window reuse reftex-toc-keep-other-windows window-min-height reftex-last-window-width reftex-last-window-height reftex-toc-split-windows-horizontally reftex-toc-split-windows-fraction major-mode reftex-toc-include-labels reftex-toc-include-labels-indicator reftex-toc-include-index-indicator buffer-read-only reftex-toc-header-face reftex-toc-include-file-boundaries reftex-toc-include-context reftex-last-follow-point :reftex-line 3 reftex-find-start-point] 13 (#$ . 8675) nil])
#@78 Display the TOC window and highlight line corresponding to current position.
(defalias 'reftex-toc-recenter #[(&optional arg) "p\305 \306\n\307\"\210\310\311`\"\312U\203\"\313\314\315	\"!\210\306\313\307\"\210)`\311V\203L\316`\317\"\204L\f\320>\203L\321\312\322d`T^\323\"\206Be\324`\323\"\206Jd#\210\314\315	\"!*\207" [frame buf arg current-prefix-arg reftex-highlight-selection selected-frame reftex-toc t count-lines 1 2 nil select-window get-buffer-window get-text-property cursor-intangible (cursor both) reftex-highlight previous-single-property-change :data next-single-property-change] 6 (#$ . 11600) "P"])
(defalias 'reftex-toc-pre-command-hook #[nil "\300\301!\207" [reftex-unhighlight 0] 2])
(defalias 'reftex-toc-post-command-hook #[nil "\304`\305\"\2038\306\307\310\304`\305\"#\210`\311V\2038\304`\312\"\2048\313>\2038\314\315\316`T\305\"\206.e\317`\305\"\2066d#\210	\250\203A\320\211\207\321 ?\205e	\205e\n`\232?\205e`\211\205e\3221c\323\324?\"0\207\210\320\207" [reftex-highlight-selection reftex-toc-follow-mode reftex-last-follow-point reftex-revisit-to-follow get-text-property :data put reftex-toc :reftex-data 1 cursor-intangible (cursor both) reftex-highlight 2 previous-single-property-change next-single-property-change t reftex-toc-dframe-p (error) reftex-toc-visit-location nil] 6])
#@38 Enlarge window to a remembered size.
(defalias 'reftex-re-enlarge #[nil "\203	\206\n\305 \305 Z\202\n\206\306 \306 Z\211\307V\2054\3101,\311\"0\2024\312\313\f\"\210)\314)\207" [reftex-toc-split-windows-horizontally reftex-last-window-width reftex-last-window-height count #1=#:err window-total-width window-height 0 (debug error) enlarge-window message "Error: %S" nil] 4 (#$ . 12940)])
(defalias 'reftex-toc-dframe-p #[(&optional frame error) "\206\303 \304\305!\203\305\306\"\202\307\306\"\310\232\211\203'\n\203'\302\311!\210	)\207" [frame res error selected-frame fboundp frame-property name frame-parameter "RefTeX TOC Frame" "This frame is view-only.  Use `C-c =' to create TOC window for commands"] 4])
#@41 Show a summary of special key bindings.
(defalias 'reftex-toc-show-help #[nil "\306\307\310\"\210r\311\312!q\210p\313 \210	\307\211\314\211\314\315 \210\316\317!\210+\211\320!\210\321!\210+\322\312\314\"\210\205D\323\211\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks reftex-toc-dframe-p nil error get-buffer-create "*RefTeX Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show reftex-enlarge-to-fit 1 inhibit-read-only #2=#:buf standard-output reftex-toc-help reftex-toc-follow-mode] 4 (#$ . 13684) nil])
#@31 Move to next selectable item.
(defalias 'reftex-toc-next #[(&optional _arg) "\301m\204	\302u\210\303`\304\"\206`b\207" [reftex-callback-fwd t 1 next-single-property-change :data] 3 (#$ . 14352) nil])
#@35 Move to previous selectable item.
(defalias 'reftex-toc-previous #[(&optional _arg) "\301\302`\303\"\206\n`b\207" [reftex-callback-fwd nil previous-single-property-change :data] 3 (#$ . 14562) nil])
#@38 Move to next table of contents line.
(defalias 'reftex-toc-next-heading #[(&optional arg) "\301\210\302\303\301\304$\210\305 \207" [arg nil re-search-forward "^ " t beginning-of-line] 5 (#$ . 14769) "p"])
#@42 Move to previous table of contents line.
(defalias 'reftex-toc-previous-heading #[(&optional arg) "\301\302\303\304$\207" [arg re-search-backward "^ " nil t] 5 (#$ . 14982) "p"])
#@52 Toggle follow (other window follows with context).
(defalias 'reftex-toc-toggle-follow #[nil "\302	?\211\207" [reftex-last-follow-point reftex-toc-follow-mode -1] 2 (#$ . 15168) nil])
#@54 Toggle inclusion of file boundaries in *toc* buffer.
(defalias 'reftex-toc-toggle-file-boundary #[nil "?\301 \207" [reftex-toc-include-file-boundaries reftex-toc-revert] 1 (#$ . 15360) nil])
#@133 Toggle inclusion of labels in *toc* buffer.
With prefix ARG, prompt for a label type and include only labels of
that specific type.
(defalias 'reftex-toc-toggle-labels #[(arg) "\203	\302 \202	?\303 \207" [arg reftex-toc-include-labels reftex-query-label-type reftex-toc-revert] 1 (#$ . 15560) "P"])
#@134 Toggle inclusion of index in *toc* buffer.
With prefix arg, prompt for an index tag and include only entries of that
specific index.
(defalias 'reftex-toc-toggle-index #[(arg) "\203	\302 \202	?\303 \207" [arg reftex-toc-include-index-entries reftex-index-select-tag reftex-toc-revert] 1 (#$ . 15871) "P"])
#@119 Toggle inclusion of label context in *toc* buffer.
Label context is only displayed when the labels are there as well.
(defalias 'reftex-toc-toggle-context #[nil "?\301 \207" [reftex-toc-include-context reftex-toc-revert] 1 (#$ . 16189) nil])
#@216 Set the maximum level of TOC lines in this buffer to value of prefix ARG.
When no prefix is given, set the max level to a large number, so that all
levels are shown.  For example, to set the level to 3, type `3 m'.
(defalias 'reftex-toc-max-level #[(arg) "\203\n\303!\202\304\203\305	!\202\306\307 \207" [arg reftex-toc-max-level reftex-toc-max-level-indicator prefix-numeric-value 100 int-to-string "ALL" reftex-toc-revert] 2 (#$ . 16440) "P"])
#@41 View document location in other window.
(defalias 'reftex-toc-view-line #[nil "\300\301\302\"\210\303 \207" [reftex-toc-dframe-p nil error reftex-toc-visit-location] 3 (#$ . 16904) nil])
#@64 Go to document location in other window.  Hide the TOC window.
(defalias 'reftex-toc-goto-line-and-hide #[nil "\300\301\302\"\210\303\304!\207" [reftex-toc-dframe-p nil error reftex-toc-visit-location hide] 3 (#$ . 17097) nil])
#@61 Go to document location in other window.  TOC window stays.
(defalias 'reftex-toc-goto-line #[nil "\300\301\302\"\210\303\304!\207" [reftex-toc-dframe-p nil error reftex-toc-visit-location t] 3 (#$ . 17331) nil])
#@64 Go to document location in other window.  Hide the TOC window.
(defalias 'reftex-toc-mouse-goto-line-and-hide #[(ev) "\301!\210\302\303\304\"\210\305\306!\207" [ev mouse-set-point reftex-toc-dframe-p nil error reftex-toc-visit-location hide] 3 (#$ . 17550) "e"])
#@48 Show point where `reftex-toc' was called from.
(defalias 'reftex-toc-show-calling-point #[nil "\302\303\304\"\210\305 \306\216\307\310	!!\210\311	!b\210\312\313!*\207" [this-window reftex-toc-return-marker reftex-toc-dframe-p nil error selected-window #[nil "\301!\207" [this-window select-window] 2] switch-to-buffer-other-window marker-buffer marker-position recenter (4)] 3 (#$ . 17820) nil])
#@133 Hide the TOC window and do not move point.
If the TOC window is the only window on the dedicated TOC frame, the frame
is destroyed.
(defalias 'reftex-toc-quit #[nil "\301 \203\302 \203\303 G\304V\203\305 \207\301 \204\306 \210\307\310!!\210\311 \210\312!\206-`b\207" [reftex-toc-return-marker one-window-p reftex-toc-dframe-p frame-list 1 delete-frame delete-window switch-to-buffer marker-buffer reftex-re-enlarge marker-position] 3 (#$ . 18225) nil])
#@24 Kill the *toc* buffer.
(defalias 'reftex-toc-quit-and-kill #[nil "\301\302!\210\303 \204\f\304 \210\305\306!!\210\307 \210\310!b\207" [reftex-toc-return-marker kill-buffer "*toc*" one-window-p delete-window switch-to-buffer marker-buffer reftex-re-enlarge marker-position] 3 (#$ . 18695) nil])
#@176 Display the index buffer for the current document.
This works just like `reftex-display-index' from a LaTeX buffer.
With prefix arg 1, restrict index to the section at point.
(defalias 'reftex-toc-display-index #[(&optional arg) "\306\307\310\"\210\311`\312\"J\307\211\211\313\232\203/\314\315
\f#\316\315\f>A\"\3178\nE\320 \210\321	?\205:	\"-\207" [reftex-docstruct-symbol restr eor bor docstruct data reftex-toc-dframe-p nil error get-text-property :data 2 reftex-last-assoc-before-elt toc assoc 6 reftex-toc-goto-line reftex-display-index arg] 5 (#$ . 18999) "P"])
#@68 Regenerate the *toc* buffer by reparsing file of section at point.
(defalias 'reftex-toc-rescan #[(&rest _) "\203j	\204j\306`\307\"\211@\211\310\267\202\"\311\n8\2026\nA@\2026;\203-\311\n8\2026\312=\2056\311\n8\313e`\"n\203C\314\202D\315\\\f\204Q\316\317!\210\202f\320\321\322
#\210\323\324\f!!\210\325\326\321 \210),\202m\327 \210\330 \207" [reftex-enable-partial-scans current-prefix-arg data what file line get-text-property :data #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (toc 22 eof 28 bof 28 file-error 28)) 3 index count-lines 1 0 error "Don't know which file to rescan.  Try `C-u r'" put reftex-toc :reftex-line switch-to-buffer-other-window reftex-get-file-buffer-force (4) t reftex-toc-Rescan reftex-kill-temporary-buffers reftex--rebuilding-toc] 5 (#$ . 19591) nil])
#@63 Regenerate the *toc* buffer by reparsing the entire document.
(defalias 'reftex-toc-Rescan #[(&rest _) "\304e`\"n\203\f\305\202
\306\\\307\310\311#\210)\312\313	!!\210\314\315\310 )\207" [line reftex-last-toc-file current-prefix-arg reftex--rebuilding-toc count-lines 1 0 put reftex-toc :reftex-line switch-to-buffer-other-window reftex-get-file-buffer-force (16) t] 4 (#$ . 20441) nil])
#@45 Regenerate the TOC from the internal lists.
(defalias 'reftex-toc-revert #[(&rest _) "\304\305!\203\305\306 \301\"\202\307\310\301\"\311\211\203\"\312\313\n!!\210\202(\314\313\n!!\210*\315\316!\210\310\317\311\211\"\207" [reftex--rebuilding-toc unsplittable reftex-last-toc-file current-prefix-arg fboundp frame-property selected-frame frame-parameter nil t switch-to-buffer reftex-get-file-buffer-force switch-to-buffer-other-window reftex-erase-buffer "*toc*" reftex-toc] 4 (#$ . 20841) nil])
#@54 Switch to table of contents of an external document.
(defalias 'reftex-toc-external #[(&rest _) "\303\304\305\"\210p\306\307\301\"\310	\311\"\312\313\n	8A!\206\305\314!!\210\315 \210p\232\203/\316\317!\2022\316\320!+\207" [old-buf xr-alist xr-index reftex-toc-dframe-p nil error get-text-property 1 reftex-select-external-document 0 switch-to-buffer-other-window reftex-get-file-buffer-force "Cannot switch document" reftex-toc message "" "Switched document"] 4 (#$ . 21351) nil])
#@84 Jump to a specific section.  E.g. '3 z' jumps to section 3.
Useful for large TOCs.
(defalias 'reftex-toc-jump #[(arg) "eb\210\301\302\303\247\203\202\304!\305Q\306\307#\210\310 \207" [arg re-search-forward "^ *" number-to-string 1 " " nil t beginning-of-line] 4 (#$ . 21846) "P"])
#@72 Demote section at point.  If region is active, apply to all in region.
(defalias 'reftex-toc-demote #[(&optional _arg) "\300\301!\207" [reftex-toc-do-promote 1] 2 (#$ . 22139) nil])
#@73 Promote section at point.  If region is active, apply to all in region.
(defalias 'reftex-toc-promote #[(&optional _arg) "\300\301!\207" [reftex-toc-do-promote -1] 2 (#$ . 22327) nil])
#@144 Workhorse for `reftex-toc-promote' and `reftex-toc-demote'.
Changes the level of sections in the current region, or just the section at
point.
(defalias 'reftex-toc-do-promote #[(delta) "\306e`\"n\203\f\307\202
\310\\\311 \205(\212\312 b\210\306e`\"n\203%\307\202&\310\\)`\310V\2035\313\2026\314\315\211.\315\211/0\315\21112\3153\3162B\311 \203m\317 \204_\320 \210\202r`\312 ^`\312 ].\202r``.
b\210\321`\322\"\2110\203\244`.X\203\2440@\323=\203\2270`B/B/\324`\322\"\206\237db\210\202u/\237/\nb\210\325/@!1/G\2112\307V\203\3141\326\3252S/8!Q1\327\330/\"/4\2034\250\203\34624W\204\331\332\333\310W\203\363\334\202\364\3352\211\307U\203\336\202\3372\307U\203\f\340\202
\3411&!\204\342\343!\210\344\345/\"\210\346 5\347\216\350 \210*\351	\"\210\352\3532\211\307U\203<\340\202=\341\f$\210\3150\2113\205P\354 \210\352\3553\".\207" [reftex--start-line reftex--mark-line start-pos delta reftex--pro-or-de beg count-lines 1 0 reftex-region-active-p mark "de" "pro" nil exit reftex-toc-check-docstruct reftex-toc-load-all-files-for-promotion get-text-property :data toc next-single-property-change reftex-toc-extract-section-number "-" mapcar #[(e) "\302	\"\207" [e delta reftex-toc-promote-prepare] 3] yes-or-no-p format "%s %d toc-entr%s (section%s %s)? " "Promote" "Demote" "y" "ies" "" "s" error "Abort" mapc reftex-toc-promote-action current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] reftex-toc-Rescan reftex-toc-restore-region message "%d section%s %smoted" ding "%s" end entries data sections nsec msg reftex-toc-confirm-promotion #1#] 9 (#$ . 22519)])
(defalias 'reftex-toc-restore-region #[(point-line &optional mark-line) "\205\feb\210Sy\210`\n\203eb\210\nSy\210	\205%\305	!\210\306\307\211)\207" [mark-line mpos point-line mark-active deactivate-mark set-mark t nil] 2])
#@246 Look at a TOC entry and see if we could pro/demote it.
This function prepares everything for the change, but does not do it.
The return value is a list with information needed when doing the
promotion/demotion later.  DELTA is the level change.
(defalias 'reftex-toc-promote-prepare #[(x delta) "@A\306	8\307	8\310\211\311!\203X\312!\203Xr\312!q\210\313!b\210\314\315\f!!\203L\316\317!\210\314!\203E\320\321!\202N\322\323!\210\202N\324)
\205Z\325 \202Z\325 \326\"A\211 \250?\205s\nb\210\322\327!\" \330Y\203\204\" \\\202\211 \"Z# \330Y\203\231#\331U\204\247 \330W\205\256#\330U\205\256\322\332!#\333##$\203\316$\203\316	$\nF\202\330\nb\210\322\332!#.\f\207" [x data toc-point marker literal load 4 7 nil markerp marker-buffer marker-position looking-at regexp-quote beginning-of-line 1 reftex-match-string 2 error "Something is wrong!  Contact maintainer!" t reftex-toc-load-all-files-for-promotion assoc "Cannot %smote special sections" 0 -1 "Cannot %smote \\%s" reftex-toc-newhead-from-alist name reftex-section-regexp _ reftex-section-levels-all level reftex--pro-or-de delta newlevel newname] 5 (#$ . 24435)])
#@110 Change the level of a TOC entry.
`reftex--pro-or-de' is assumed to be dynamically scoped into this function.
(defalias 'reftex-toc-promote-action #[(x) "@A@\3068\307	8r\310\f!q\210\311\f!b\210\312\313
\314\315\n!R!\203.\316\317P!\2023\320\321\"-\207" [x data name newname marker reftex-section-pre-regexp 2 4 marker-buffer marker-position looking-at "\\([ 	]*" "\\)" regexp-quote replace-match "\\1" error "Fatal error during %smotion" reftex--pro-or-de] 6 (#$ . 25632)])
#@57 Get the numbering of a TOC entry, for message purposes.
(defalias 'reftex-toc-extract-section-number #[(entry) "\301\302\303@8\"\203\304\305\303@8\"\207\306\207" [entry string-match "\\s-*\\(\\S-+\\)" 2 match-string 1 "?"] 4 (#$ . 26122)])
#@349 Get new heading with level NLEVEL from ALIST.
If there are no such entries, return nil.
If there are several different entries with same new level, choose the
one with the smallest distance to the association of HEAD in the alist.
This makes it possible for promotion to work several sets of headings,
if these sets are sorted blocks in the alist.
(defalias 'reftex-toc-newhead-from-alist #[(nlevel head alist) "\306\n	\"\211	>G\307\310\n\307	\203>	@A\f\232\2037\311	G\fZ!\211\nW\2037	@@
\n	A\211\204.\207" [alist al head ass pos dist assoc nil 1000 abs mindist newhead nlevel] 4 (#$ . 26373)])
#@75 Check if the current docstruct is fully up to date and all files visited.
(defalias 'reftex-toc-check-docstruct #[nil "J\305\211\211\3062D\f\211A\242\211\203B@\307=\203
\3108\3118\312\n!\203:\313\n!\203:\314\n!	U\204
\315\306\305\"\210\202
\3160,\207" [reftex-docstruct-symbol empoint marker entry docstruct nil exit toc 4 8 markerp marker-buffer marker-position throw t] 4 (#$ . 26997)])
#@329 Make sure all files of the document are being visited by buffers,
and that the scanning info is absolutely up to date.
We do this by rescanning with `reftex-keep-temporary-buffers' bound to t.
The variable `reftex--pro-or-de' is assumed to be dynamically scoped into this function.
When finished, we exit with an error message.
(defalias 'reftex-toc-load-all-files-for-promotion #[nil "\303\304 \210\305	\n\"\210\306\307\310\")\207" [reftex-keep-temporary-buffers reftex--start-line reftex--mark-line t reftex-toc-Rescan reftex-toc-restore-region throw exit "TOC had to be updated first.  Please check selection and repeat the command."] 3 (#$ . 27412)])
#@325 Rename the currently selected label in the *toc* buffer.
This launches a global search and replace in order to rename a label.
Renaming a label is hardly ever necessary - the only exception is after
promotion/demotion in connection with a package like fancyref, where the
label prefix determines the wording of a reference.
(defalias 'reftex-toc-rename-label #[nil "\305`\306\"\211@\307	;\204\310\311!\210\312\313\314	\"!\315\nJ\"\203/\316\317\320	\"!\204/\310\321!\210\212\322 \323\216\324\325!\210\3261M\327\330\331	!\332Q\313\333\n\"\"0\202Q\210\202R\210+\334 +\207" [toc label newlabel reftex-docstruct-symbol #1=#:wconfig get-text-property :data nil error "This is not a label entry" read-string format "Rename label \"%s\" to:" assoc y-or-n-p format-message "Label `%s' exists.  Use anyway? " "Abort" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] reftex-toc-visit-location t (error) reftex-query-replace-document "{" regexp-quote "}" "{%s}" reftex-toc-rescan] 6 (#$ . 28075) nil])
(defalias 'reftex-toc-visit-location #[(&optional final no-revisit) "\306`\307\"\310 \311\204\312\313!\210@\300=\203!\314\"\202x@\315=\2030\316\"\202x@\317>\203j@A@\203H\320\f!\203^\321\322\f\311\"!\210
\323=\203Ye\202Zdb\202e\324\325*\"\210\311*\202x@;\203x\326+\327$\n\204\204\330	!\210\312\331!\210,\332\267\202\335\333	!-r\334\216\330-@\335\"\210\336\337!+\202\357\310 \340 .\211/	=\204\313\333	!-r\341\216\330-@\335\"\210\336\337!\210\342 \204\312\343 \210+\344/!\204\327\345.!\210\346 *\202\357\347 \350	!=\204\354\351\350	!!\210\330	!+\207" [toc toc-window match no-revisit file where get-text-property :data selected-window nil error "Don't know which TOC line to visit" reftex-toc-find-section index reftex-index-show-entry (bof eof) reftex-get-buffer-visiting switch-to-buffer-other-window reftex-get-file-buffer-force bof message "%s" reftex-show-label-location t select-window "Cannot find location" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 139 hide 161)) internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] norecord reftex-unhighlight 0 window-buffer #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] one-window-p delete-window window-live-p pop-to-buffer-same-window reftex-re-enlarge selected-frame window-frame select-frame-set-input-focus reftex-no-follow-message reftex-callback-fwd final save-selected-window--state buffer window] 6])
(defalias 'reftex-toc-find-section #[(toc &optional no-revisit) "\3068\3078\3108\3118\3128\313\n!\203W\314\n!\203W\315\314\n!!\210\316\317!\210\320\n!b\210\321\322\f!!\206\242\321\323\f!!\206\242\321\324\f!!\206\242\321\325\322\326!\"@!\327Q!\202\242\"\203b\330	!\203\233\315\331	\317\"!\210
\206neb\210\321\322\f!!\206\242\fG#\332\322\f!#\"\206\227\332\323\f!#\"\206\227\332\324\f!#\")\202\242\333\334$\"\210\317\211%\203\277\335\224b\210`dU\204\266\336\337!\210\340\335\211\224\335\225p$\210%.\207" [toc file marker level literal emergency-point 3 4 5 7 8 markerp marker-buffer switch-to-buffer-other-window push-mark nil marker-position looking-at regexp-quote reftex-make-regexp-allow-for-ctrl-m reftex-make-desperate-section-regexp "\\\\" rassq "[[{]?" reftex-get-buffer-visiting reftex-get-file-buffer-force reftex-nearest-match message "%s" 0 recenter 1 reftex-highlight reftex-section-levels-all no-revisit len reftex-no-follow-message match] 7])
(defalias 'reftex-make-desperate-section-regexp #[(old) "\303\304\"T\305\306\307\303\304\"T#!\306	\"\303\310\"\203;\311\224\203*\n\312P\2022\n\313\314\315\"Q\306\307\225\"\202\n+\207" [old n new string-match "[[{]" regexp-quote substring 0 "\\([
\n]\\)\\|\\(\\`\\|[ 	\n
]\\)\\([a-zA-Z0-9]+\\)\\([ 	\n
]\\|}\\'\\)" 1 "[^\n
]*[\n
]" "[^\n
]*" match-string 3] 7])
(defalias 'reftex-recenter-toc-when-idle #[nil "\303 \304V\205*\205*\305 ?\205*\306\307!\205*\310\311\312\"\205*	\313 \230\205*\314\315 )\207" [reftex-mode reftex-last-toc-master current-prefix-arg buffer-size 5 active-minibuffer-window fboundp reftex-toc-mode get-buffer-window "*toc*" visible reftex-TeX-master-file nil reftex-toc-recenter] 3])
#@139 Toggle the automatic recentering of the TOC window.
When active, leaving point idle will make the TOC window jump to the correct
section.
(defalias 'reftex-toggle-auto-toc-recenter #[nil "\203\302!\210\303\304\305!\207\306	\307\310#\304\311!\207" [reftex-toc-auto-recenter-timer reftex-idle-time cancel-timer nil message "Automatic recentering of TOC window was turned off" run-with-idle-timer t reftex-recenter-toc-when-idle "Automatic recentering of TOC window was turned on"] 4 (#$ . 32414) nil])
#@216 Toggle the display of a separate frame for the TOC.
This frame is not used by the `reftex-toc' commands, but it is useful to
always show the current section in connection with the option
`reftex-auto-recenter-toc'.
(defalias 'reftex-toc-toggle-dedicated-frame #[nil "\30328\304 \305\306\307!\203\307\202\310\211A\242\211\2034\n	\311\"\312\232\203\313	!\210\314\303\305\"\210\202\315 +0\207" [frames frame get-frame-prop-func exit frame-list nil fboundp frame-property frame-parameter name "RefTeX TOC Frame" delete-frame throw reftex-make-separate-toc-frame] 3 (#$ . 32927) nil])
(defalias 'reftex-make-separate-toc-frame #[nil "\306 \307 \310\311\312\"\313	\205\306 \314	!\232??\205K\315\316!\317!\210\320\311!\210\317!\210\321\322!\2036\322!\210\323\n!\210\f\324=\205K
\204G\325 \210\326\327\330\",\207" [current-toc-frame current-toc-window current-window current-frame reftex-auto-recenter-toc reftex-toc-auto-recenter-timer selected-frame selected-window get-buffer-window "*toc*" visible nil window-frame make-frame ((name . "RefTeX TOC Frame") (height . 20) (width . 60) (unsplittable . t) (minibuffer) (default-toolbar-visible-p) (menubar-visible-p) (horizontal-scrollbar-visible-p)) select-frame switch-to-buffer fboundp x-focus-frame select-window frame reftex-toggle-auto-toc-recenter add-hook delete-frame-functions reftex-toc-delete-frame-hook] 5])
(defalias 'reftex-toc-delete-frame-hook #[(frame) "\205\f\302	!\205\f\303 \207" [reftex-toc-auto-recenter-timer frame reftex-toc-dframe-p reftex-toggle-auto-toc-recenter] 2])
Zerion Mini Shell 1.0