;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:22 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/reftex-sel.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`reftex-sel.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\207" [provide reftex-sel require reftex] 2) #@185 Keymap used for *RefTeX Select* buffer, when selecting a label. This keymap can be used to configure the label selection process which is started with the command \[reftex-reference]. (defvar reftex-select-label-map nil (#$ . 657)) #@370 Major mode for selecting a label in a LaTeX document. This buffer was created with RefTeX. It only has a meaningful keymap when you are in the middle of a selection process. To select a label, move the cursor to it and press RET. Press `?' for a summary of important key bindings. During a selection process, these are the local bindings. \{reftex-select-label-map} (defalias 'reftex-select-label-mode #[nil "\304 \210\305\306\307\302!\210\310\311 !\203\312 !\210\313\314!\207" [major-mode mode-name reftex-select-marked reftex-latex-syntax-table kill-all-local-variables reftex-select-label-mode "LSelect" make-local-variable nil syntax-table-p set-syntax-table run-hooks reftex-select-label-mode-hook] 2 (#$ . 896) nil]) #@192 Keymap used for *RefTeX Select* buffer, when selecting a BibTeX entry. This keymap can be used to configure the BibTeX selection process which is started with the command \[reftex-citation]. (defvar reftex-select-bib-map nil (#$ . 1634)) #@389 Major mode for selecting a citation key in a LaTeX document. This buffer was created with RefTeX. It only has a meaningful keymap when you are in the middle of a selection process. In order to select a citation, move the cursor to it and press RET. Press `?' for a summary of important key bindings. During a selection process, these are the local bindings. \{reftex-select-label-map} (defalias 'reftex-select-bib-mode #[nil "\303 \210\304\305\306\302!\210\307\310\311!\207" [major-mode mode-name reftex-select-marked kill-all-local-variables reftex-select-bib-mode "BSelect" make-local-variable nil run-hooks reftex-select-bib-mode-hook] 2 (#$ . 1879) nil]) (defalias 'reftex-get-offset #[(buf here-am-I &optional typekey toc index file) "\300\301\215\207" [exit (byte-code "\212q\210\306 \210 J\307\211\n\211A@\211\203i \2030\f@;\2030 \310\232\204T \fA@\232\204T \203<\f@\311=\204T\n\203H\f@\312=\204T\203V\f@\313>\203V\f\f=\203\314\315 \206d\f\"\210\202,\307\207" [buf reftex-docstruct-symbol rest lastentry entry typekey reftex-access-scan-info nil " " toc index (bof eof file-error) throw exit file here-am-I] 4)] 2]) (defalias 'reftex-insert-docstruct #[(buf toc labels index-entries files context counter show-commented here-I-am xr-prefix toc-buffer) "\306 \307\310\311\312\f\203\313 \314_\315\"\202\316P@\317\f\203)\313 \314_\315\"\202*\316PAB\320>\2056C*\321D\322\323#E\321F\322\323#G\324\211HI\324\211JK\324\211LM\324\211NO\324\211PQ\324\211RS\324\211TU\212Vq\210\325 \210UJH\324W\326\327\330\331 !!PO)\332\333!\210U\332\334!\210\335XY\"A\211\311\232\203\257\324H\211AH@\211I\203^\nT`RI@\336>\204@I@\337>\203MZ\203@IP\340\341OIA@\"\203\362IA@\307\225\324O\202\366IA@I@\342=\203\343\202I@\344=\203\345\202I@\346=\205\347\261\210`S\203+\350RS\351[$\210\\\203@*\203@\350RSS\352*$\210\350RS\353I$\210\202@I@\304=\203\253\f\203@\354I8]X\203@IPIW \355I8\356Qc\210`S\203\205\350RS\351^$\210\\\203\244*\203\232\350RSS\352*$\210\350RS\353I$\210Sb\210\202@I@;\203\251\355I8\204\311I\357I!A\241\210\360U\361\362#\210I@KIA@L\355I8J\363I8N\354I8MX\203@X\362=\204LX\230\204X\311\230\203@_\204 N\204@ TIP`KPKN\203$\364KPK@K\261\210\203L`S\350`KGZS\351N\203D\365\202FE$\210Sb\210a\203X\366\367 \"\202Y\316N\203b\370\202c\316M;\203p\371MP\202q\316\356\261\210`Sb\203\210AJ\356\261\210`S\350RS\353I$\210*\203\242\350RSS\352*$\210Sb\210\202@I@\302=\203@c\203@c\362=\204\307cIA@\230\203@IP\366\372IA@\"T\203\344\350\307TG\351dT%\210@T\311\314I8\261\210\203\n`S\350`\314I8GZS\351G$\210Sb\210\356c\210`Sb\203\"A\355I8\356\261\210`S\350RS\353I$\210*\203<\350RSS\352*$\210Sb\210Ie=\203K\373QP\203\257Q\373=\203\257PQ\202\257\374 \203h\375V!\210\376\377!\210Q.\207" [font cnt index toc-indent toc reftex-level-indent reftex-use-fonts 0 -1 " " "> " make-string 7 32 "" ". " (mouse both) reftex-verified-face font-lock-constant-face font-lock-reference-face nil reftex-access-scan-info "\\`" regexp-quote file-name-directory reftex-TeX-master-file make-local-variable reftex-docstruct-symbol reftex-prefix assoc (bib thebib label-numbers appendix master-dir bibview-cache is-multi xr xr-doc) (bof eof file-error) " File " string-match bof " starts here\n" eof " ends here\n" file-error " was not found\n" put-text-property face mouse-face :data 5 2 "\n" reftex-label-info-update put modified t 4 "% " font-lock-comment-face format " (%d) " " LABEL IS COMMENTED OUT " " " "<%s>" attention reftex-refontify reftex-fontify-select-label-buffer run-hooks reftex-display-copied-context-hook label-indent context-indent reftex-highlight-selection reftex-mouse-selected-face reftex-label-face label-face reftex-index-face index-face all cell text label typekey note comment master-dir-re prev-inserted offset from to index-tag docstruct-symbol buf reftex-active-toc labels reftex-typekey-to-prefix-alist files reftex-file-boundary-face toc-buffer reftex-toc-max-level reftex-section-heading-face show-commented xr-prefix counter context index-entries reftex-index-tag-face here-I-am] 7]) (defalias 'reftex-find-start-point #[(fallback &rest locations) "\300\301\215\207" [exit (byte-code "eb\210\304\211\n\203J\n\211A@\211\203 <\2030\305ed\306 $\211\203b\210\307\310\311\"\210\202 \250\203 \312ed\"X\203\313 !\210\307\310\311\"\210\202 b*\207" [pos loc locations fallback nil text-property-any :data throw exit t count-lines goto-line] 6)] 2]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list reftex-last-data default-boundp set-default nil reftex-last-line reftex-select-marked] 3) (defalias 'reftex-select-item #[(prompt help-string keymap &optional offset call-back cb-flag) "\306\211\306p\306\307\310\215\311\305!\210\312e`\"n\203\313\202\314\\\311\315!\210\n \316\317!\210?\320\321!\210 \nE,\207" [ev data last-data selection-buffer reftex-select-marked reftex-last-line nil myexit (byte-code "\300\213\207" [((byte-code "\306\307e \n $\210\310\311!\210\312\304!\210`\313\216\314 !\210\315\316\317\320\306$\210\315\321\322\320\306$\210\323!\210`\320\223\210\324 )\207" [truncate-lines offset reftex-last-data reftex-last-line reftex-last-follow-point keymap t reftex-find-start-point beginning-of-line 1 make-local-variable ((byte-code "\303\211\223\210\212 q\210\304\303!\210\305\306\307\310#\210\305\311\312\310#\210)\313\314\n\"\207" [reftex-recursive-edit-marker selection-buffer reftex-select-marked nil use-local-map remove-hook pre-command-hook reftex-select-pre-command-hook t post-command-hook reftex-select-post-command-hook mapcar #[(c) "\301A@!\207" [c reftex-delete-overlay] 2]] 4)) use-local-map add-hook pre-command-hook reftex-select-pre-command-hook nil post-command-hook reftex-select-post-command-hook princ recursive-edit prompt reftex-recursive-edit-marker] 5))] 1) make-local-variable count-lines 1 0 reftex-last-data reftex-kill-buffer "*RefTeX Help*" message "" reftex-callback-fwd] 4]) (defalias 'reftex-select-pre-command-hook #[nil "\300\301!\210\300\302!\207" [reftex-unhighlight 1 0] 2]) (defalias 'reftex-select-post-command-hook #[nil "\306\211\307`\310\"\211\206 \n\203)\f\203) `\232\204)`\n?#\210\n\203C\311`T\310\"\2066e\312`\310\"\206?d\202G``\313>\203T\314\315 #\210\316 !\203`\316!\204d\317\320!\210\321 ?\205n\322!*\207" [e b data last-data cb-flag reftex-last-follow-point nil get-text-property :data previous-single-property-change next-single-property-change (cursor both) reftex-highlight 1 pos-visible-in-window-p recenter (4) current-message princ call-back reftex-callback-fwd reftex-revisit-to-follow reftex-highlight-selection prompt] 5]) #@31 Move to next selectable item. (defalias 'reftex-select-next #[(&optional arg) "\302m\204 \303u\210\304\305\306\302 $\210\307\303!\207" [reftex-callback-fwd arg t 1 re-search-forward "^[^. \n ]" nil beginning-of-line] 5 (#$ . 8857) "p"]) #@35 Move to previous selectable item. (defalias 'reftex-select-previous #[(&optional arg) "\302\303\304\302\305 $\207" [reftex-callback-fwd arg nil re-search-backward "^[^. \n ]" t] 5 (#$ . 9103) "p"]) #@85 Jump to a specific section. E.g. '3 z' jumps to section 3. Useful for large TOC's. (defalias 'reftex-select-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 (#$ . 9309) "P"]) #@39 Move to next table of contentes line. (defalias 'reftex-select-next-heading #[(&optional arg) "\301\210\302\303\301\304$\210\305 \207" [arg nil re-search-forward "^ " t beginning-of-line] 5 (#$ . 9605) "p"]) #@43 Move to previous table of contentes line. (defalias 'reftex-select-previous-heading #[(&optional arg) "\301\302\303\304$\207" [arg re-search-backward "^ " nil t] 5 (#$ . 9821) "p"]) #@26 Abort selection process. (defalias 'reftex-select-quit #[nil "\300\301\302\"\207" [throw myexit nil] 3 (#$ . 10010) nil]) #@26 Abort selection process. (defalias 'reftex-select-keyboard-quit #[nil "\300\301\302\"\207" [throw exit t] 3 (#$ . 10138) nil]) #@57 Jump back to where previous selection process left off. (defalias 'reftex-select-jump-to-previous #[nil "\303\304\301p\"\203 \203\305ed\306 $\211\203b\2021\304\302p\"\203/\n\250\203/\307\n!\2021\310 )\207" [pos reftex-last-data reftex-last-line nil local-variable-p text-property-any :data goto-line ding] 5 (#$ . 10271) nil]) #@62 Toggle follow mode: Other window follows with full context. (defalias 'reftex-select-toggle-follow #[nil "\302 ?\211\207" [reftex-last-follow-point cb-flag -1] 2 (#$ . 10617) nil]) #@73 Toggle the macro used for referencing the label between \ref and \vref. (defalias 'reftex-select-toggle-varioref #[nil "\301\230\203 \302\202 \301\303 \207" [refstyle "\\ref" "\\vref" force-mode-line-update] 2 (#$ . 10807) nil]) #@73 Toggle the macro used for referencing the label between \ref and \vref. (defalias 'reftex-select-toggle-fancyref #[nil "\301\230\203\n\302\202\302\230\203\303\202\301\304 \207" [refstyle "\\ref" "\\fref" "\\Fref" force-mode-line-update] 2 (#$ . 11047) nil]) #@68 Show the point from where selection was started in another window. (defalias 'reftex-select-show-insertion-point #[nil "\302 \303\216\304\305 !!\210\306 !b\210\307\310!*\207" [this-window reftex-select-return-marker selected-window ((select-window this-window)) switch-to-buffer-other-window marker-buffer marker-position recenter (4)] 3 (#$ . 11321) nil]) #@38 Show full context in another window. (defalias 'reftex-select-callback #[nil "\203\n \n\303#\207\304 \207" [data call-back reftex-callback-fwd nil ding] 4 (#$ . 11685) nil]) #@37 Accept the currently selected item. (defalias 'reftex-select-accept #[nil "\300\301\302\"\207" [throw myexit return] 3 (#$ . 11868) nil]) #@37 Accept the item at the mouse click. (defalias 'reftex-select-mouse-accept #[(ev) "\303!\210\304`\305\"\211\206\n\306\307\310\"\207" [ev data last-data mouse-set-point get-text-property :data throw myexit return] 4 (#$ . 12012) "e"]) #@63 Use minibuffer to read a label to reference, with completion. (defalias 'reftex-select-read-label #[nil "\303\304J\305\211 %\211\306\232\206\n \232?\205\307\310\n\")\207" [reftex-docstruct-symbol reftex-prefix label completing-read "Label: " nil "" throw myexit] 7 (#$ . 12256) nil]) #@56 Use minibuffer to read a citation key with completion. (defalias 'reftex-select-read-cite #[nil "\305\306\"\307 \" ?\206( \310\232\206(\n\203$\n\211\311\312\313\"\202(\311\312 \"*\207" [found-list key entry data last-data completing-read "Citation key: " assoc "" throw myexit return] 4 (#$ . 12552) nil]) #@17 Mark the entry. (defalias 'reftex-select-mark #[(&optional separator) "\306`\307\"\310\211\310\204\311\312!\210\f\236\203\311\313!\210\314`T\307\"\206&e\315`\307\"\206/d\316 \n\" E\fB\317 \320#\210\317 \321 \203S\322\323 \fG#\202X\322\324\fG\"#\210\325\326\fG\",\207" [data boe eoe ovl reftex-select-marked separator get-text-property :data nil error "No entry to mark at point" "Entry is already marked" previous-single-property-change next-single-property-change reftex-make-overlay reftex-overlay-put face before-string format "*%c%d* " "*%d* " message "Entry has mark no. %d" reftex-select-mark-face] 8 (#$ . 12874) nil]) #@49 Mark the entry and store the `comma' separator. (defalias 'reftex-select-mark-comma #[nil "\300\301!\207" [reftex-select-mark 44] 2 (#$ . 13529) nil]) #@46 Mark the entry and store the `to' separator. (defalias 'reftex-select-mark-to #[nil "\300\301!\207" [reftex-select-mark 45] 2 (#$ . 13686) nil]) #@46 Mark the entry and store `and' to separator. (defalias 'reftex-select-mark-and #[nil "\300\301!\207" [reftex-select-mark 43] 2 (#$ . 13837) nil]) #@19 Unmark the entry. (defalias 'reftex-select-unmark #[nil "\306`\307\"\211 \236\211A@\310\311\n\204\312\313!\210 \203!\314 !\210\315\n \"\211GT\316\317 \"\210\320\321!-\207" [data reftex-select-marked cell ovl cnt sep get-text-property :data 0 nil error "No marked entry at point" reftex-delete-overlay delq mapcar #[(c) "\3038\304A@\305 \203\306\307 \nS\211#\202\306\310\nS\211\"#\207" [c sep cnt 2 reftex-overlay-put before-string format "*%c%d* " "*%d* "] 8] message "Entry no longer marked"] 4 (#$ . 13989) nil]) #@48 Display a summary of the special key bindings. (defalias 'reftex-select-help #[nil "\301\220\302!\221\210\303\301\304\"\207" [help-string "*RefTeX Help*" princ reftex-enlarge-to-fit t] 3 (#$ . 14530) nil]) (byte-code "\306 \307\310\311 $\210\307\312\313 $\210\307\314\315 $\210\307\316\317 $\210\320\321\n:\203:\n@\322 @ A#\210\nA\211\202$*\322\323\324#\210\322\325\326#\210\327\330\321) T\211\fGW\203j\f H)\322\331)C!\332#\210\202N+\322\333\334#\210*\335!+)\336,\330-\321)-T\211-,GW\203\257,-H)\322*\331)C!\337\321\340\341\342\343)E\257#\210\202\203+\344.\321.:\203\321.@\322* @ A#\210.A\211.\202\267*\345/\3300\321)0T\2110/GW\203/0H)\322+\331)C!\337\321\340\346\342\347)E\257#\210\202\333+\3501\3211:\203)1@\322+ @ A#\2101A\2111\202*\321\207" [map global-map #:--cl-var-- x #:--cl-vec-- #:--cl-idx-- make-sparse-keymap substitute-key-definition next-line reftex-select-next previous-line reftex-select-previous keyboard-quit reftex-select-keyboard-quit newline reftex-select-accept ((" " . reftex-select-callback) ("n" . reftex-select-next) ([(down)] . reftex-select-next) ("p" . reftex-select-previous) ([(up)] . reftex-select-previous) ("f" . reftex-select-toggle-follow) (" " . reftex-select-accept) ([(return)] . reftex-select-accept) ("q" . reftex-select-quit) ("." . reftex-select-show-insertion-point) ("?" . reftex-select-help)) nil define-key [(mouse-2)] reftex-select-mouse-accept [follow-link] mouse-face "0123456789" -1 vector digit-argument "-" negative-argument copy-keymap "aAcgFlrRstx#%" lambda "Press `?' during selection to find out about this key." (interactive) throw 'myexit (("b" . reftex-select-jump-to-previous) ("z" . reftex-select-jump) ("v" . reftex-select-toggle-varioref) ("V" . reftex-select-toggle-fancyref) ("m" . reftex-select-mark) ("u" . reftex-select-unmark) ("," . reftex-select-mark-comma) ("-" . reftex-select-mark-to) ("+" . reftex-select-mark-and) ([(tab)] . reftex-select-read-label) (" " . reftex-select-read-label) ("" . reftex-select-next-heading) ("" . reftex-select-previous-heading)) "grRaAeE" (interactive) 'myexit ((" " . reftex-select-read-cite) ([(tab)] . reftex-select-read-cite) ("m" . reftex-select-mark) ("u" . reftex-select-unmark)) key reftex-select-label-map reftex-select-bib-map #:--cl-vec-- #:--cl-idx-- #:--cl-var-- #:--cl-vec-- #:--cl-idx-- #:--cl-var--] 10)