JezK
Edit File: reftex-toc.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:13 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/reftex-toc.el ;;; in Emacs version 24.3.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 "\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 "\306 \307\310\311#\210\307\312\313#\210\314\315\316 $\210\314\317\320 $\210\321\322\n:\2038 \n@\307 @ A#\210\nA\211\202\" *\323 \324 \322 T\211\fGW\203\\ \f H \307\325 C!\326#\210\202@ +\307\327\330#\210\331\322!\210\332\333\334\335$\210)\207" [map global-map #1=#:--cl-var-- x #2=#:--cl-vec-- #3=#:--cl-idx-- 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" . reftex-toc-next) ("p" . reftex-toc-previous) ("?" . 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) ("g" . revert-buffer) ("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)) nil "0123456789" -1 vector digit-argument "-" negative-argument (lambda (#4=#:def-tmp-var) (defvar reftex-toc-menu #4# #5="Menu for Table of Contents buffer")) easy-menu-do-define reftex-toc-menu #5# ("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]) key] 6) (#$ . 908)) (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) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [reftex-toc-mode-hook variable-documentation put purecopy "Hook run when 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] 5) (defvar reftex-toc-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [reftex-toc-mode-map variable-documentation put purecopy "Keymap for `reftex-toc-mode'." boundp reftex-toc-mode-syntax-table definition-name reftex-toc-mode] 5) (defvar reftex-toc-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-toc-mode-syntax-table variable-documentation put purecopy "Syntax table for `reftex-toc-mode'." reftex-toc-mode-abbrev-table definition-name reftex-toc-mode] 5) (defvar reftex-toc-mode-abbrev-table (progn (define-abbrev-table 'reftex-toc-mode-abbrev-table nil) reftex-toc-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-toc-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `reftex-toc-mode'." reftex-toc-mode derived-mode-parent nil] 5) #@292 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} This mode runs the hook `reftex-toc-mode-hook', as the final step during initialization. (defalias 'reftex-toc-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 ,\306\315!\210\307 \306\316!\210\317\306\320!\210\321\306\322!\210-\323U\203< \324\202@ \325-!\326\327\330\331\332\n\333\334\320\335\336\337\335\340\322\335\341\257.\307/\306\342!\210\343\344\345\346\307$\210\343\347\350\346\307$\210\3510 \"\210)\352\353!\207" [delay-mode-hooks major-mode mode-name reftex-toc-mode-map reftex-toc-mode-syntax-table reftex-toc-mode-abbrev-table make-local-variable t kill-all-local-variables reftex-toc-mode "TOC" 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 local-abbrev-table reftex-toc-max-level mode-line-format truncate-lines reftex-toc-menu] 17 (#$ . 5480) nil]) #@77 Stores the file name from which `reftex-toc' was called. For redo command. (defvar reftex-last-toc-file nil (#$ . 6950)) #@68 Marker which makes it possible to return from TOC to old position. (defvar reftex-toc-return-marker (make-marker) (#$ . 7078)) (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).") #@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 !\210p A' B\316'J\236 C\317\311 BCA@B 5\320\321!\203W \322\323N\202Z \324 @ D\325\326!\203j \326\327 \330\"\202o \331\327 \330\" \312\211 E F\332\310G\205 \333\"\211F\203\216 \334F!\210\202\315 H\203\235 \335 I\336_W\203\240 \337 \210\340 J\335 K\204\311 L\203\277 \341\342\340 M_!!\210\202\311 \343\342\335 M_!!\210\344\310!\210N\345=\204\327 \345 \210\346\347!\210B'O\350=\203\352 \351\202\354 OP \350=\203\370 \351\202\371 Q\352 \353U\203Q\354\355!\210\312R\356\357\360!\"c\210\361 \203 \362e`\363S$\210\362e`\364\350$\210\362eeT\3655$\210\366A\350O TU\312\211D\317\350& E\367\370!\210\354\371!\210\350R\202}\372ADO\205\\\373\350 T&\206m\374\375D'J#E\376\322\377\201W #\210eb\210\336y\210\201X `E\322\377N#\210`\211V.\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 "" boundp reftex-rebuilding-toc 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-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 face 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-line reftex-support-index this-buf docstruct-symbol xr-data 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 3 reftex-find-start-point] 13 (#$ . 8435) 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\"\206B e\324`\323\"\206J d#\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 intangible (cursor both) reftex-highlight previous-single-property-change :data next-single-property-change] 6 (#$ . 11169) "P"]) (defalias 'reftex-toc-pre-command-hook #[nil "\300\301!\207" [reftex-unhighlight 0] 2]) (defalias 'reftex-toc-post-command-hook #[nil "\303`\304\"\2038 \305\306\307\303`\304\"#\210`\310V\2038 \303`\311\"\2048 \312>\2038 \313\314\315`T\304\"\206. e\316`\304\"\2066 d#\210 \250\203A \317\211\207\320 ?\205\\ \205\\ \n`\232?\205\\ `\211\205\\ \321\322\323\217\207" [reftex-highlight-selection reftex-toc-follow-mode reftex-last-follow-point get-text-property :data put reftex-toc :reftex-data 1 intangible (cursor both) reftex-highlight 2 previous-single-property-change next-single-property-change t reftex-toc-dframe-p nil (byte-code "\301\302?\"\207" [reftex-revisit-to-follow reftex-toc-visit-location nil] 3) ((error t))] 6]) #@38 Enlarge window to a remembered size. (defalias 'reftex-re-enlarge #[nil "\203 \206\n \304 \304 Z\202 \n\206 \305 \305 Z\211\306V\205$ \307 \")\207" [reftex-toc-split-windows-horizontally reftex-last-window-width reftex-last-window-height count window-width window-height 0 enlarge-window] 4 (#$ . 12526)]) (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 (#$ . 13181) 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 (#$ . 13849) "p"]) #@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 (#$ . 14058) "p"]) #@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 (#$ . 14264) "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 (#$ . 14477) "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 (#$ . 14663) 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 (#$ . 14855) 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 (#$ . 15055) "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 (#$ . 15366) "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 (#$ . 15684) 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 (#$ . 15935) "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 (#$ . 16399) 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 (#$ . 16592) 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 (#$ . 16826) 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 (#$ . 17045) "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 ((select-window this-window)) switch-to-buffer-other-window marker-buffer marker-position recenter (4)] 3 (#$ . 17315) 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 (#$ . 17700) 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 (#$ . 18170) 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\"\317 8 \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 (#$ . 18474) "P"]) #@68 Regenerate the *toc* buffer by reparsing file of section at point. (defalias 'reftex-toc-rescan #[(&rest ignore) "\203p \204p \306`\307\"\211@\211\310=\203 \311\n8\202< \312>\203( \nA@\202< ;\2033 \311\n8\202< \313=\205< \311\n8 \314e`\"n\203I \315\202J \316\\ \f\204W \317\320!\210\202l \321\322\323 #\210\324\325\f!!\210\326\327 \322 \210),\202s \330 \210\331 \207" [reftex-enable-partial-scans current-prefix-arg data what file line get-text-property :data toc 3 (eof bof file-error) 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 (#$ . 19066) nil]) #@63 Regenerate the *toc* buffer by reparsing the entire document. (defalias 'reftex-toc-Rescan #[(&rest ignore) "\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 (#$ . 19830) nil]) #@45 Regenerate the TOC from the internal lists. (defalias 'reftex-toc-revert #[(&rest ignore) "\304\305!\203 \305\306 \301\"\202 \307\306 \301\"\310\211\203# \311\312\n!!\210\202) \313\312\n!!\210*\314\315!\210\316\317\310!\207" [reftex-rebuilding-toc unsplittable reftex-last-toc-file current-prefix-arg fboundp frame-property selected-frame frame-parameter t switch-to-buffer reftex-get-file-buffer-force switch-to-buffer-other-window reftex-erase-buffer "*toc*" nil reftex-toc] 4 (#$ . 20234) nil]) #@54 Switch to table of contents of an external document. (defalias 'reftex-toc-external #[(&rest ignore) "\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 (#$ . 20743) 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 (#$ . 21243) "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 (#$ . 21536) "p"]) #@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 (#$ . 21723) "p"]) #@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 \315\211 \315 \316\317\215\211\205\\ \320 \210\321\322\". \207" [start-line mark-line start-pos delta pro-or-de beg count-lines 1 0 reftex-region-active-p mark "de" "pro" nil exit (byte-code "\306 \203 \307 \204 \310 \210\202! `\311 ^`\311 ]\202! ``b\210\312`\313\"\211\203M ` X\203M \n@\314=\203@ \n`B B\315`\313\"\206H db\210\202$ \237\fb\210\316 @! G\211(\317V\203m \320\316(S 8!Q\321\322 \")\203\270 )\250\203\205 ()W\204\270 \323\324\325*\326W\203\223 \327\202\224 \330(\211\317U\203\240 \331\202\241 \332(\317U\203\254 \333\202\255 \334 &!\204\270 \335\336!\210\337\340 \"\210\341 +\342\216\343 \210*\344,-\"\210\345\346(\211\317U\203\334 \333\202\335 \334.$\210\347\207" [beg end data entries start-pos sections reftex-region-active-p reftex-toc-check-docstruct reftex-toc-load-all-files-for-promotion mark get-text-property :data toc next-single-property-change reftex-toc-extract-section-number 1 "-" mapcar #[(e) "\302 \"\207" [e delta reftex-toc-promote-prepare] 3] yes-or-no-p format "%s %d toc-entr%s (section%s %s)? " 0 "Promote" "Demote" "y" "ies" "" "s" error "Abort" mapc reftex-toc-promote-action current-window-configuration ((set-window-configuration #1=#:wconfig)) reftex-toc-Rescan reftex-toc-restore-region message "%d section%s %smoted" nil nsec reftex-toc-confirm-promotion delta #1# start-line mark-line pro-or-de] 8) ding message "%s" end entries data sections nsec msg] 4 (#$ . 21914)]) (defalias 'reftex-toc-restore-region #[(point-line &optional mark-line) "\305 \203 eb\210 Sy\210`\n\203 eb\210\nSy\210 \205' \306!\210\307\305\211)\207" [mpos mark-line point-line mark-active deactivate-mark nil set-mark t] 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 !\203X r\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 name1 reftex-section-levels-all level pro-or-de dummy delta newlevel dummy2 newname] 5 (#$ . 23940)]) #@100 Change the level of a TOC entry. PRO-OR-DE is assumed to be dynamically scoped into this function. (defalias 'reftex-toc-promote-action #[(x) "@A@\3068\307 8 r\310\f!q\210\311\f!b\210\312\313\314\n!P!\203, \315\316 P!\2020 \317\320 \"-\207" [x data name newname marker pro-or-de 2 4 marker-buffer marker-position looking-at "\\([ ]*\\\\\\)" regexp-quote replace-match "\\1" error "Fatal error during %smotion"] 4 (#$ . 25145)]) #@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 (#$ . 25586)]) #@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 \203B \211 \f@A) \232\203; \311 G\fZ!\211\nW\203; @@ \n A\211\204 .\207" [alist al head ass pos dist assoc nil 1000 abs mindist newhead x nlevel] 4 (#$ . 25837)]) #@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 \306\307\215,\207" [reftex-docstruct-symbol empoint marker entry docstruct nil exit (byte-code "\211A@\211\2035 @\304=\203 \305 8\306 8\307\n!\203- \310\n!\203- \311\n! U\204 \312\313\314\"\210\202 \315\207" [docstruct entry marker empoint toc 4 8 markerp marker-buffer marker-position throw exit nil t] 3)] 4 (#$ . 26470)]) #@319 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 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 start-line 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 (#$ . 26948)]) #@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\n J\"\203/ \316\313\317 \"!\204/ \310\320!\210\212\321 \322\216\323\324!\210\307\325\326\217\210+\327 +\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 "Label '%s' exists. Use anyway? " "Abort" current-window-configuration ((set-window-configuration #1#)) reftex-toc-visit-location t (byte-code "\302\303\304!\305Q\306\307 \"\"\207" [label newlabel reftex-query-replace-document "{" regexp-quote "}" format "{%s}"] 5) ((error)) reftex-toc-rescan] 5 (#$ . 27585) nil]) (defalias 'reftex-toc-visit-location #[(&optional final no-revisit) "\306`\307\"\310 \311\211\311 \204 \312\313!\210@\300=\203% \314 \"\202\201 @\315=\2034 \316 \"\202\201 @\317>\203s @A@ \" # \203O \320\"!\203g \321\322\"\311\"!\210#\323=\203b e\202c db\202n \324\325$\"\210\311*\202\201 @;\203\201 \326% \327$\310 p\f\204\222 \330 !\210\312\331!\210\330 !\210&\327=\203\247 \332\333!\210\330\n!\202\320 &\334=\203\317 \332\333!\210\335 \204\272 \336 \210\337\n!\203\306 q\210\202\312 \340 !\210\341 \202\320 \311-\207" [toc toc-window show-window show-buffer match no-revisit 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" reftex-unhighlight 0 hide one-window-p delete-window window-live-p switch-to-buffer reftex-re-enlarge file where reftex-no-follow-message reftex-callback-fwd final] 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 \206n eb\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\303\304\"TO! \307O\303\310\"\203: \311\224\203) \n\312P\2021 \n\313\314\315\"Q\306\225\307O\202 \n+\207" [old n new string-match "[[{]" regexp-quote 0 nil "\\([ \n]\\)\\|\\(\\`\\|[ \n ]\\)\\([a-zA-Z0-9]+\\)\\([ \n ]\\|}\\'\\)" 1 "[^\n ]*[\n ]" "[^\n ]*" match-string 3] 6]) (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 (#$ . 31440) 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 "\300\301\215\207" [exit (byte-code "\303 \304\305\306!\203 \306\202 \307\211A@\211\2030 \n \310\"\311\232\203 \312 !\210\313\314\304\"\210\202 \315 +\207" [frames frame get-frame-prop-func frame-list nil fboundp frame-property frame-parameter name "RefTeX TOC Frame" delete-frame throw exit reftex-make-separate-toc-frame] 3)] 2 (#$ . 31953) 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-hook 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])