JezK
Edit File: reftex-index.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-index.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'reftex) #@568 Put selection or the word near point into the default index macro. This uses the information in `reftex-index-default-macro' to make an index entry. The phrase indexed is the current selection or the word near point. When called with one `C-u' prefix, let the user have a chance to edit the index entry. When called with 2 `C-u' as prefix, also ask for the index macro and other stuff. When called inside TeX math mode as determined by the `texmathp.el' library which is part of AUCTeX, the string is first processed with the `reftex-index-math-format', which see. (defalias 'reftex-index-selection-or-word #[(&optional arg phrase) "\306\232?\307 \211\203 \310 \202 \212\311\312!\210`)\n\203\" \313 \202) \212\314\312!\210`) \f{ \315\316\317\217 \315\211 \315\211 \315 \203Q \320 \210\321 !\202\240 \322\232\203\\ \323 \202\240 \203i \324 \"\202j \205s @ \205} A@\203\217 \325\315\326B#\202\221 \f|\210\323 $. \207" [arg use-default active beg end sel (16) reftex-region-active-p region-beginning skip-syntax-backward "w\\" region-end skip-syntax-forward nil (texmathp) ((error)) reftex-index-visit-phrases-buffer reftex-index-new-phrase "" reftex-index format reftex-index-complete-key 0 mathp current-prefix-arg key def-char def-tag full-entry phrase reftex-index-math-format reftex-index-default-macro] 6 (#$ . 584) "P"]) #@316 Query for an index macro and insert it along with its arguments. The index macros available are those defined in `reftex-index-macro' or by a call to `reftex-add-index-macros', typically from an AUCTeX style file. RefteX provides completion for the index tag and the index key, and will prompt for other arguments. (defalias 'reftex-index #[(&optional char key tag sel no-insert) "\306\307!\210\310!\210 \206 \311\n \"\312 \f\"A@ \312 $\"\206$ \313\314 \"\211 %A@ &'\2064 %A@ '\315%8 (\316%8 )\317%8 *\320%8 +\321\211 , -\321 .';\203d '-\202p \322'*\"\206n \323-/\206\211 \324-\323\230\203\201 \325\202\203 -)*\235\"/ c\210\326 0( 101X\2030*\235,)0U\203\261 /\202\321 &0\232\203\276 -\202\321 \327\330\3310!,\203\315 \332\202\316 \323\333R!.,\203\337 .\323\230\204\370 ,\203\350 \334\202\351 \335.,\203\364 \336\202\365 \337\261\2100T\2110\202\227 *+\2032;\2032c\210/\203&3\203&\340\341!\203&\341/!\210\342-!\210\343 .\f\207" [current-prefix-arg char reftex-query-index-macro-prompt reftex-query-index-macro-help reftex-key-to-index-macro-alist macro reftex-ensure-index-support t reftex-access-scan-info reftex-select-with-char assoc error "No index macro associated with %c" 4 5 6 7 nil reftex-index-complete-tag "" reftex-index-complete-key "idx" 1 read-string "Macro arg nr. " int-to-string " (optional)" ": " "[" "{" "]" "}" fboundp LaTeX-add-index-entries reftex-index-update-taglist reftex-notice-new reftex-index-macro-alist entry ntag tag nargs nindex opt-args repeat opt tag1 value key i #1=#:--cl-var-- sel reftex-plug-into-AUCTeX] 6 (#$ . 1968) nil]) (defalias 'reftex-default-index #[nil "\204 \302\207;\203 \207 \303N\206 \304\207" [reftex-index-default-tag reftex-docstruct-symbol nil default-index-tag "idx"] 2]) (defalias 'reftex-update-default-index #[(tag &optional tag-list) "\304\232?\205! ;\205! \305=\205! \n\203 \n\235\205! \306 \307#\207" [tag reftex-index-default-tag tag-list reftex-docstruct-symbol "" last put default-index-tag] 4]) (defalias 'reftex-index-complete-tag #[(&optional itag opt-args) "\250\205 \235\304 J\236A \306 \307\n\204 \203A \310\311\n\203% \312\202& \313 \203; \n\2032 \314\2023 \313\310\315 \"P\202< \313P\"\202B \316P \317\320\321\f\"\" \203] \313\232\203] \322!\210-\207" [itag opt-args opt reftex-docstruct-symbol index-tags default reftex-default-index "Index tag" format " (%s): " "optional" "" ", " "default %s" ": " completing-read mapcar list reftex-update-default-index prompt tag] 8]) (defalias 'reftex-index-select-tag #[nil "\306\301J\"A\307 \204 \310\311!\202\355 G\312U\203 @\202\355 G\312V\203\352 \313 !\314 \315\211 '\315\211 ( )\315\211 * +\315\211 , -\316 \235\203Q \316\317\316 \"B\320 \235\203^ \320\317\320 \"B \211A@\211*\203{ *G)\321'\315(\322\323\215\210\202^ \237\324\325\n\203\213 \324\326\n\"\202\214 \327\"\330\331 \332#P+\333\n\203\241 \324\334\n\"\202\242 \327\330\335 \336#Q,\337+,\340\341$-\342\327!\210\n\203\307 -\343\232\203\307 \n\202\345 - \236\203\340 \344- \236A@!\210- \236A@\202\345 \310\345-\".\n\202\355 \310\346!*\207" [reftex-docstruct-symbol index-tags default tags cnt tag-alist assoc reftex-default-index error "No index tags available" 1 copy-sequence 0 nil "glo" delete "idx" -1 exit (byte-code "T\211 W\2038 \n\2048 H\f\236\204 H \211\306O\307 \211T\211O\310 \311O\260E\fB\312\313\314\"\210\202 \315 T\211\\ \307\316 !\317 RE\fB\311\207" [i len val tag tag-alist cnt 0 "[" "]" nil throw exit t 48 int-to-string "]:"] 9) format "Select Index%s: " " (Default <%s>)" "" mapconcat #[(x) "\3018\207" [x 2] 2] " " "Select an Index\n===============\n" "[^M] %s (the default)\n" #[(x) "\301\302\303#\207" [x apply format "[%c] %s"] 4] "\n" reftex-select-with-char 3 t message 13 reftex-update-default-index "No index tag associated with %c" "This should not happen (reftex-index-select-tag)" i val len tag prompt help rpl] 7]) (defalias 'reftex-index-complete-key #[(&optional tag optional initial) "\305J\306\307\310$\311\n\203 \312\202 \313\314Q\315 \316\211\f%*\207" [reftex-docstruct-symbol table optional prompt initial reftex-sublist-nth 6 #[(x) "@\302=\205 A@ \206 \303\230\207" [x tag index #1=""] 2] t "Index key" " (optional)" #1# ": " completing-read nil] 7]) (defalias 'reftex-index-update-taglist #[(newtag) "\304\305J\"\n\205 A\205 \n A\235?\205 \211\n AB\241))\207" [reftex-docstruct-symbol cell newtag #1=#:v assoc index-tags] 4]) (byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias reftex-index-map reftex-index-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6) #@34 Keymap used for *Index* buffers. (defvar reftex-index-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#P $\324 %\322 \"%T\211%$GW\203\227 $%H\"\307\325\"C!\332\322\333\334\"DF#\210\202o +\335\322!\210\336\337\340\341$\210)\207" [map global-map #1=#:--cl-var-- x #2=#:--cl-vec-- #3=#:--cl-idx-- make-sparse-keymap define-key [(mouse-2)] reftex-index-mouse-goto-line-and-hide [follow-link] mouse-face substitute-key-definition next-line reftex-index-next previous-line reftex-index-previous (("n" . reftex-index-next) ("p" . reftex-index-previous) ("?" . reftex-index-show-help) (" " . reftex-index-view-entry) (" " . reftex-index-goto-entry-and-hide) (" " . reftex-index-goto-entry) (" " . reftex-index-kill) ("r" . reftex-index-rescan) ("R" . reftex-index-Rescan) ("g" . revert-buffer) ("q" . reftex-index-quit) ("k" . reftex-index-quit-and-kill) ("f" . reftex-index-toggle-follow) ("s" . reftex-index-switch-index-tag) ("e" . reftex-index-edit) ("^" . reftex-index-level-up) ("_" . reftex-index-level-down) ("}" . reftex-index-restrict-to-section) ("{" . reftex-index-widen) (">" . reftex-index-restriction-forward) ("<" . reftex-index-restriction-backward) ("(" . reftex-index-toggle-range-beginning) (")" . reftex-index-toggle-range-end) ("|" . reftex-index-edit-attribute) ("@" . reftex-index-edit-visual) ("*" . reftex-index-edit-key) ("=" . reftex-index-goto-toc) ("c" . reftex-index-toggle-context)) nil "0123456789" -1 vector digit-argument "-" negative-argument "!" lambda (interactive) reftex-index-goto-letter (lambda (#4=#:def-tmp-var) (defvar reftex-index-menu #4# #5="Menu for Index buffer")) easy-menu-do-define reftex-index-menu #5# ("Index" ["Goto section A-Z" (message "To go to a section, just press any of: !%s" reftex-index-section-letters) t] ["Show Entry" reftex-index-view-entry t] ["Go To Entry" reftex-index-goto-entry t] ["Exit & Go To Entry" reftex-index-goto-entry-and-hide t] ["Table of Contents" reftex-index-goto-toc t] ["Quit" reftex-index-quit t] "--" ("Update" ["Rebuilt *Index* Buffer" revert-buffer t] "--" ["Rescan One File" reftex-index-rescan reftex-enable-partial-scans] ["Rescan Entire Document" reftex-index-Rescan t]) ("Restrict" ["Restrict to section" reftex-index-restrict-to-section t] ["Widen" reftex-index-widen reftex-index-restriction-indicator] ["Next Section" reftex-index-restriction-forward reftex-index-restriction-indicator] ["Previous Section" reftex-index-restriction-backward reftex-index-restriction-indicator]) ("Edit" ["Edit Entry" reftex-index-edit t] ["Edit Key" reftex-index-edit-key t] ["Edit Attribute" reftex-index-edit-attribute t] ["Edit Visual" reftex-index-edit-visual t] "--" ["Add Parentkey" reftex-index-level-down t] ["Remove Parentkey " reftex-index-level-up t] "--" ["Make Start-of-Range" reftex-index-toggle-range-beginning t] ["Make End-of-Range" reftex-index-toggle-range-end t] "--" ["Kill Entry" reftex-index-kill nil] "--" ["Undo" reftex-index-undo nil]) ("Options" ["Context" reftex-index-toggle-context :style toggle :selected reftex-index-include-context] "--" ["Follow Mode" reftex-index-toggle-follow :style toggle :selected reftex-index-follow-mode]) "--" ["Help" reftex-index-show-help t]) key reftex-index-section-letters #6=#:--cl-vec-- #7=#:--cl-idx--] 9) (#$ . 6772)) #@68 Stores the file name from which `reftex-display-index' was called. (defvar reftex-last-index-file nil (#$ . 10255)) #@49 Stores the tag of the index in an index buffer. (defvar reftex-index-tag nil (#$ . 10377)) #@70 Marker which makes it possible to return from index to old position. (defvar reftex-index-return-marker (make-marker) (#$ . 10474)) (defvar reftex-index-restriction-indicator nil) (defvar reftex-index-restriction-data nil) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [reftex-index-mode-hook variable-documentation put purecopy "Hook run when entering RefTeX Index 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-index-mode-map definition-name reftex-index-mode] 5) (defvar reftex-index-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-index-mode-map variable-documentation put purecopy "Keymap for `reftex-index-mode'." boundp reftex-index-mode-syntax-table definition-name reftex-index-mode] 5) (defvar reftex-index-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-index-mode-syntax-table variable-documentation put purecopy "Syntax table for `reftex-index-mode'." reftex-index-mode-abbrev-table definition-name reftex-index-mode] 5) (defvar reftex-index-mode-abbrev-table (progn (define-abbrev-table 'reftex-index-mode-abbrev-table nil) reftex-index-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-index-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `reftex-index-mode'." reftex-index-mode derived-mode-parent nil] 5) #@311 Major mode for managing Index buffers for LaTeX files. This buffer was created with RefTeX. Press `?' for a summary of important key bindings, or check the menu. Here are all local bindings. \{reftex-index-mode-map} This mode runs the hook `reftex-index-mode-hook', as the final step during initialization. (defalias 'reftex-index-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \"\306\315!\210\316 \306\317!\210\320\306\321!\210\320\322\323\324\325\326\321\327\330\257#\307$\306\331!\210\332% \"\210\333\334\335\320\307$\210\333\336\337\320\307$\210)\340\341!\207" [delay-mode-hooks major-mode mode-name reftex-index-mode-map reftex-index-mode-syntax-table reftex-index-mode-abbrev-table make-local-variable t kill-all-local-variables reftex-index-mode "RefTeX Index" use-local-map set-syntax-table revert-buffer-function reftex-index-revert reftex-index-restriction-data nil reftex-index-restriction-indicator "---- " mode-line-buffer-identification " " global-mode-string " R<" ">" " -%-" reftex-last-follow-point easy-menu-add add-hook post-command-hook reftex-index-post-command-hook pre-command-hook reftex-index-pre-command-hook run-mode-hooks reftex-index-mode-hook local-abbrev-table mode-line-format truncate-lines reftex-index-menu] 8 (#$ . 12101) nil]) (defconst reftex-index-help " AVAILABLE KEYS IN INDEX BUFFER\n ==============================\n! A..Z Goto the section of entries starting with this letter.\nn / p next-entry / previous-entry\nSPC / TAB Show/Goto the corresponding entry in the LaTeX document.\nRET Goto the entry and hide the *Index* window (also on mouse-2).\nq / k Hide/Kill *Index* buffer.\nC-c = Switch to the TOC buffer.\nf / c Toggle follow mode / Toggle display of [c]ontext.\ng Refresh *Index* buffer.\nr / C-u r Reparse the LaTeX document / Reparse entire LaTeX document.\ns Switch to a different index (for documents with multiple indices).\ne / C-k Edit/Kill the entry.\n* | @ Edit specific part of entry: [*]key [|]attribute [@]visual\n With prefix: kill that part.\n( ) Toggle entry's beginning/end of page range property.\n_ ^ Add/Remove parent key (to make this item a subitem).\n} / { Restrict Index to a single document section / Widen.\n< / > When restricted, move restriction to previous/next section.") (defalias 'reftex-index-show-entry #[(data &optional no-revisit) "\3068\3078\3108\311\n! \203 \312 !\2036 \313\314 \315\"!\210 \206& eb\210\316\f!\206= \317\f\nG\"\202= \320\321\"\210\315\211 \203T \322\224b\210\323\324!\210\325\322\211\224\322\225p$\210-\207" [data file literal pos re no-revisit 3 2 4 regexp-quote reftex-get-buffer-visiting switch-to-buffer-other-window reftex-get-file-buffer-force nil looking-at reftex-nearest-match message "%s" 0 recenter (4) reftex-highlight reftex-no-follow-message match] 6]) #@353 Display a buffer with an index compiled from the current document. When the document has multiple indices, first prompts for the correct one. When index support is turned off, offer to turn it on. With one or two `C-u' prefixes, rescan document first. With prefix 2, restrict index to current document section. With prefix 3, restrict index to region. (defalias 'reftex-display-index #[(&optional tag overriding-restriction redo &rest locations) "\306\307!\210\310!\210) `\311\223\210\312 J 1\206 \313 2\314 3\315 45\2067 6?\2057 \316\f\" 78\206m \317\312!\211 9@\211 :;\235\205^ \2129A:G\\b\210\320 \210\321 )\211 <@@\322=\205l <@C+ 8\311 =\3232!=7\204\201 \203\206 \324=!\210\325=!\203\227 \326\325=!!\210\202\234 \327=!\210>\330=\204\246 \330 \210?\203\256 \331 \210\332\333!\2104\332\334!\2102 \332\303!\210 7\203\326 7@@7A?\202\341 6\204\341 \311\211@?\335 \336U\2039\337\340=\"\210\311A\341\3422\3433!?@@\344=\203\n\345?@8\202\f@$c\210\346 \203 \347\312`\350B$\210\347\312`\351\307$\210\352\f2\"\210eb\210\353\354!\210\337\355=\"\210\307A8\203E\356\357`8#\210@\205O\337\360@\".\207" [current-prefix-arg reftex-index-return-marker reftex-last-follow-point reftex-docstruct-symbol docstruct docstruct-symbol reftex-ensure-index-support t reftex-access-scan-info nil 1 reftex-index-select-tag reftex-TeX-master-file buffer-file-name reftex-get-restriction reftex-what-macro-safe reftex-move-over-touching-args reftex-where-am-I index reftex-make-index-buffer-name reftex-kill-buffer get-buffer-window select-window switch-to-buffer reftex-index-mode reftex-erase-buffer make-local-variable reftex-last-index-file reftex-index-tag buffer-size 0 message "Building %s buffer..." format "INDEX <%s> on %s\nRestriction: <%s>\nSPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help\n------------------------------------------------------------------------------\n" abbreviate-file-name toc 2 reftex-use-fonts put-text-property face intangible reftex-insert-index run-hooks reftex-display-copied-context-hook "Building %s buffer...done." apply reftex-find-start-point "Index restricted: <%s>" tag index-tag master calling-file overriding-restriction redo restriction locations what-macro macro reftex-macros-with-index here-I-am buffer-name major-mode reftex-index-restriction-data reftex-index-restriction-indicator buffer-read-only reftex-index-header-face] 7 (#$ . 15087) nil]) (defalias 'reftex-insert-index #[(docstruct tag &optional update-one remark) "\306 \n\307P \310\311&\" '\312 (\313 )*@ +*A@ ,-\314>\205, . %/ 0\315\211 1 2\315\211 3 4\315 5+\203O + >\206N \211A@\2112\203\204 2,=\203h \315\211\202P 2@\316=\203O 2A@6\232\203O 21B1\202O \3171\237\320\"17\203\247 n\203\230 \321u\210\322`T\323\"\324`\323\"\206\245 d|\2101\211A1@\2112\205\2167\204\365 \325\32628!\226\2115(\232\204\344 5'\235\203\344 \3275)\"\210\3305'\"'5((\312U\203\365 \331(\327()\"\210`3\n\33228\261\210)\203`4\333`\33228GZ4\3340$\2104b\2108\204'\33528\203Wi\336W\2037\337\336iZ\312]\340\"c\210\33528\203L\306\34128\33528\315O\261\2108\203W\3428\261\210\343c\210`4\f\203m \34428\343\261\210`4\33334\3232$\210%\203\207\33334S\345%$\2104b\210\202\247 .\207" [docstruct all indent reftex-index-include-context context context-indent " " " " mapcar identity 0 reftex-use-fonts (mouse both) nil index sort #[(a b) "\3028\302 8\231\207" [a b 8] 3] 1 previous-single-property-change :data next-single-property-change string-to-char 6 reftex-index-insert-new-letter delete 33 7 put-text-property face 9 40 make-string 32 5 " " "\n" 2 mouse-face reftex-index-section-letters section-chars this-section-char font reftex-index-restriction-data bor eor reftex-highlight-selection reftex-mouse-selected-face reftex-label-face index-face sublist cell from to first-char tag update-one remark] 6]) (defalias 'reftex-index-insert-new-letter #[(letter &optional font) "`\304 \211\211\305\261\210\n\203 \306`\307 $\210\304c)\207" [from letter font reftex-index-section-face "\n" "-----------------------------------------------------------------" put-text-property face] 5]) (defalias 'reftex-get-restriction #[(arg docstruct) "`\306\307\310\217\206 d^`\306\311\312\217\206 e]\306\211\306\211 \313=\203N \314 @\211@\315=\2034 \202: \316\315 #\315\n>A\236>@\317\n8\202s \320=\203s \212\321b\210\314 @\211>A@ b\210\314 @>A@)\f\205\203 \n\204 \205\203 \f\n E.\207" [beg end bor eor label here-I-am nil (mark) ((error)) (mark) ((error)) 2 reftex-where-am-I toc reftex-last-assoc-before-elt 6 3 "region" arg docstruct] 5]) (defalias 'reftex-index-pre-command-hook #[nil "\300\301!\210\300\302!\207" [reftex-unhighlight 0 1] 2]) (defalias 'reftex-index-post-command-hook #[nil "\303`\304\"\203/ `\305V\203/ \303`\306\"\204/ \307>\203/ \310\305\311`T\304\"\206% e\312`\304\"\206- d#\210 \250\2038 \313\211\207 \205M \n`\232?\205M `\211\205M \314\315\316\217\207" [reftex-highlight-selection reftex-index-follow-mode reftex-last-follow-point get-text-property :data 1 intangible (cursor both) reftex-highlight previous-single-property-change next-single-property-change t nil (byte-code "\301\302?\"\207" [reftex-revisit-to-follow reftex-index-visit-location nil] 3) ((error t))] 6]) #@41 Show a summary of special key bindings. (defalias 'reftex-index-show-help #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316!\210\317!\210+\320\307\312\"\210\205? \321\211\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*RefTeX Help*" kill-all-local-variables nil 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-index-help reftex-index-follow-mode] 4 (#$ . 20453) nil]) #@31 Move to next selectable item. (defalias 'reftex-index-next #[(&optional arg) "\301m\204 \302u\210\303`\304\"\206 `b\210\305`\304\"?\205$ \303`\304\"\206# `b\207" [reftex-callback-fwd t 1 next-single-property-change :data get-text-property] 3 (#$ . 21083) "p"]) #@35 Move to previous selectable item. (defalias 'reftex-index-previous #[(&optional arg) "\301\302`\303\"\206\n `b\210\304`\303\"?\205 \302`\303\"\206 `b\207" [reftex-callback-fwd nil previous-single-property-change :data get-text-property] 3 (#$ . 21353) "p"]) #@52 Toggle follow (other window follows with context). (defalias 'reftex-index-toggle-follow #[nil "\302 ?\211\207" [reftex-last-follow-point reftex-index-follow-mode -1] 2 (#$ . 21620) nil]) #@121 Toggle inclusion of label context in *Index* buffer. Label context is only displayed when the labels are there as well. (defalias 'reftex-index-toggle-context #[nil "?\301 \207" [reftex-index-include-context reftex-index-revert] 1 (#$ . 21817) nil]) #@41 View document location in other window. (defalias 'reftex-index-view-entry #[nil "\300 \207" [reftex-index-visit-location] 1 (#$ . 22075) nil]) #@68 Go to document location in other window. Hide the *Index* window. (defalias 'reftex-index-goto-entry-and-hide #[nil "\300\301!\207" [reftex-index-visit-location hide] 2 (#$ . 22225) nil]) #@64 Go to document location in other window. *Index* window stays. (defalias 'reftex-index-goto-entry #[nil "\300\301!\207" [reftex-index-visit-location t] 2 (#$ . 22420) nil]) #@68 Go to document location in other window. Hide the *Index* window. (defalias 'reftex-index-mouse-goto-line-and-hide #[(ev) "\301!\210\302\303!\207" [ev mouse-set-point reftex-index-visit-location hide] 2 (#$ . 22599) "e"]) #@48 Hide the *Index* window and do not move point. (defalias 'reftex-index-quit #[nil "\301 \204 \302 \210\303\304!!\210\305!\206 `b\207" [reftex-index-return-marker one-window-p delete-window switch-to-buffer marker-buffer marker-position] 3 (#$ . 22829) nil]) #@26 Kill the *Index* buffer. (defalias 'reftex-index-quit-and-kill #[nil "\301p!\210\302 \204\f \303 \210\304\305!!\210\306!\206 `b\207" [reftex-index-return-marker kill-buffer one-window-p delete-window switch-to-buffer marker-buffer marker-position] 3 (#$ . 23097) nil]) #@132 Switch to the table of contents of the current document. The function will go to the section where the entry at point was defined. (defalias 'reftex-index-goto-toc #[(&rest ignore) "\301`\302\"\203 \303 \210\202 \304\305!!\210\306 \210\307 \207" [reftex-index-return-marker get-text-property :data reftex-index-goto-entry switch-to-buffer marker-buffer delete-other-windows reftex-toc] 3 (#$ . 23376) nil]) #@73 Regenerate the *Index* buffer after reparsing file of section at point. (defalias 'reftex-index-rescan #[(&rest ignore) "\n\203B \204B \306`\307\" \310\f8 \311e`\"n\203 \312\202 \313\\ \204. \314\315!\210\202> \316\317 !!\210\320\321 \322\323$\210+\202E \324 \210\325 )\207" [reftex-index-tag index-tag reftex-enable-partial-scans current-prefix-arg data file get-text-property :data 3 count-lines 1 0 error "Don't know which file to rescan. Try `C-u r'" switch-to-buffer reftex-get-file-buffer-force (4) reftex-display-index nil redo reftex-index-Rescan reftex-kill-temporary-buffers line] 5 (#$ . 23792) nil]) #@68 Regenerate the *Index* buffer after reparsing the entire document. (defalias 'reftex-index-Rescan #[(&rest ignore) "\305e`\"n\203 \306\202 \307\\\310\311 !!\210\312\313\n\314\315 $*\207" [reftex-index-tag line index-tag reftex-last-index-file current-prefix-arg count-lines 1 0 switch-to-buffer reftex-get-file-buffer-force (16) reftex-display-index nil redo] 5 (#$ . 24421) nil]) #@72 Regenerate the *Index* from the internal lists. No reparsing os done. (defalias 'reftex-index-revert #[(&rest ignore) "p\306`\307\"\310e`\"n\203 \311\202 \312\\ \313\314 !!\210\315\f!\210\316\311\317 \316\320\n %,\207" [reftex-index-tag line data index-tag buf reftex-last-index-file get-text-property :data count-lines 1 0 switch-to-buffer reftex-get-file-buffer-force reftex-erase-buffer nil reftex-display-index redo current-prefix-arg reftex-last-follow-point] 6 (#$ . 24814) nil]) #@51 Switch to a different index of the same document. (defalias 'reftex-index-switch-index-tag #[(&rest ignore) "\302\303!!\210\304\305\304\211\306#\207" [reftex-last-index-file current-prefix-arg switch-to-buffer reftex-get-file-buffer-force nil reftex-display-index redo] 4 (#$ . 25317) nil]) #@77 Restrict index to entries defined in same document sect. as entry at point. (defalias 'reftex-index-restrict-to-section #[(&optional force) "\306`\307\" J\310\211 \204 \203 \311\n\236\2036 \312\311\n#\311 \n>A\236\n>@ \fD \313 8,\314 \207" [data reftex-docstruct-symbol docstruct bor eor force get-text-property :data nil toc reftex-last-assoc-before-elt 6 reftex-index-revert reftex-index-restriction-data reftex-index-restriction-indicator] 5 (#$ . 25616) nil]) #@44 Show the unrestricted index (all entries). (defalias 'reftex-index-widen #[(&rest ignore) "\302\211\303 \210\304\305!\207" [reftex-index-restriction-indicator reftex-index-restriction-data nil reftex-index-revert message "Index widened"] 3 (#$ . 26101) nil]) #@171 Restrict to previous section. When index is currently unrestricted, restrict it to a section. When index is restricted, select the next section as restriction criterion. (defalias 'reftex-index-restriction-forward #[(&rest ignore) "J\nA@\211\203 @\305=\204 \306\307!\202* \310 8 \305 >A\236 >@D\311 *\207" [reftex-docstruct-symbol docstruct reftex-index-restriction-data bor reftex-index-restriction-indicator toc reftex-index-restrict-to-section t 6 reftex-index-revert] 5 (#$ . 26369) nil]) #@171 Restrict to next section. When index is currently unrestricted, restrict it to a section. When index is restricted, select the previous section as restriction criterion. (defalias 'reftex-index-restriction-backward #[(&rest ignore) "J\n@\306\307 \310$\211 \203 \f@\307=\204 \311\310!\202( \312\f8\f D\313 +\207" [reftex-docstruct-symbol docstruct reftex-index-restriction-data eor bor reftex-index-restriction-indicator reftex-last-assoc-before-elt toc t reftex-index-restrict-to-section 6 reftex-index-revert] 6 (#$ . 26878) nil]) (defalias 'reftex-index-visit-location #[(&optional final no-revisit) "\306`\307\"\310 \311\211\311 \204 \312\313!\210@\314=\203\" \315 \"\310 p\f\2043 \316 !\210\312\317!\210\316 !\210\320=\203H \321\322!\210\316\n!\202b \323=\203a \321\322!\210\324 \204[ \325 \210\326 !\202b \311-\207" [data index-window show-window show-buffer match no-revisit get-text-property :data selected-window nil error "Don't know which index entry to visit" index reftex-index-show-entry select-window "Cannot find location" t reftex-unhighlight 0 hide one-window-p delete-window switch-to-buffer final] 4]) (defalias 'reftex-index-analyze-entry #[(data) "\3068\3078 \310\311\312 \313Q!\n\"\203 \314\224T\202 \315\316! \314\225S \310\317\320\f8\321\307\f8R\n #\203; \314\224T\202= \310\317\320\f8\321\fA@R\n #\203U \314\224T\202W \n\314 O \n O \nO \nO \n\322O \257.\f\207" [data arg context reftex-index-special-chars sc boa 5 2 string-match regexp-quote "{" "}" 0 error "Something is wrong here" "[^" 3 "]" nil eoa boactual boattr pre key attr actual post] 6 nil nil]) #@32 Edit the index entry at point. (defalias 'reftex-index-edit #[nil "\303`\304\"\305\211\204 \306\307!\210\310 \210\3118\312\313 \"\314\n!+\207" [data old new get-text-property :data nil error "Don't know which index entry to edit" reftex-index-view-entry 2 read-string "Edit: " reftex-index-change-entry] 4 (#$ . 28534) nil]) #@45 Toggle the page range start attribute `|('. (defalias 'reftex-index-toggle-range-beginning #[nil "\306`\307\" A@\310P\311\211 \311 \204 \312\313!\210\314!\315\f8\fAA\211 \n\230\2031 \316\2022 \n\240\210)\317\320\f\"\321 \315\f8\n\230\203H \322\202I \323\"-\207" [data reftex-index-special-chars bor new analyze attr get-text-property :data "(" nil error "Don't know which index entry to edit" reftex-index-analyze-entry 2 "" apply concat reftex-index-change-entry "Entry is now START-OF-PAGE-RANGE" "START-OF-PAGE-RANGE canceled" #1=#:c] 5 (#$ . 28873) nil]) #@43 Toggle the page-range-end attribute `|)'. (defalias 'reftex-index-toggle-range-end #[nil "\306`\307\" A@\310P\311\211 \311 \204 \312\313!\210\314!\315\f8\fAA\211 \n\230\2031 \316\2022 \n\240\210)\317\320\f\"\321 \315\f8\n\230\203H \322\202I \323\"-\207" [data reftex-index-special-chars eor new analyze attr get-text-property :data ")" nil error "Don't know which index entry to edit" reftex-index-analyze-entry 2 "" apply concat reftex-index-change-entry "Entry is now END-OF-PAGE-RANGE" "END-OF-PAGE-RANGE canceled" #1=#:c] 5 (#$ . 29449) nil]) #@39 Edit the KEY part of the index entry. (defalias 'reftex-index-edit-key #[nil "\300\301\302\303\304\305%\207" [reftex-index-edit-part nil 1 "" "Key: " t] 6 (#$ . 30013) nil]) #@75 EDIT the ATTRIBUTE part of the entry. With arg: remove entire ATTRIBUTE. (defalias 'reftex-index-edit-attribute #[(&optional arg) "\302\303 A@\304$\207" [arg reftex-index-special-chars reftex-index-edit-part 2 "Attribute: "] 5 (#$ . 30193) "P"]) #@76 EDIT the VISUAL part of the entry. With arg: remove entire VISUAL string. (defalias 'reftex-index-edit-visual #[(&optional arg) "\302\303\304 8\305$\207" [arg reftex-index-special-chars reftex-index-edit-part 3 2 "Visual: "] 5 (#$ . 30447) "P"]) (defalias 'reftex-index-edit-part #[(arg n initial prompt &optional dont-allow-empty) "\306`\307\"\310\211\310\211 \204 \311\312!\210\313! \n8\211G\314V\203) \315\310O\2032 \316\202: \317P \"\211 \230\203H \311\320!\210\202t \f\316\230\203g \203Z \311\321!\210\202t \n\233\211 \f\240\210)\202t \n\233\211 \fP\240\210)\322\323\n\"\324 \f\316\230\203\210 \325\326 \"\202\214 \325\327\f\"\"-\207" [data new analyze opart npart n get-text-property :data nil error "Don't know which index entry to edit" reftex-index-analyze-entry 0 1 "" read-string "Not changed" "Invalid value" apply concat reftex-index-change-entry format "Deleted: %s" "New value is: %s" arg prompt initial dont-allow-empty #1=#:c #2=#:c] 6]) #@46 Make index entry a subitem of another entry. (defalias 'reftex-index-level-down #[nil "\306`\307\" J\310\211 \310\211 \204 \311\312!\210\3138\3148\315\316\317\n\314\320\321$\"\322\323@!\324P \"\204? @P\322\323! \"\203V \325 P\321\211 $\202Z \311\326!\210\327\f\330\331 \"\".\207" [data reftex-docstruct-symbol docstruct old new prefix get-text-property :data nil error "Don't know which index entry to change" 2 6 completing-read "Prefix: " reftex-sublist-nth #[(x) "@\302=\205\f A@ \230\207" [x reftex-index-tag index] 2] t string-match regexp-quote "\\'" replace-match "Cannot construct new index key" reftex-index-change-entry format "Added prefix: %s" key reftex-index-special-chars] 8 (#$ . 31437) nil]) #@57 Remove the highest level of a hierarchical index entry. (defalias 'reftex-index-level-up #[nil "\305`\306\"\307\211\307\204 \310\311!\210\3128\313\314\f@\315\316\317\f8\320\321\f@!\322\260 \"\203C \323\224\323\225O \324\323\224O \323\225\307OP\202G \310\325!\210\326\n\327\330 \"\",\207" [data old new prefix reftex-index-special-chars get-text-property :data nil error "Don't know which entry to change" 2 string-match "{\\([^" "]*" "[^" 3 "]" regexp-quote "\\)" 1 0 "Entry is not a subitem" reftex-index-change-entry format "Removed prefix: %s"] 10 (#$ . 32179) nil]) #@28 FIXME: Not yet implemented (defalias 'reftex-index-kill #[nil "\300\301!\207" [error "This function is currently not implemented"] 2 (#$ . 32767) nil]) #@28 FIXME: Not yet implemented (defalias 'reftex-index-undo #[nil "\300\301!\207" [error "This function is currently not implemented"] 2 (#$ . 32925) nil]) (defalias 'reftex-index-change-entry #[(new &optional message) "\306`\307\"\310\211\310\211 \204 \311\312!\210\313 \210\314\224\314\225\3158\211 \232\203, \311\316!\210r\317\3208!q\210\nb\210\321\322 !!\204C \311\323!\210\n |\210 c\210\nSb\210\324\325 \310\326#\203v \327\225\203v \330\327\224\nZ! GW\203v \331 !\211\203v \fA\241\210)\310 \212\332C!\326\333$\210*\334\" \205\222 \335\336 \"-\207" [data old beg end info new get-text-property :data nil error "Cannot change entry" reftex-index-view-entry 0 2 "Entry unchanged" get-file-buffer 3 looking-at regexp-quote "This should not happen (reftex-index-change-entry)" re-search-forward reftex-everything-regexp t 10 abs reftex-index-info-safe reftex-insert-index "EDITED" 1 message "%s" buffer-file-name buffer-read-only reftex-index-tag reftex-last-follow-point] 6]) #@38 Go to the CHAR section in the index. (defalias 'reftex-index-goto-letter #[(char) "`\304eb\210\305y\210\306\307\310\n!P\304\311#\203\" \312 \210\313\314!\210\315 \2027 b\210\n\316=\2032 \317\320 \"\2027 \317\321 \n#*\207" [case-fold-search pos char reftex-index-tag nil 2 re-search-forward "^" char-to-string t beginning-of-line recenter 0 reftex-index-next 33 error "This <%s> index does not contain entries sorted before the letters" "This <%s> index does not contain entries starting with `%c'"] 4 (#$ . 33924)]) #@61 Regular expression to match comment lines in phrases buffer (defconst reftex-index-phrases-comment-regexp "^[ ]*%.*" (#$ . 34449)) #@72 Regular expression to match macro definition lines the phrases buffer. (defconst reftex-index-phrases-macrodef-regexp "^\\(>>>INDEX_MACRO_DEFINITION:\\)[ ]+\\(\\S-\\)\\( * [ ]*\\)\\([^ ]*[^ ]\\)\\( * [ ]*\\)\\(\\S-+\\)" (#$ . 34587)) #@71 Regular expression matching phrases which have no separate index key. (defconst reftex-index-phrases-phrase-regexp1 "^\\(\\S-?\\)\\( \\)\\([^ \n]*\\S-\\)\\([ ]*\\)$" (#$ . 34831)) #@70 Regular expression matching phrases which have a separate index key. (defconst reftex-index-phrases-phrase-regexp2 "^\\(\\S-?\\)\\( \\)\\([^ ]*\\S-\\)\\( [ ]*\\)\\([^\n ]*\\S-\\)[ ]*$" (#$ . 35018)) #@56 Regular expression matching all types of phrase lines. (defconst reftex-index-phrases-phrase-regexp12 "^\\(\\S-?\\)\\( \\)\\([^\n ]*\\S-\\)\\(\\( [ ]*\\)\\([^\n ]*\\S-\\)\\)?[ ]*$" (#$ . 35225)) #@119 Alist containing the information taken from the macro definition lines. This gets refreshed in every phrases command. (defvar reftex-index-phrases-macro-data nil (#$ . 35429)) #@55 List of document files relevant for the phrases file. (defvar reftex-index-phrases-files nil (#$ . 35611)) #@51 Font lock keywords for reftex-index-phrases-mode. (defvar reftex-index-phrases-font-lock-keywords nil (#$ . 35724)) #@51 Font lock defaults for reftex-index-phrases-mode. (defvar reftex-index-phrases-font-lock-defaults nil (#$ . 35846)) (byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias reftex-index-phrases-map reftex-index-phrases-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6) #@31 Keymap used for *toc* buffer. (defvar reftex-index-phrases-mode-map (byte-code "\303 \304\305 :\203 @\306\n@\nA#\210 A\211\202 *\307\305!\210\310\311\312\313$\210)\207" [map #1=#:--cl-var-- x make-sparse-keymap (("" . reftex-index-phrases-save-and-return) ("" . reftex-index-this-phrase) ("" . reftex-index-next-phrase) ("" . reftex-index-region-phrases) ("" . reftex-index-all-phrases) ("" . reftex-index-remaining-phrases) ("" . reftex-index-sort-phrases) ("" . reftex-index-new-phrase) (" " . reftex-index-phrases-set-macro-key) (" " . reftex-index-phrases-info) ("" . reftex-index-find-next-conflict-phrase) (" " . self-insert-command)) nil define-key (lambda (#2=#:def-tmp-var) (defvar reftex-index-phrases-menu #2# #3="Menu for Phrases buffer")) easy-menu-do-define reftex-index-phrases-menu #3# ("Phrases" ["New Phrase" reftex-index-new-phrase t] ["Set Phrase Macro" reftex-index-phrases-set-macro-key t] ["Recreate File Header" reftex-index-initialize-phrases-buffer t] "--" ("Sort Phrases" ["Sort" reftex-index-sort-phrases t] "--" "Sort Options" ["by Search Phrase" (setq reftex-index-phrases-sort-prefers-entry nil) :style radio :selected (not reftex-index-phrases-sort-prefers-entry)] ["by Index Entry" (setq reftex-index-phrases-sort-prefers-entry t) :style radio :selected reftex-index-phrases-sort-prefers-entry] ["in Blocks" (setq reftex-index-phrases-sort-in-blocks (not reftex-index-phrases-sort-in-blocks)) :style toggle :selected reftex-index-phrases-sort-in-blocks]) ["Describe Phrase" reftex-index-phrases-info t] ["Next Phrase Conflict" reftex-index-find-next-conflict-phrase t] "--" ("Find and Index in Document" ["Current Phrase" reftex-index-this-phrase t] ["Next Phrase" reftex-index-next-phrase t] ["Current and Following" reftex-index-remaining-phrases t] ["Region Phrases" reftex-index-region-phrases t] ["All Phrases" reftex-index-all-phrases t] "--" "Options" ["Match Whole Words" (setq reftex-index-phrases-search-whole-words (not reftex-index-phrases-search-whole-words)) :style toggle :selected reftex-index-phrases-search-whole-words] ["Case Sensitive Search" (setq reftex-index-phrases-case-fold-search (not reftex-index-phrases-case-fold-search)) :style toggle :selected (not reftex-index-phrases-case-fold-search)] ["Wrap Long Lines" (setq reftex-index-phrases-wrap-long-lines (not reftex-index-phrases-wrap-long-lines)) :style toggle :selected reftex-index-phrases-wrap-long-lines] ["Skip Indexed Matches" (setq reftex-index-phrases-skip-indexed-matches (not reftex-index-phrases-skip-indexed-matches)) :style toggle :selected reftex-index-phrases-skip-indexed-matches]) "--" ["Save and Return" reftex-index-phrases-save-and-return t])] 6) (#$ . 36273)) #@45 Syntax table for RefTeX Index Phrases mode. (defvar reftex-index-phrases-syntax-table (byte-code "\301 \302\303\304#\210)\207" [table make-syntax-table modify-syntax-entry 34 "."] 4) (#$ . 39004)) #@265 Add current selection or word at point to the phrases buffer. When you are in transient-mark-mode and the region is active, the selection will be used - otherwise the word at point. You get a chance to edit the entry in the phrases buffer - finish with `C-c C-c'. (defalias 'reftex-index-phrase-selection-or-word #[(arg) "`\303\223\210\304 \305\"\210\n\306=\205 \307\310\311\312!\"\207" [reftex-index-return-marker arg major-mode nil reftex-index-selection-or-word phrase reftex-index-phrases-mode message "%s" substitute-command-keys "Return to LaTeX with \\[reftex-index-phrases-save-and-return]"] 4 (#$ . 39211) "P"]) #@52 Switch to the phrases buffer, initialize if empty. (defalias 'reftex-index-visit-phrases-buffer #[nil "\305 \210`\306\223\210\307 \310 !\nP\311 !\210\f\312=\204 \312 \210\313 \314U\205( \315 !*\207" [reftex-index-return-marker master reftex-index-phrase-file-extension name major-mode reftex-access-scan-info nil reftex-TeX-master-file file-name-sans-extension find-file reftex-index-phrases-mode buffer-size 0 reftex-index-initialize-phrases-buffer] 3 (#$ . 39840) nil]) #@112 Initialize the phrases buffer by creating the header. If the buffer is non-empty, delete the old header first. (defalias 'reftex-index-initialize-phrases-buffer #[(&optional master) "\306 @\307\n \"A@ \310\311 !\312\" )\313\211 * +\313\211 , -.\203/ \314\315!\210\316.! \317 \320V\203u \321b\210\322`!\210\323/\313\306#\203L \313\210\202= \324\325!\210\3260!\203[ \324\325!\210\326\327!\203h \324\325!\210\202[ \3061\330\331!\203u e`|\210\332\333\316\334 !\"c\210\335c\210\336c\210)\211A)@\211+\203\300 +@*\337+8-\340\313\341\342 \"\"@,\332\343\344,!*\345P-\203\271 \346\202\272 \347$c\210\202\204 \350c.\207" [case-fold-search reftex-index-default-macro default-key reftex-key-to-index-macro-alist default-macro reftex-index-macro-alist t assoc sort copy-sequence #[(a b) "@ \232\207" [a default-macro] 2] nil make-local-variable TeX-master file-name-nondirectory buffer-size 0 1 set-mark re-search-forward beginning-of-line 2 looking-at "^[ ]*$" yes-or-no-p "Delete and rebuild header? " format "%% -*- mode: reftex-index-phrases; TeX-master: \"%s\" -*-\n" reftex-index-phrase-tex-master "% Key Macro Format Repeat\n" "%---------------------------------------------------------------------\n" 7 delq mapcar #[(x) "A@ \232\205\n @\207" [x macro] 2] ">>>INDEX_MACRO_DEFINITION: %s %-20s %s\n" char-to-string "{%s}" "t" "nil" "%---------------------------------------------------------------------\n\n\n" macro-alist macro entry key repeat master reftex-index-phrases-macrodef-regexp reftex-index-phrases-comment-regexp mark-active] 6 (#$ . 40323) nil]) #@69 Return the name of the master file associated with a phrase buffer. (defalias 'reftex-index-phrase-tex-master #[(&optional dir) "\302\300!\203 \303\300p\"\203 ;\203 \304 \"\207\305\306 !\307P\207" [TeX-master dir boundp local-variable-p expand-file-name file-name-sans-extension buffer-file-name ".tex"] 3 (#$ . 41952)]) #@73 Return to where the `reftex-index-phrase-selection-or-word' was called. (defalias 'reftex-index-phrases-save-and-return #[nil "\301 \210\302\303!!\210\304!\206 `b\207" [reftex-index-return-marker save-buffer switch-to-buffer marker-buffer marker-position] 3 (#$ . 42284) nil]) (defvar reftex-index-phrases-restrict-file nil) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [reftex-index-phrases-mode-hook variable-documentation put purecopy "Hook run when entering Phrases 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-index-phrases-mode-map definition-name reftex-index-phrases-mode] 5) (defvar reftex-index-phrases-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-index-phrases-mode-map variable-documentation put purecopy "Keymap for `reftex-index-phrases-mode'." reftex-index-phrases-mode-abbrev-table definition-name reftex-index-phrases-mode] 5) (defvar reftex-index-phrases-mode-abbrev-table (progn (define-abbrev-table 'reftex-index-phrases-mode-abbrev-table nil) reftex-index-phrases-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [reftex-index-phrases-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `reftex-index-phrases-mode'." reftex-index-phrases-mode derived-mode-parent nil] 5) #@965 Major mode for managing the Index phrases of a LaTeX document. This buffer was created with RefTeX. To insert new phrases, use - `C-c \' in the LaTeX document to copy selection or word - `\[reftex-index-new-phrase]' in the phrases buffer. To index phrases use one of: \[reftex-index-this-phrase] index current phrase \[reftex-index-next-phrase] index next phrase (or N with prefix arg) \[reftex-index-all-phrases] index all phrases \[reftex-index-remaining-phrases] index current and following phrases \[reftex-index-region-phrases] index the phrases in the region You can sort the phrases in this buffer with \[reftex-index-sort-phrases]. To display information about the phrase at point, use \[reftex-index-phrases-info]. For more information see the RefTeX User Manual. Here are all local bindings. \{reftex-index-phrases-mode-map} This mode runs the hook `reftex-index-phrases-mode-hook', as the final step during initialization. (defalias 'reftex-index-phrases-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \306\315!\210 \316 \"\210\306\317!\210\320 )\321\322!\207" [delay-mode-hooks major-mode mode-name reftex-index-phrases-mode-map reftex-index-phrases-syntax-table reftex-index-phrases-mode-abbrev-table make-local-variable t kill-all-local-variables reftex-index-phrases-mode "Phrases" use-local-map set-syntax-table font-lock-defaults easy-menu-add reftex-index-phrases-marker make-marker run-mode-hooks reftex-index-phrases-mode-hook local-abbrev-table reftex-index-phrases-font-lock-defaults reftex-index-phrases-menu] 3 (#$ . 43780) nil]) (byte-code "\306 \307B\n\310\311\312D\313\314D\315\257 \316\317D\320\321D\257\f\322\317D\323\321D\324\257\325B\257\326\327\330\331#\210)\307\207" [ss reftex-index-phrases-comment-regexp reftex-index-phrases-macrodef-regexp reftex-index-phrases-phrase-regexp1 reftex-index-phrases-phrase-regexp2 reftex-index-phrases-font-lock-keywords 'secondary-selection font-lock-comment-face (1 font-lock-type-face) (2 font-lock-keyword-face) 3 (4 font-lock-function-name-face) 5 (6 font-lock-string-face) (1 font-lock-keyword-face) 2 (3 font-lock-string-face) 4 (1 font-lock-keyword-face) (3 font-lock-string-face) (5 font-lock-function-name-face) "^ $" ((reftex-index-phrases-font-lock-keywords) nil t nil beginning-of-line) put reftex-index-phrases-mode font-lock-defaults reftex-index-phrases-font-lock-defaults] 9) #@51 Index the next ARG phrases in the phrases buffer. (defalias 'reftex-index-next-phrase #[(&optional arg) "\302\303!\210\304V\205* S\305\210\306 \305\303#\203# \304\224b\210\307\310!\210\202 \311\312!\210\202 \207" [arg reftex-index-phrases-phrase-regexp12 reftex-index-phrases-parse-header t 0 nil re-search-forward reftex-index-this-phrase slave error "No more phrase lines after point"] 4 (#$ . 46227) "p"]) #@163 Index the phrase in the current line. Does a global search and replace in the entire document. At each match, the user will be asked to confirm the replacement. (defalias 'reftex-index-this-phrase #[(&optional slave) "\204 \306\307!\210\212\310 \210\311 !\203 ?\205\336 \312\313!\202\336 \311\314!\203. ?\205\336 \312\315!\202\336 \311\n!\203? ?\205\336 \312\316!\202\336 \311 !\203\333 \317\320!\321\232?\205S \322\317\320!! \317\323! \317\324! \"\f\204g #@\202l \325\f#\"A\211 $@ %$A@ &';\203\214 \326'!\203\214 'C\202\234 ';\203\232 \312\327'\"\202\234 ( )* +$\204\254 \312\330\f\"\210\331\216\332,\333 - . /,\333\224p\223\210\334) %\"&+&\210\335\336\337-\340\"\".\f\202\336 \312\341!)\207" [slave reftex-index-phrases-comment-regexp reftex-index-phrases-macrodef-regexp reftex-index-phrases-phrase-regexp12 char phrase reftex-index-phrases-parse-header t beginning-of-line looking-at error "Comment line" "^[ ]*$" "Empty line" "Macro definition line" match-string 1 "" string-to-char 3 6 assoc file-regular-p "Invalid restriction file %s" "No macro associated with key %c" nil "=>" 0 reftex-query-index-phrase-globally message "%s replaced" reftex-number "occurrence" "Cannot parse this line" index-key reftex-index-phrases-macro-data macro-data macro-fmt repeat reftex-index-phrases-restrict-file reftex-index-phrases-files files reftex-index-phrases-search-whole-words as-words reftex-index-phrases-marker replace-count overlay-arrow-position overlay-arrow-string] 8 (#$ . 46649) nil]) #@103 Index all phrases in the phrases buffer. Calls `reftex-index-this-phrase' on each line in the buffer. (defalias 'reftex-index-all-phrases #[nil "\300ed\"\207" [reftex-index-region-phrases] 3 (#$ . 48176) nil]) #@122 Index all phrases in the phrases buffer. Calls `reftex-index-this-phrase' on each line ay and below point in the buffer. (defalias 'reftex-index-remaining-phrases #[nil "\300 \210\301`d\"\207" [beginning-of-line reftex-index-region-phrases] 3 (#$ . 48393) nil]) #@103 Index all phrases in the phrases buffer. Calls `reftex-index-this-phrase' on each line in the region. (defalias 'reftex-index-region-phrases #[(beg end) "\302\303!\210b\210m\206 ` Y?\205 \212\304\305!\210)\306\307!\210\202 \207" [beg end reftex-index-phrases-parse-header t reftex-index-this-phrase slave beginning-of-line 2] 2 (#$ . 48662) "r"]) #@271 Parse the header of a phrases file to extract the macro definitions. The definitions get stored in `reftex-index-phrases-macro-data'. Also switches to the LaTeX document to find out which files belong to the document and stores the list in `reftex-index-phrases-files'. (defalias 'reftex-index-phrases-parse-header #[(&optional get-files) "\306 \307\n\203! \212\310!\211\204 \311\312\"\210 q\210\313 \210\314 )\307\212eb\210\315 \307\316#\203C \317\320\321!!\320\322!\320\323!\324\232E\fB\202' \f\204M \311\325\"\210\f\237eb+\207" [master buf get-files reftex-index-phrases-files reftex-index-phrases-macro-data reftex-index-phrases-macrodef-regexp reftex-index-phrase-tex-master nil reftex-get-file-buffer-force error "Master file %s not found" reftex-access-scan-info reftex-all-document-files re-search-forward t string-to-char match-string 2 4 6 "t" "No valid MACRO DEFINITION line in %s file (make sure to use TAB separators)" reftex-index-phrase-file-extension] 5 (#$ . 49020)]) #@332 Index all index phrases in the current region. This works exactly like global indexing from the index phrases buffer, but operation is restricted to the current region. This is useful if you need to add/change text in an already indexed document and want to index the new part without having to go over the unchanged parts again. (defalias 'reftex-index-phrases-apply-to-region #[(beg end) "\306 \307 \212\214\n }\210\310\216\311 \204 \f\205\217 \312=\203& \242\312=\202( \203c \313 \203c \314 \203c \203F \315\316\"\210\311\202c \317 \320 U\204c \321\316!\204Z \322\316!\204c \315\316\317 \320 {\"\210\f\204 \323=\204y \242\312=\203 A\204 \311\211\202\217 \242\312=\203\211 A\311\324\325!)\210\326 \210\327 \210\330 -\207" [reftex-index-phrases-restrict-file win-conf beg end force transient-mark-mode current-window-configuration buffer-file-name ((set-window-configuration win-conf)) nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook delete-other-windows reftex-index-visit-phrases-buffer reftex-index-all-phrases select-active-regions saved-region-selection mark-active] 4 (#$ . 50024) "r"]) #@53 Open a new line in the phrases buffer, insert TEXT. (defalias 'reftex-index-new-phrase #[(&optional text) "\203% ;\203% \302!eb\210\303\304\305!\306Q\307\310#\203% \311\225b\210\312\313!\210db\210\314 \307\310#\2033 \307\210n\204: \315c\210\316c\210\205H ;\205H c\207" [text reftex-index-phrases-phrase-regexp12 reftex-index-simplify-phrase re-search-forward "^\\(\\S-*\\) \\(" regexp-quote "\\) *[ \n]" nil t 2 error "Phrase is already in phrases buffer" re-search-backward "\n" " "] 4 (#$ . 51281) nil]) #@435 Find the next a phrase which is has conflicts in the phrase buffer. The command helps to find possible conflicts in the phrase indexing process. It searches downward from point for a phrase which is repeated elsewhere in the buffer, or which is a subphrase of another phrase. If such a phrase is found, the phrase info is displayed. To check the whole buffer, start at the beginning and continue by calling this function repeatedly. (defalias 'reftex-index-find-next-conflict-phrase #[(&optional arg) "\300\301\215\203 \302 \210\303\304!\207db\210\305\306!\207" [exit (byte-code "\305\306\307#\2055 \310\224b\210\311\310!\n\312 \307\" \212eb\210\305\f\306\307#\205( \305\f\306\307#)\2031 \313\314\307\"\210+\202 \207" [reftex-index-phrases-phrase-regexp12 phrase reftex-index-phrases-case-fold-search case-fold-search re re-search-forward nil t 3 match-string reftex-index-phrases-find-dup-re throw exit] 4) reftex-index-phrases-info message "Phrase with match conflict discovered" error "No further problematic phrases found"] 2 (#$ . 51803) "P"]) #@48 Display information about the phrase at point. (defalias 'reftex-index-phrases-info #[nil "\212\306 \210\307!\204 \310\311!\210\312 \313\216\314\315!\210*\316\317!\320\232?\205& \321\316\317!!\316\322!\316\323! \324\f\2065 \" =\n\204C >@\202H \325\n>\"A\211 ?@ @?A@ AB C\326@ \227=@A$ D\327 C\315# E\330 ! F\330 \331\" G\332 H\333\211 I J\333 KL M\332\211 N O\332 PQO\212\214~\210eb\210\334F\332\315#\203\256 JTJ\202\235 eb\210\334G\332\315#\203\317 \335\317`\"\316\317!BHBHKTK\202\261 *rO\211AO@\211N\203\336N!\211P\203\321 Pq\210\212\214~\210eb\210L M\334E\332\315#\203 \337 \204\367 ITI\202\367 +\202\321 )R Sr\340\341!q\210p\342 \210SR\332\211TU\315\211V\315 W X\343 \210\344\345!\210+\211 Y Z\346\347\350 \"!\210\346\347\351\n\"!\210\346\347\352@\"!\210\346\347\353A\"!\210\f\203\216=\333\332 [ \\ ]]\211A]@\211[\203\212\346\347\354\\T\211\\[#!\210\202l+\202\243A\203\235\346\347\355 \"!\210\202\243\346\347\356!!\210\346\347\357D\"!\210\360 \210\346\347\361\362I\363\364#\362QG\365\"#!\210\346\347\366\362J\367\"\"!\210K\317V\205\343\346\347\370\362K\371\"\"!\210\372\373H\237\"\374Y!\210.\207" [reftex-index-phrases-phrase-regexp12 save-match-data-internal char phrase index-key reftex-index-phrases-logical-or-regexp beginning-of-line looking-at error "Not a phrase line" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) reftex-index-phrases-parse-header t match-string 1 "" string-to-char 3 6 split-string assoc reftex-index-make-replace-string reftex-index-make-phrase-regexp reftex-index-phrases-find-dup-re sub nil 0 re-search-forward count-lines reftex-get-file-buffer-force reftex-in-comment get-buffer-create "*Help*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ format " Phrase: %s\n" " Macro key: %s\n" " Macro format: %s\n" " Repeat: %s\n" "Index entry %d: %s\n" " Index entry: %s\n" " Index key: <<Given by the match>>\n" " Example: %s\n" terpri "Total matches: %s in %s\n" reftex-number "match" "es" "LaTeX file" " Uniqueness: Phrase occurs %s in phrase buffer\n" "time" " Superphrases: Phrase matches the following %s in the phrase buffer:\n" "line" mapcar #[(x) "\301\302\303@A#!\207" [x princ format " Line %4d: %s\n"] 5] internal-temp-output-buffer-show index-keys reftex-index-phrases-macro-data macro-data macro-fmt repeat reftex-index-phrases-search-whole-words as-words example re re1 re2 superphrases nmatches ntimes1 ntimes2 reftex-index-phrases-case-fold-search case-fold-search file files buf reftex-index-phrases-files default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ik cnt iks] 8 (#$ . 52864) nil]) #@295 Change the macro key for the current line. Prompts for a macro key and insert is at the beginning of the line. If you reply with SPACE, the macro keyn will be removed, so that the default macro will be used. If you reply with `RET', just prints information about the currently selected macro. (defalias 'reftex-index-phrases-set-macro-key #[nil "\306 \210\212\307 \210\310!\204 \310\311!\204 \312\313!\210\314\315!\316 \n\"\317\211 \204Z \320\232\2036 \321\n@\202Z \322\232\203U `f\211\323\232\203M \321\n@\202Z \316 \n\"\202Z \312\324 \"\210 A@\325 8 \203\203 \310\326!\203p \327\330!\210 c\210\331\332\f \203~ \333\202 \334#\202\206 \312\335!-\207" [reftex-index-phrases-phrase-regexp12 nc reftex-index-phrases-macro-data macro-data macro-fmt repeat reftex-index-phrases-parse-header beginning-of-line looking-at " " error "This is not a phrase line" reftex-index-select-phrases-macro 0 assoc nil 32 "" 13 9 "No macro associated with %c" 2 "[^ ]" delete-char 1 message "Line will use %s %s repeat" "with" "without" "Abort"] 5 (#$ . 55714) nil]) #@196 Sort the phrases lines in the buffer alphabetically. Normally, this looks only at the phrases. With a prefix arg CHARS-FIRST, it first compares the macro identifying chars and then the phrases. (defalias 'reftex-index-sort-phrases #[(&optional chars-first) "\306 \210`\307\210`{\307\211eb\210\310 \307\311#\205 \312\224db\210\313 \307\311#\211\2031 b\210\307\210` \203l \203l \314\315!\210\316 {\317\" \320\f\321\" \314\322!\210\311 |\210\323\324 \317#c\210+db\210\313\325\326\n!\327Q\307\311#\202o \330\331!+\207" [end beg line reftex-index-phrases-phrase-regexp12 lines lines1 beginning-of-line nil re-search-forward t 0 re-search-backward message "Sorting lines..." split-string "\n" sort reftex-compare-phrase-lines "Sorting lines...done" mapconcat identity "^" regexp-quote "$" error "Cannot find phrases lines to sort" inhibit-quit] 5 (#$ . 56787) "P"]) #@43 The comparison function used for sorting. (defalias 'reftex-compare-phrase-lines #[(a b) "\306\211\211\211\211\211 \307\f \"\203{ \310\311 \"\203( \310\312 \"\206- \310\313 \"\227\307\f\"\205~ \310\311\"\203K \310\312\"\206P \310\313\"\227 \f\231 \n\231\203m \f\230\203i \202~ \202~ \n\230\203w \202~ \202~ ?.\207" [p-p c-p pb pa cb ca nil string-match match-string 1 6 3 reftex-index-phrases-phrase-regexp12 a reftex-index-phrases-sort-prefers-entry b chars-first reftex-index-phrases-sort-in-blocks] 6 (#$ . 57669)]) #@207 Return a regexp matching PHRASE, even if distributed over lines. With optional arg AS-WORDS, require word boundary at beginning and end. With optional arg ALLOW-NEWLINE, allow single newline between words. (defalias 'reftex-index-make-phrase-regexp #[(phrase &optional as-words allow-newline) "\305!\n\203\f \306\202 \307\f\203 \310\311 @\"\203 \312\202 \313\314\315 #\f\2037 \310\316 GS 8\"\2037 \317\2028 \313Q*\207" [phrase words allow-newline space-re as-words split-string "\\([ ]*\\(\n[ ]*\\)?\\|[ ]\\)" "\\([ ]+\\)" string-match "\\`\\w" "\\(\\<\\|[`']\\)" "" mapconcat #[(w) "\302\203\n \227\202 !\207" [reftex-index-phrases-case-fold-search w regexp-quote] 2] "\\w\\'" "\\(\\>\\|'\\)"] 6 (#$ . 58235)]) #@44 Make phrase single spaces and single line. (defalias 'reftex-index-simplify-phrase #[(phrase) "\301\302\303!\304#\207" [phrase mapconcat identity split-string " "] 4 (#$ . 58969)]) #@218 Return a regexp which matches variations of PHRASE (with additional space). When SUB ins non-nil, the regexp will also match when PHRASE is a subphrase of another phrase. The regexp works lonly in the phrase buffer. (defalias 'reftex-index-phrases-find-dup-re #[(phrase &optional sub) "\203 \302\202 \303\304\305\306 !\307#\203 \310\202 \311Q\207" [sub phrase "^\\S-? \\([^ \n]*" "^\\S-? " mapconcat regexp-quote split-string " +" "[^ \n]*\\)\\([ \n]\\|$\\)" " *\\([ \n]\\|$\\)"] 5 (#$ . 59158)]) #@97 Return the string which can be used as replacement. Treats the logical `and' for index phrases. (defalias 'reftex-index-make-replace-string #[(macro-fmt match index-key &optional repeat mathp) "\305\206 \n\"\306\307 \310#\f\203 \311 !\202 \310P)\207" [index-key match reftex-index-phrases-logical-and-regexp index-keys repeat split-string mapconcat #[(x) "\304\304 \203 \n\202\f \305 \"\"\207" [macro-fmt mathp reftex-index-math-format x format "%s"] 5] "" reftex-index-simplify-phrase] 4 (#$ . 59668)]) #@58 Call `reftex-query-index-phrase' for all files in FILES. (defalias 'reftex-query-index-phrase-globally #[(files &rest args) "\303 \304\n\204 \305\306!\210\307\216\310\311\n@!!\210\312\313\215+\207" [file win-conf files current-window-configuration nil error "No files" ((byte-code "\301\302!\210\303!\207" [win-conf reftex-unhighlight 0 set-window-configuration] 2)) switch-to-buffer-other-window reftex-get-file-buffer-force no-more-files (byte-code "\211A@\211\205% \304\305 !!\210\212\214\n;\204 ~\210eb\210\306\307 \"\210*\202 \207" [files file reftex-index-phrases-restrict-file args switch-to-buffer reftex-get-file-buffer-force apply reftex-query-index-phrase] 3)] 3 (#$ . 60186)]) #@39 The help string for indexing phrases. (defconst reftex-index-phrases-help " Keys for query-index search\n ===========================\ny Replace this match\nn Skip this match\n! Replace this and all further matches in this file\nq / Q Skip match, start next file / start next phrase\no Use a different indexing macro for this match\n1 - 9 Select one of the multiple phrases\ne Edit the replacement text\nC-r Recursive edit.\ns / S Save this buffer / Save all document buffers\nC-g Abort" (#$ . 60890)) #@328 Search through buffer for PHRASE, and offer to replace it with an indexed version. The index version is derived by applying `format' with MACRO-FMT to INDEX-KEY or PHRASE. When REPEAT is non-nil, the PHRASE is inserted again after the macro. AS-WORDS means, the search for PHRASE should require word boundaries at both ends. (defalias 'reftex-query-index-phrase #[(phrase macro-fmt &optional index-key repeat as-words) "\306 \307# \310 \206 \"\211 G @ \311\211 \311\211 \312 \312 \311 \313\311\223\210\313\311\223\210\314\216\315\n\311\316#\205P \317\320\215\210\202A . \207" [phrase as-words re reftex-index-phrases-case-fold-search case-fold-search index-key reftex-index-make-phrase-regexp allow-newline split-string nil make-marker 1 ((byte-code "\303\304!\210\305\211\223\210 \305\211\223\210\305\306\307!\207" [beg end all-yes message #1="" nil reftex-unhighlight 0] 3)) re-search-forward t next-match (byte-code "\306 \203\n \307\310\311\"\210\312!\203 \204 \307\310\311\"\210\313\314!\315 \316\216\311\317\320\217*\f\314\224\311\223 \314\225\311\223\203L \315 \321\216\322\f \"*\203L \307\310\311\"\210\323\314\211\224\314\225#\210\315 \324\216\325\313\314! %* \326\327\215\203h \311\207" [reftex-index-verify-function match save-match-data-internal mathp beg end reftex-in-comment throw next-match nil fboundp match-string 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) (texmathp) ((error)) ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) reftex-index-phrase-match-is-indexed reftex-highlight ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) reftex-index-make-replace-string loop (byte-code "\306\307 \310V\203 \311\312 !P\202 \313#\210\n\203 \314\202 \315 \211\316\235\203A \317\320\211#\210\fT \2039 \321=>\"\210\322\323\320\"\210\202\240 \324\235\203O \322\323\320\"\210\202\240 \325\232\203Z \320\202\240 \326\232\203k db\210\322\323\320\"\210\202\240 \327\232\203y \322\330\320\"\210\202\240 \331\232\203\205 \332 \210\202\240 \333\232\203\221 \334 \210\202\240 \335\232\203\235 \336 \210\202\240 \337\235\203\336 \340\341! ?\342?@\"A\211 A@ BAA@ CA\203\327 \343 D\344\216\345BEFCG%*\202\332 \346 \210,\202\240 \347\232\203 H Ir\350\351!q\210p\352 \210IH\353\211JK\320\211L\320 M N\354 \210\355\356!\210+\211 O P\357Q!\210\360O!\210+\202\240 \361\232\203;\343 D\362\216\212\306\363\364\365!\"\210\366 \210+\202\240 \367\232\203I\370\371\"\202\240 \372\232\203oR\206VSF\343 D\373\216\345BEFCG%*\202\240 \372V\203\235 \372 \\X\203\235 \372ZST8F\343 D\374\216\345BEFCG%*\202\240\346 \210\353\207" [rpl nkeys all-yes char replace-count reftex-index-phrases-wrap-long-lines message "REPLACE: %s? (yn!qoe%s?)" 1 "1-" int-to-string #1# 121 read-char-exclusive (121 89 32) replace-match t reftex-index-phrases-fixup-line throw loop (110 78 8 127) 33 113 81 no-more-files 115 save-buffer 83 reftex-save-all-document-buffers 7 keyboard-quit (111 79) reftex-index-select-phrases-macro 2 assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) reftex-index-make-replace-string ding 63 get-buffer-create "*Help*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show 18 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "%s" substitute-command-keys "Recursive edit. Resume with \\[exit-recursive-edit]" recursive-edit 101 read-string "Edit: " 48 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beg end nc reftex-index-phrases-macro-data macro-data macro-fmt repeat save-match-data-internal match ckey mathp default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output reftex-index-phrases-help index-key phrase index-keys] 7) reftex-index-phrases-skip-indexed-matches macro-fmt ckey repeat rpl] 6) reftex-index-phrases-logical-or-regexp index-keys nkeys ckey all-yes match rpl char beg end mathp] 5 (#$ . 61453)]) (defalias 'reftex-index-phrase-match-is-indexed #[(beg end) "\212b\210\306\307!\n\310V\205 \nSb\205 `f\311>\205 \306\312!@b\205. \313\314!\205. \315\312! \316 \317\320\215\206J \203B \235\206J \f\205J \f\235-\207" [end all-macros beg before-macro after-macro macro reftex-what-macro t 2 (93 125) 1 looking-at "\\(\\\\[a-zA-Z]+\\*?\\)[[{]" match-string nil matched (byte-code "\211A@\211\203 @\n\235\203 \303\304\305\"\210\202 \306\207" [all-macros macro reftex-macros-with-index throw matched t nil] 3) reftex-macros-with-index] 2]) #@62 Insert newlines before BEG and/or after END to shorten line. (defalias 'reftex-index-phrases-fixup-line #[(beg end) "\306\211\211\211\212\307 \210`\306\210`\fb\210\310\306x\210h\311\232\203, \312\313 `{\"\203, `S b\210\310\306w\210g\311\232\203D \312\313`\n{\"\203D `\n Z X?\205\252 \204W ?\206\252 \204a \314 !\202\252 \204k \314!\202\252 Z Z\nZ V\203\214 \314 !\210\314!\202\251 \\ V\203\233 \314 !\210\\ V\205\251 \314!+-\207" [space2 space1 eol bol beg end nil beginning-of-line "^ \n" 32 string-match "\\S-" reftex-index-phrases-replace-space fill-column l3 l2 l1] 4 (#$ . 66340)]) #@91 If there is a space at POS, replace it with a newline char. Does not do a save-excursion. (defalias 'reftex-index-phrases-replace-space #[(pos) "f\301\232\205 b\210\302\303!\210\304c\207" [pos 32 delete-char 1 "\n"] 2 (#$ . 66973)]) #@69 Offer a list of possible index macros and have the user select one. (defalias 'reftex-index-select-phrases-macro #[(&optional delay) "\304\305\306\307#\310Q\311\305\312\313#P\314 \n #*\207" [reftex-index-phrases-macro-data prompt help delay "Select macro: [" mapconcat #[(x) "\301@!\207" [x char-to-string] 2] "" "] " "Select an indexing macro\n========================\n" #[(x) "\301\302@A@#\207" [x format " [%c] %s"] 4] "\n" reftex-select-with-char] 5 (#$ . 67215)]) (provide 'reftex-index)