Mercurial > emacs
annotate lisp/textmodes/reftex-toc.el @ 97774:cf6404e22e31
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Wed, 27 Aug 2008 20:21:31 +0000 |
parents | f4a69fedbd46 |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
1 ;;; reftex-toc.el --- RefTeX's table of contents mode |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
65638
diff
changeset
|
2 ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, |
87633
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
3 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
27035 | 4 |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
5 ;; Author: Carsten Dominik <dominik@science.uva.nl> |
76672
690423f53b08
* textmodes/reftex.el: Add maintainer address.
David Kastrup <dak@gnu.org>
parents:
75347
diff
changeset
|
6 ;; Maintainer: auctex-devel@gnu.org |
69094
bfd5c5e60410
Version number change only
Carsten Dominik <dominik@science.uva.nl>
parents:
68648
diff
changeset
|
7 ;; Version: 4.31 |
27035 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
27035 | 12 ;; it under the terms of the GNU General Public License as published by |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
27035 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
25280 | 23 |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
24 ;;; Commentary: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
25 |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
26 ;;; Code: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
27 |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
28 (eval-when-compile (require 'cl)) |
25280 | 29 (provide 'reftex-toc) |
30 (require 'reftex) | |
31 ;;; | |
32 | |
33 (defvar reftex-toc-map (make-sparse-keymap) | |
34 "Keymap used for *toc* buffer.") | |
35 | |
36 (defvar reftex-toc-menu) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
37 (defvar reftex-last-window-height nil) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
38 (defvar reftex-last-window-width nil) |
65270
3c42ea656d31
(zmacs-regions): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents:
64751
diff
changeset
|
39 (defvar reftex-toc-include-labels-indicator nil) |
3c42ea656d31
(zmacs-regions): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents:
64751
diff
changeset
|
40 (defvar reftex-toc-include-index-indicator nil) |
3c42ea656d31
(zmacs-regions): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents:
64751
diff
changeset
|
41 (defvar reftex-toc-max-level-indicator nil) |
25280 | 42 |
43 (defun reftex-toc-mode () | |
44 "Major mode for managing Table of Contents for LaTeX files. | |
45 This buffer was created with RefTeX. | |
46 Press `?' for a summary of important key bindings. | |
47 | |
48 Here are all local bindings. | |
49 | |
50 \\{reftex-toc-map}" | |
51 (interactive) | |
52 (kill-all-local-variables) | |
53 (setq major-mode 'reftex-toc-mode | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
54 mode-name "TOC") |
25280 | 55 (use-local-map reftex-toc-map) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
56 (set (make-local-variable 'transient-mark-mode) t) |
93097 | 57 (when (featurep 'xemacs) |
58 (set (make-local-variable 'zmacs-regions) t)) | |
25280 | 59 (set (make-local-variable 'revert-buffer-function) 'reftex-toc-revert) |
60 (set (make-local-variable 'reftex-toc-include-labels-indicator) "") | |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
61 (set (make-local-variable 'reftex-toc-max-level-indicator) |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
62 (if (= reftex-toc-max-level 100) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
63 "ALL" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
64 (int-to-string reftex-toc-max-level))) |
25280 | 65 (setq mode-line-format |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
66 (list "---- " 'mode-line-buffer-identification |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
67 " " 'global-mode-string " (" mode-name ")" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
68 " L<" 'reftex-toc-include-labels-indicator ">" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
69 " I<" 'reftex-toc-include-index-indicator ">" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
70 " T<" 'reftex-toc-max-level-indicator ">" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
71 " -%-")) |
25280 | 72 (setq truncate-lines t) |
46683
060f433ebf11
Updated to RefTeX 4.18
Carsten Dominik <dominik@science.uva.nl>
parents:
46612
diff
changeset
|
73 (when (featurep 'xemacs) |
060f433ebf11
Updated to RefTeX 4.18
Carsten Dominik <dominik@science.uva.nl>
parents:
46612
diff
changeset
|
74 ;; XEmacs needs the call to make-local-hook |
060f433ebf11
Updated to RefTeX 4.18
Carsten Dominik <dominik@science.uva.nl>
parents:
46612
diff
changeset
|
75 (make-local-hook 'post-command-hook) |
060f433ebf11
Updated to RefTeX 4.18
Carsten Dominik <dominik@science.uva.nl>
parents:
46612
diff
changeset
|
76 (make-local-hook 'pre-command-hook)) |
25280 | 77 (make-local-variable 'reftex-last-follow-point) |
78 (add-hook 'post-command-hook 'reftex-toc-post-command-hook nil t) | |
79 (add-hook 'pre-command-hook 'reftex-toc-pre-command-hook nil t) | |
80 (easy-menu-add reftex-toc-menu reftex-toc-map) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
81 (run-hooks 'reftex-toc-mode-hook)) |
25280 | 82 |
83 (defvar reftex-last-toc-file nil | |
84 "Stores the file name from which `reftex-toc' was called. For redo command.") | |
85 | |
86 | |
87 (defvar reftex-toc-return-marker (make-marker) | |
88 "Marker which makes it possible to return from toc to old position.") | |
89 | |
90 (defconst reftex-toc-help | |
91 " AVAILABLE KEYS IN TOC BUFFER | |
92 ============================ | |
93 n / p next-line / previous-line | |
94 SPC Show the corresponding location of the LaTeX document. | |
95 TAB Goto the location and keep the *toc* window. | |
96 RET Goto the location and hide the *toc* window (also on mouse-2). | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
97 < / > Promote / Demote section, or all sections in region. |
25280 | 98 C-c > Display Index. With prefix arg, restrict index to current section. |
99 q / k Hide/Kill *toc* buffer, return to position of reftex-toc command. | |
100 l i c F Toggle display of [l]abels, [i]ndex, [c]ontext, [F]ile borders. | |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
101 t Change maximum toc depth (e.g. `3 t' hides levels greater than 3). |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
102 f / g Toggle follow mode / Refresh *toc* buffer. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
103 a / d Toggle auto recenter / Toggle dedicated frame |
25280 | 104 r / C-u r Reparse the LaTeX document / Reparse entire LaTeX document. |
105 . In other window, show position from where `reftex-toc' was called. | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
106 M-% Global search and replace to rename label at point. |
37998
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
107 x Switch to TOC of external document (with LaTeX package `xr'). |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
108 z Jump to a specific section (e.g. '3 z' goes to section 3).") |
25280 | 109 |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
110 (defun reftex-toc (&optional rebuild reuse) |
25280 | 111 "Show the table of contents for the current document. |
112 When called with a raw C-u prefix, rescan the document first." | |
113 | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
114 ;; The REUSE argument means, search all visible frames for a window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
115 ;; displaying the toc window. If yes, reuse this window. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
116 |
25280 | 117 (interactive) |
118 | |
119 (if (or (not (string= reftex-last-toc-master (reftex-TeX-master-file))) | |
120 current-prefix-arg) | |
121 (reftex-erase-buffer "*toc*")) | |
122 | |
123 (setq reftex-last-toc-file (buffer-file-name)) | |
124 (setq reftex-last-toc-master (reftex-TeX-master-file)) | |
125 | |
126 (set-marker reftex-toc-return-marker (point)) | |
127 | |
128 ;; If follow mode is active, arrange to delay it one command | |
129 (if reftex-toc-follow-mode | |
130 (setq reftex-toc-follow-mode 1)) | |
131 | |
132 (and reftex-toc-include-index-entries | |
133 (reftex-ensure-index-support)) | |
134 (or reftex-support-index | |
135 (setq reftex-toc-include-index-entries nil)) | |
136 | |
137 ;; Ensure access to scanning info and rescan buffer if prefix are is '(4) | |
138 (reftex-access-scan-info current-prefix-arg) | |
139 | |
140 (let* ((this-buf (current-buffer)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
141 (docstruct-symbol reftex-docstruct-symbol) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
142 (xr-data (assq 'xr (symbol-value reftex-docstruct-symbol))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
143 (xr-alist (cons (cons "" (buffer-file-name)) (nth 1 xr-data))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
144 (here-I-am (if (boundp 'reftex-rebuilding-toc) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
145 (get 'reftex-toc :reftex-data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
146 (car (reftex-where-am-I)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
147 (unsplittable (if (fboundp 'frame-property) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
148 (frame-property (selected-frame) 'unsplittable) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
149 (frame-parameter (selected-frame) 'unsplittable))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
150 offset toc-window) |
25280 | 151 |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
152 (if (setq toc-window (get-buffer-window |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
153 "*toc*" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
154 (if reuse 'visible))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
155 (select-window toc-window) |
25280 | 156 (when (or (not reftex-toc-keep-other-windows) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
157 (< (window-height) (* 2 window-min-height))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
158 (delete-other-windows)) |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
159 |
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
160 (setq reftex-last-window-width (window-width) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
161 reftex-last-window-height (window-height)) ; remember |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
162 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
163 (unless unsplittable |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
164 (if reftex-toc-split-windows-horizontally |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
165 (split-window-horizontally |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
166 (floor (* (window-width) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
167 reftex-toc-split-windows-fraction))) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
168 (split-window-vertically |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
169 (floor (* (window-height) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
170 reftex-toc-split-windows-fraction))))) |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
171 |
25280 | 172 (let ((default-major-mode 'reftex-toc-mode)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
173 (switch-to-buffer "*toc*"))) |
25280 | 174 |
175 (or (eq major-mode 'reftex-toc-mode) (reftex-toc-mode)) | |
176 (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol) | |
177 (setq reftex-toc-include-labels-indicator | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
178 (if (eq reftex-toc-include-labels t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
179 "ALL" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
180 reftex-toc-include-labels)) |
25280 | 181 (setq reftex-toc-include-index-indicator |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
182 (if (eq reftex-toc-include-index-entries t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
183 "ALL" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
184 reftex-toc-include-index-entries)) |
25280 | 185 |
186 (cond | |
187 ((= (buffer-size) 0) | |
188 ;; buffer is empty - fill it with the table of contents | |
189 (message "Building *toc* buffer...") | |
190 | |
191 (setq buffer-read-only nil) | |
192 (insert (format | |
193 "TABLE-OF-CONTENTS on %s | |
194 SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help | |
195 ------------------------------------------------------------------------------ | |
196 " (abbreviate-file-name reftex-last-toc-master))) | |
197 | |
198 (if (reftex-use-fonts) | |
50979
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
199 (put-text-property (point-min) (point) 'face reftex-toc-header-face)) |
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
200 (put-text-property (point-min) (point) 'intangible t) |
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
201 (put-text-property (point-min) (1+ (point-min)) 'xr-alist xr-alist) |
25280 | 202 |
203 (setq offset | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
204 (reftex-insert-docstruct |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
205 this-buf |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
206 t ; include toc |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
207 reftex-toc-include-labels |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
208 reftex-toc-include-index-entries |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
209 reftex-toc-include-file-boundaries |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
210 reftex-toc-include-context |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
211 nil ; counter |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
212 nil ; commented |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
213 here-I-am |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
214 "" ; xr-prefix |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
215 t ; a toc buffer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
216 )) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
217 |
25280 | 218 (run-hooks 'reftex-display-copied-context-hook) |
219 (message "Building *toc* buffer...done.") | |
220 (setq buffer-read-only t)) | |
221 (t | |
222 ;; Only compute the offset | |
223 (setq offset | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
224 (or (reftex-get-offset this-buf here-I-am |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
225 (if reftex-toc-include-labels " " nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
226 t |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
227 reftex-toc-include-index-entries |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
228 reftex-toc-include-file-boundaries) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
229 (reftex-last-assoc-before-elt |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
230 'toc here-I-am |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
231 (symbol-value reftex-docstruct-symbol)))) |
25280 | 232 (put 'reftex-toc :reftex-line 3) |
233 (goto-line 3) | |
234 (beginning-of-line))) | |
235 | |
236 ;; Find the correct starting point | |
237 (reftex-find-start-point (point) offset (get 'reftex-toc :reftex-line)) | |
238 (setq reftex-last-follow-point (point)))) | |
239 | |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
240 (defun reftex-toc-recenter (&optional arg) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
241 "Display the TOC window and highlight line corresponding to current position." |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
242 (interactive "P") |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
243 (let ((buf (current-buffer)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
244 (frame (selected-frame))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
245 (reftex-toc arg t) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
246 (if (= (count-lines 1 (point)) 2) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
247 (let ((current-prefix-arg nil)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
248 (select-window (get-buffer-window buf frame)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
249 (reftex-toc nil t))) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
250 (and (> (point) 1) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
251 (not (get-text-property (point) 'intangible)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
252 (memq reftex-highlight-selection '(cursor both)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
253 (reftex-highlight 2 |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
254 (or (previous-single-property-change |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
255 (min (point-max) (1+ (point))) :data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
256 (point-min)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
257 (or (next-single-property-change (point) :data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
258 (point-max)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
259 (select-window (get-buffer-window buf frame)))) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
260 |
25280 | 261 (defun reftex-toc-pre-command-hook () |
262 ;; used as pre command hook in *toc* buffer | |
263 (reftex-unhighlight 0) | |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
264 ) |
25280 | 265 |
266 (defun reftex-toc-post-command-hook () | |
267 ;; used in the post-command-hook for the *toc* buffer | |
268 (when (get-text-property (point) :data) | |
269 (put 'reftex-toc :reftex-data (get-text-property (point) :data)) | |
270 (and (> (point) 1) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
271 (not (get-text-property (point) 'intangible)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
272 (memq reftex-highlight-selection '(cursor both)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
273 (reftex-highlight 2 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
274 (or (previous-single-property-change (1+ (point)) :data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
275 (point-min)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
276 (or (next-single-property-change (point) :data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
277 (point-max))))) |
25280 | 278 (if (integerp reftex-toc-follow-mode) |
279 ;; remove delayed action | |
280 (setq reftex-toc-follow-mode t) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
281 (and (not (reftex-toc-dframe-p)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
282 reftex-toc-follow-mode |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
283 (not (equal reftex-last-follow-point (point))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
284 ;; show context in other window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
285 (setq reftex-last-follow-point (point)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
286 (condition-case nil |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
287 (reftex-toc-visit-location nil (not reftex-revisit-to-follow)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
288 (error t))))) |
25280 | 289 |
290 (defun reftex-re-enlarge () | |
50979
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
291 ;; Enlarge window to a remembered size. |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
292 (if reftex-toc-split-windows-horizontally |
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
293 (enlarge-window-horizontally |
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
294 (max 0 (- (or reftex-last-window-width (window-width)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
295 (window-width)))) |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
296 (enlarge-window |
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
41785
diff
changeset
|
297 (max 0 (- (or reftex-last-window-height (window-height)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
298 (window-height)))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
299 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
300 (defun reftex-toc-dframe-p (&optional frame error) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
301 ;; Check if FRAME is the dedicated TOC frame. |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
302 ;; If yes, and ERROR is non-nil, throw an error. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
303 (setq frame (or frame (selected-frame))) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
304 (let ((res (equal |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
305 (if (fboundp 'frame-property) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
306 (frame-property frame 'name) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
307 (frame-parameter frame 'name)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
308 "RefTeX TOC Frame"))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
309 (if (and res error) |
63433
d70b1038ee22
(reftex-toc-dframe-p, reftex-toc-promote-prepare): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
62774
diff
changeset
|
310 (error "This frame is view-only. Use `C-c =' to create toc window for commands")) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
311 res)) |
25280 | 312 |
313 (defun reftex-toc-show-help () | |
314 "Show a summary of special key bindings." | |
315 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
316 (reftex-toc-dframe-p nil 'error) |
25280 | 317 (with-output-to-temp-buffer "*RefTeX Help*" |
318 (princ reftex-toc-help)) | |
319 (reftex-enlarge-to-fit "*RefTeX Help*" t) | |
320 ;; If follow mode is active, arrange to delay it one command | |
321 (if reftex-toc-follow-mode | |
322 (setq reftex-toc-follow-mode 1))) | |
323 | |
324 (defun reftex-toc-next (&optional arg) | |
325 "Move to next selectable item." | |
326 (interactive "p") | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87633
diff
changeset
|
327 (when (featurep 'xemacs) (setq zmacs-region-stays t)) |
25280 | 328 (setq reftex-callback-fwd t) |
329 (or (eobp) (forward-char 1)) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
330 (goto-char (or (next-single-property-change (point) :data) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
331 (point)))) |
25280 | 332 (defun reftex-toc-previous (&optional arg) |
333 "Move to previous selectable item." | |
334 (interactive "p") | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87633
diff
changeset
|
335 (when (featurep 'xemacs) (setq zmacs-region-stays t)) |
25280 | 336 (setq reftex-callback-fwd nil) |
337 (goto-char (or (previous-single-property-change (point) :data) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
338 (point)))) |
25280 | 339 (defun reftex-toc-next-heading (&optional arg) |
340 "Move to next table of contentes line." | |
341 (interactive "p") | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87633
diff
changeset
|
342 (when (featurep 'xemacs) (setq zmacs-region-stays t)) |
25280 | 343 (end-of-line) |
344 (re-search-forward "^ " nil t arg) | |
345 (beginning-of-line)) | |
346 (defun reftex-toc-previous-heading (&optional arg) | |
347 "Move to previous table of contentes line." | |
348 (interactive "p") | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87633
diff
changeset
|
349 (when (featurep 'xemacs) (setq zmacs-region-stays t)) |
25280 | 350 (re-search-backward "^ " nil t arg)) |
351 (defun reftex-toc-toggle-follow () | |
352 "Toggle follow (other window follows with context)." | |
353 (interactive) | |
354 (setq reftex-last-follow-point -1) | |
355 (setq reftex-toc-follow-mode (not reftex-toc-follow-mode))) | |
356 (defun reftex-toc-toggle-file-boundary () | |
357 "Toggle inclusion of file boundaries in *toc* buffer." | |
358 (interactive) | |
359 (setq reftex-toc-include-file-boundaries | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
360 (not reftex-toc-include-file-boundaries)) |
25280 | 361 (reftex-toc-revert)) |
362 (defun reftex-toc-toggle-labels (arg) | |
363 "Toggle inclusion of labels in *toc* buffer. | |
364 With prefix ARG, prompt for a label type and include only labels of | |
365 that specific type." | |
366 (interactive "P") | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
367 (setq reftex-toc-include-labels |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
368 (if arg (reftex-query-label-type) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
369 (not reftex-toc-include-labels))) |
25280 | 370 (reftex-toc-revert)) |
371 (defun reftex-toc-toggle-index (arg) | |
372 "Toggle inclusion of index in *toc* buffer. | |
373 With prefix arg, prompt for an index tag and include only entries of that | |
374 specific index." | |
375 (interactive "P") | |
376 (setq reftex-toc-include-index-entries | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
377 (if arg (reftex-index-select-tag) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
378 (not reftex-toc-include-index-entries))) |
25280 | 379 (reftex-toc-revert)) |
380 (defun reftex-toc-toggle-context () | |
381 "Toggle inclusion of label context in *toc* buffer. | |
382 Label context is only displayed when the labels are there as well." | |
383 (interactive) | |
384 (setq reftex-toc-include-context (not reftex-toc-include-context)) | |
385 (reftex-toc-revert)) | |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
386 (defun reftex-toc-max-level (arg) |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
387 "Set the maximum level of toc lines in this buffer to value of prefix ARG. |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
388 When no prefix is given, set the max level to a large number, so that all |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
389 levels are shown. For eaxample, to set the level to 3, type `3 m'." |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
390 (interactive "P") |
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
391 (setq reftex-toc-max-level (if arg |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
392 (prefix-numeric-value arg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
393 100)) |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
394 (setq reftex-toc-max-level-indicator |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
395 (if arg (int-to-string reftex-toc-max-level) "ALL")) |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
396 (reftex-toc-revert)) |
25280 | 397 (defun reftex-toc-view-line () |
398 "View document location in other window." | |
399 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
400 (reftex-toc-dframe-p nil 'error) |
25280 | 401 (reftex-toc-visit-location)) |
402 (defun reftex-toc-goto-line-and-hide () | |
403 "Go to document location in other window. Hide the *toc* window." | |
404 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
405 (reftex-toc-dframe-p nil 'error) |
25280 | 406 (reftex-toc-visit-location 'hide)) |
407 (defun reftex-toc-goto-line () | |
408 "Go to document location in other window. *toc* window stays." | |
409 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
410 (reftex-toc-dframe-p nil 'error) |
25280 | 411 (reftex-toc-visit-location t)) |
412 (defun reftex-toc-mouse-goto-line-and-hide (ev) | |
413 "Go to document location in other window. Hide the *toc* window." | |
414 (interactive "e") | |
415 (mouse-set-point ev) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
416 (reftex-toc-dframe-p nil 'error) |
25280 | 417 (reftex-toc-visit-location 'hide)) |
418 (defun reftex-toc-show-calling-point () | |
419 "Show point where reftex-toc was called from." | |
420 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
421 (reftex-toc-dframe-p nil 'error) |
25280 | 422 (let ((this-window (selected-window))) |
423 (unwind-protect | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
424 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
425 (switch-to-buffer-other-window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
426 (marker-buffer reftex-toc-return-marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
427 (goto-char (marker-position reftex-toc-return-marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
428 (recenter '(4))) |
25280 | 429 (select-window this-window)))) |
430 (defun reftex-toc-quit () | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
431 "Hide the *toc* window and do not move point. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
432 If the toc window is the only window on the dedicated TOC frame, the frame |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
433 is destroyed." |
25280 | 434 (interactive) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
435 (if (and (one-window-p) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
436 (reftex-toc-dframe-p) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
437 (> (length (frame-list)) 1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
438 (delete-frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
439 (or (one-window-p) (delete-window)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
440 (switch-to-buffer (marker-buffer reftex-toc-return-marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
441 (reftex-re-enlarge) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
442 (goto-char (or (marker-position reftex-toc-return-marker) (point))))) |
25280 | 443 (defun reftex-toc-quit-and-kill () |
444 "Kill the *toc* buffer." | |
445 (interactive) | |
446 (kill-buffer "*toc*") | |
447 (or (one-window-p) (delete-window)) | |
448 (switch-to-buffer (marker-buffer reftex-toc-return-marker)) | |
449 (reftex-re-enlarge) | |
450 (goto-char (marker-position reftex-toc-return-marker))) | |
451 (defun reftex-toc-display-index (&optional arg) | |
452 "Display the index buffer for the current document. | |
453 This works just like `reftex-display-index' from a LaTeX buffer. | |
454 With prefix arg 1, restrict index to the section at point." | |
455 (interactive "P") | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
456 (reftex-toc-dframe-p nil 'error) |
25280 | 457 (let ((data (get-text-property (point) :data)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
458 (docstruct (symbol-value reftex-docstruct-symbol)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
459 bor eor restr) |
25280 | 460 (when (equal arg 2) |
461 (setq bor (reftex-last-assoc-before-elt 'toc data docstruct) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
462 eor (assoc 'toc (cdr (memq bor docstruct))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
463 restr (list (nth 6 bor) bor eor))) |
25280 | 464 (reftex-toc-goto-line) |
465 (reftex-display-index (if restr nil arg) restr))) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
466 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
467 ;; Rescanning the document and rebuilding the TOC buffer. |
25280 | 468 (defun reftex-toc-rescan (&rest ignore) |
469 "Regenerate the *toc* buffer by reparsing file of section at point." | |
470 (interactive) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
471 (if (and reftex-enable-partial-scans |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
472 (null current-prefix-arg)) |
25280 | 473 (let* ((data (get-text-property (point) :data)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
474 (what (car data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
475 (file (cond ((eq what 'toc) (nth 3 data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
476 ((memq what '(eof bof file-error)) (nth 1 data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
477 ((stringp what) (nth 3 data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
478 ((eq what 'index) (nth 3 data)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
479 (line (+ (count-lines (point-min) (point)) (if (bolp) 1 0)))) |
25280 | 480 (if (not file) |
481 (error "Don't know which file to rescan. Try `C-u r'") | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
482 (put 'reftex-toc :reftex-line line) |
25280 | 483 (switch-to-buffer-other-window |
484 (reftex-get-file-buffer-force file)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
485 (setq current-prefix-arg '(4)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
486 (let ((reftex-rebuilding-toc t)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
487 (reftex-toc)))) |
25280 | 488 (reftex-toc-Rescan)) |
489 (reftex-kill-temporary-buffers)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
490 |
25280 | 491 (defun reftex-toc-Rescan (&rest ignore) |
492 "Regenerate the *toc* buffer by reparsing the entire document." | |
493 (interactive) | |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
494 (let* ((line (+ (count-lines (point-min) (point)) (if (bolp) 1 0)))) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
495 (put 'reftex-toc :reftex-line line)) |
25280 | 496 (switch-to-buffer-other-window |
497 (reftex-get-file-buffer-force reftex-last-toc-file)) | |
498 (setq current-prefix-arg '(16)) | |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
499 (let ((reftex-rebuilding-toc t)) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
500 (reftex-toc))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
501 |
25280 | 502 (defun reftex-toc-revert (&rest ignore) |
503 "Regenerate the *toc* from the internal lists." | |
504 (interactive) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
505 (let ((unsplittable |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
506 (if (fboundp 'frame-property) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
507 (frame-property (selected-frame) 'unsplittable) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
508 (frame-parameter (selected-frame) 'unsplittable))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
509 (reftex-rebuilding-toc t)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
510 (if unsplittable |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
511 (switch-to-buffer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
512 (reftex-get-file-buffer-force reftex-last-toc-file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
513 (switch-to-buffer-other-window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
514 (reftex-get-file-buffer-force reftex-last-toc-file)))) |
25280 | 515 (reftex-erase-buffer "*toc*") |
516 (setq current-prefix-arg nil) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
517 (reftex-toc t)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
518 |
25280 | 519 (defun reftex-toc-external (&rest ignore) |
520 "Switch to table of contents of an external document." | |
521 (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
522 (reftex-toc-dframe-p nil 'error) |
25280 | 523 (let* ((old-buf (current-buffer)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
524 (xr-alist (get-text-property 1 'xr-alist)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
525 (xr-index (reftex-select-external-document |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
526 xr-alist 0))) |
25280 | 527 (switch-to-buffer-other-window (or (reftex-get-file-buffer-force |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
528 (cdr (nth xr-index xr-alist))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
529 (error "Cannot switch document"))) |
25280 | 530 (reftex-toc) |
531 (if (equal old-buf (current-buffer)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
532 (message "") |
25280 | 533 (message "Switched document")))) |
534 | |
37998
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
535 (defun reftex-toc-jump (arg) |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
536 "Jump to a specific section. E.g. '3 z' jumps to section 3. |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
537 Useful for large TOC's." |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
538 (interactive "P") |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
539 (goto-char (point-min)) |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
540 (re-search-forward |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
541 (concat "^ *" (number-to-string (if (numberp arg) arg 1)) " ") |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
542 nil t) |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
543 (beginning-of-line)) |
706af946b1e7
* reftex-ref.el (reftex-select-label-help): Added "z" key
Carsten Dominik <dominik@science.uva.nl>
parents:
34402
diff
changeset
|
544 |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
545 ;; Promotion/Demotion stuff |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
546 |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
547 (defvar delta) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
548 (defvar mpos) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
549 (defvar pro-or-de) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
550 (defvar start-pos) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
551 (defvar start-line) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
552 (defvar mark-line) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
553 |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
554 (defun reftex-toc-demote (&optional arg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
555 "Demote section at point. If region is active, apply to all in region." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
556 (interactive "p") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
557 (reftex-toc-do-promote 1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
558 (defun reftex-toc-promote (&optional arg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
559 "Promote section at point. If region is active, apply to all in region." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
560 (interactive "p") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
561 (reftex-toc-do-promote -1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
562 (defun reftex-toc-do-promote (delta) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
563 "Workhorse for reftex-toc-promote and reftex-to-demote. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
564 Changes the level of sections in the current region, or just the section at |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
565 point." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
566 ;; We should not do anything unless we are sure this is going to work for |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
567 ;; each section in the region. Therefore we first collect information and |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
568 ;; test. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
569 (let* ((start-line (+ (count-lines (point-min) (point)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
570 (if (bolp) 1 0))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
571 (mark-line (if (reftex-region-active-p) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
572 (save-excursion (goto-char (mark)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
573 (+ (count-lines (point-min) (point)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
574 (if (bolp) 1 0))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
575 (start-pos (point)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
576 (pro-or-de (if (> delta 0) "de" "pro")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
577 beg end entries data sections nsec mpos msg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
578 (setq msg |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
579 (catch 'exit |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
580 (if (reftex-region-active-p) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
581 ;; A region is dangerous, check if we have a brandnew scan, |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
582 ;; to make sure we are not missing any section statements. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
583 (if (not (reftex-toc-check-docstruct)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
584 (reftex-toc-load-all-files-for-promotion) ;; exits |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
585 (setq beg (min (point) (mark)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
586 end (max (point) (mark)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
587 (setq beg (point) end (point))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
588 (goto-char beg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
589 (while (and (setq data (get-text-property (point) :data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
590 (<= (point) end)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
591 (if (eq (car data) 'toc) (push (cons data (point)) entries)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
592 (goto-char (or (next-single-property-change (point) :data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
593 (point-max)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
594 (setq entries (nreverse entries)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
595 ;; Get the relevant section numbers, for an informative message |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
596 (goto-char start-pos) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
597 (setq sections (reftex-toc-extract-section-number (car entries))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
598 (if (> (setq nsec (length entries)) 1) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
599 (setq sections |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
600 (concat sections "-" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
601 (reftex-toc-extract-section-number |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
602 (nth (1- nsec) entries))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
603 ;; Run through the list and prepare the changes. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
604 (setq entries (mapcar 'reftex-toc-promote-prepare entries)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
605 ;; Ask for permission |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
606 (if (or (not reftex-toc-confirm-promotion) ; never confirm |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
607 (and (integerp reftex-toc-confirm-promotion) ; confirm if many |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
608 (< nsec reftex-toc-confirm-promotion)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
609 (yes-or-no-p ; ask |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
610 (format "%s %d toc-entr%s (section%s %s)? " |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
611 (if (< delta 0) "Promote" "Demote") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
612 nsec |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
613 (if (= 1 nsec) "y" "ies") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
614 (if (= 1 nsec) "" "s") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
615 sections))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
616 nil ; we have permission, do nothing |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
617 (error "Abort")) ; abort, we don't have permission |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
618 ;; Do the changes |
85195
718f0bcfdb7c
(reftex-toc-do-promote): Use mapc rather than mapcar.
Glenn Morris <rgm@gnu.org>
parents:
78225
diff
changeset
|
619 (mapc 'reftex-toc-promote-action entries) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
620 ;; Rescan the document and rebuilt the toc buffer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
621 (save-window-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
622 (reftex-toc-Rescan)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
623 (reftex-toc-restore-region start-line mark-line) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
624 (message "%d section%s %smoted" |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
625 nsec (if (= 1 nsec) "" "s") pro-or-de) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
626 nil)) |
87170
e50a2e215441
* erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents:
87022
diff
changeset
|
627 (if msg (progn (ding) (message "%s" msg))))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
628 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
629 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
630 (defun reftex-toc-restore-region (point-line &optional mark-line) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
631 (if mark-line |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
632 (progn (goto-line mark-line) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
633 (setq mpos (point)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
634 (if point-line (goto-line point-line)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
635 (if mark-line |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
636 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
637 (set-mark mpos) |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87633
diff
changeset
|
638 (if (featurep 'xemacs) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
639 (zmacs-activate-region) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
640 (setq mark-active t |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
641 deactivate-mark nil))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
642 |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
643 (defvar name1) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
644 (defvar dummy) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
645 (defvar dummy2) |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
646 |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
647 (defun reftex-toc-promote-prepare (x) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
648 "Look at a toc entry and see if we could pro/demote it. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
649 Expects the level change DELTA to be dynamically scoped into this function. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
650 This function prepares everything for the changes, but does not do it. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
651 The return value is a list with information needed when doing the |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
652 promotion/demotion later." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
653 (let* ((data (car x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
654 (toc-point (cdr x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
655 (marker (nth 4 data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
656 (literal (nth 7 data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
657 (load nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
658 (name nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
659 ;; Here follows some paranoid code to make very sure we are not |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
660 ;; going to break anything |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
661 (name1 ; dummy |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
662 (if (and (markerp marker) (marker-buffer marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
663 ;; Buffer is still live and we have the marker. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
664 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
665 (save-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
666 ;; Goto the buffer and check of section is unchanged |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
667 (set-buffer (marker-buffer marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
668 (goto-char (marker-position marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
669 (if (looking-at (regexp-quote literal)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
670 ;; OK, get the makro name |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
671 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
672 (beginning-of-line 1) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
673 (if (looking-at reftex-section-regexp) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
674 (setq name (reftex-match-string 2)) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
675 (error "Something is wrong! Contact maintainer!"))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
676 ;; Section has changed, request scan and loading |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
677 ;; We use a variable to delay until after the safe-exc. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
678 ;; because otherwise we loose the region. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
679 (setq load t))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
680 ;; Scan document and load all files, this exits command |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
681 (if load (reftex-toc-load-all-files-for-promotion))) ; exits |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
682 ;; We don't have a live marker: scan and load files. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
683 (reftex-toc-load-all-files-for-promotion))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
684 (level (cdr (assoc name reftex-section-levels-all))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
685 (dummy (if (not (integerp level)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
686 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
687 (goto-char toc-point) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
688 (error "Cannot %smote special sections" pro-or-de)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
689 ;; Delta is dynamically scoped into here... |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
690 (newlevel (if (>= level 0) (+ delta level) (- level delta))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
691 (dummy2 (if (or (and (>= level 0) (= newlevel -1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
692 (and (< level 0) (= newlevel 0))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
693 (error "Cannot %smote \\%s" pro-or-de name))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
694 (newname (reftex-toc-newhead-from-alist newlevel name |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
695 reftex-section-levels-all))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
696 (if (and name newname) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
697 (list data name newname toc-point) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
698 (goto-char toc-point) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
699 (error "Cannot %smote \\%s" pro-or-de name)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
700 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
701 (defun reftex-toc-promote-action (x) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
702 "Change the level of a toc entry. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
703 DELTA and PRO-OR-DE are assumed to be dynamically scoped into this function." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
704 (let* ((data (car x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
705 (name (nth 1 x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
706 (newname (nth 2 x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
707 (marker (nth 4 data))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
708 (save-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
709 (set-buffer (marker-buffer marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
710 (goto-char (marker-position marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
711 (if (looking-at (concat "\\([ \t]*\\\\\\)" (regexp-quote name))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
712 (replace-match (concat "\\1" newname)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
713 (error "Fatal error during %smotion" pro-or-de))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
714 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
715 (defun reftex-toc-extract-section-number (entry) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
716 "Get the numbering of a toc entry, for message purposes." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
717 (if (string-match "\\s-*\\(\\S-+\\)" (nth 2 (car entry))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
718 (match-string 1 (nth 2 (car entry))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
719 "?")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
720 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
721 (defun reftex-toc-newhead-from-alist (nlevel head alist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
722 "Get new heading with level NLEVEL from ALIST. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
723 If there are no such entries, return nil. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
724 If there are several different entries with same new level, choose |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
725 the one with the smallest distance to the assocation of HEAD in the alist. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
726 This makes it possible for promotion to work several sets of headings, |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
727 if these sets are sorted blocks in the alist." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
728 (let* ((al alist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
729 (ass (assoc head al)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
730 (pos (length (memq ass al))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
731 dist (mindist 1000) newhead) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
732 (while al |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
733 (if (equal (cdar al) nlevel) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
734 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
735 (setq dist (abs (- (length al) pos))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
736 (if (< dist mindist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
737 (setq newhead (car (car al)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
738 mindist dist)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
739 (setq al (cdr al))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
740 newhead)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
741 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
742 (defun reftex-toc-check-docstruct () |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
743 "Check if the current docstruct is fully up to date and all files visited." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
744 ;; We do this by checking if all sections are on the right position |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
745 (let ((docstruct (symbol-value reftex-docstruct-symbol)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
746 entry marker empoint) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
747 (catch 'exit |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
748 (while (setq entry (pop docstruct)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
749 (if (eq (car entry) 'toc) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
750 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
751 (setq marker (nth 4 entry) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
752 empoint (nth 8 entry)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
753 (if (not (and (markerp marker) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
754 (marker-buffer marker) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
755 (= (marker-position marker) empoint))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
756 (throw 'exit nil))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
757 t))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
758 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
759 (defun reftex-toc-load-all-files-for-promotion () |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
760 "Make sure all files of the document are being visited by buffers, |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
761 and that the scanning info is absolutely up to date. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
762 We do this by rescanning with reftex-keep-temporary-buffers bound to t. |
59579
a588c86a429c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40
Miles Bader <miles@gnu.org>
parents:
59534
diff
changeset
|
763 The variable PRO-OR-DE is assumed to be dynamically scoped into this function. |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
764 When finished, we exit with an error message." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
765 (let ((reftex-keep-temporary-buffers t)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
766 (reftex-toc-Rescan) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
767 (reftex-toc-restore-region start-line mark-line) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
768 (throw 'exit |
59579
a588c86a429c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40
Miles Bader <miles@gnu.org>
parents:
59534
diff
changeset
|
769 "TOC had to be updated first. Please check selection and repeat the command."))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
770 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
771 (defun reftex-toc-rename-label () |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
772 "Rename the currently selected label in the *TOC* buffer. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
773 This launches a global search and replace in order to rename a label. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
774 Renaming a label is hardly ever necessary - the only exeption is after |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
775 promotion/demotion in connection with a package like fancyref, where the |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
776 label prefix determines the wording of a reference." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
777 (interactive) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
778 (let* ((toc (get-text-property (point) :data)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
779 (label (car toc)) newlabel) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
780 (if (not (stringp label)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
781 (error "This is not a label entry.")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
782 (setq newlabel (read-string (format "Rename label \"%s\" to:" label))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
783 (if (assoc newlabel (symbol-value reftex-docstruct-symbol)) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
784 (if (not (y-or-n-p |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
785 (format "Label '%s' exists. Use anyway? " label))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
786 (error "Abort"))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
787 (save-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
788 (save-window-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
789 (reftex-toc-visit-location t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
790 (condition-case nil |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
791 (reftex-query-replace-document |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
792 (concat "{" (regexp-quote label) "}") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
793 (format "{%s}" newlabel)) |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
794 (error t)))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
795 (reftex-toc-rescan))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
796 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
797 |
25280 | 798 (defun reftex-toc-visit-location (&optional final no-revisit) |
799 ;; Visit the tex file corresponding to the toc entry on the current line. | |
800 ;; If FINAL is t, stay there | |
801 ;; If FINAL is 'hide, hide the *toc* window. | |
802 ;; Otherwise, move cursor back into *toc* window. | |
50979
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
803 ;; NO-REVISIT means don't visit files, just use live buffers. |
25280 | 804 ;; This function is pretty clever about finding back a section heading, |
805 ;; even if the buffer is not live, or things like outline, x-symbol etc. | |
806 ;; have been active. | |
807 | |
808 (let* ((toc (get-text-property (point) :data)) | |
809 (toc-window (selected-window)) | |
810 show-window show-buffer match) | |
811 | |
812 (unless toc (error "Don't know which toc line to visit")) | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
813 |
25280 | 814 (cond |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
815 |
25280 | 816 ((eq (car toc) 'toc) |
817 ;; a toc entry | |
818 (setq match (reftex-toc-find-section toc no-revisit))) | |
819 | |
820 ((eq (car toc) 'index) | |
821 ;; an index entry | |
822 (setq match (reftex-index-show-entry toc no-revisit))) | |
823 | |
824 ((memq (car toc) '(bof eof)) | |
825 ;; A file entry | |
826 (setq match | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
827 (let ((where (car toc)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
828 (file (nth 1 toc))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
829 (if (or (not no-revisit) (reftex-get-buffer-visiting file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
830 (progn |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
831 (switch-to-buffer-other-window |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
832 (reftex-get-file-buffer-force file nil)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
833 (goto-char (if (eq where 'bof) (point-min) (point-max)))) |
87170
e50a2e215441
* erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents:
87022
diff
changeset
|
834 (message "%s" reftex-no-follow-message) nil)))) |
25280 | 835 |
836 ((stringp (car toc)) | |
837 ;; a label | |
838 (setq match (reftex-show-label-location toc reftex-callback-fwd | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
839 no-revisit t)))) |
25280 | 840 |
841 (setq show-window (selected-window) | |
842 show-buffer (current-buffer)) | |
843 | |
844 (unless match | |
845 (select-window toc-window) | |
846 (error "Cannot find location")) | |
847 | |
848 (select-window toc-window) | |
849 | |
850 ;; use the `final' parameter to decide what to do next | |
851 (cond | |
852 ((eq final t) | |
853 (reftex-unhighlight 0) | |
854 (select-window show-window)) | |
855 ((eq final 'hide) | |
856 (reftex-unhighlight 0) | |
857 (or (one-window-p) (delete-window)) | |
50979
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
858 ;; If `show-window' is still live, show-buffer is already visible |
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
859 ;; so let's not make it visible in yet-another-window. |
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
860 (if (window-live-p show-window) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
861 (set-buffer show-buffer) |
50979
85e525daebfc
(reftex-toc-visit-location):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49599
diff
changeset
|
862 (switch-to-buffer show-buffer)) |
25280 | 863 (reftex-re-enlarge)) |
864 (t nil)))) | |
865 | |
866 (defun reftex-toc-find-section (toc &optional no-revisit) | |
867 (let* ((file (nth 3 toc)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
868 (marker (nth 4 toc)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
869 (level (nth 5 toc)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
870 (literal (nth 7 toc)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
871 (emergency-point (nth 8 toc)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
872 (match |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
873 (cond |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
874 ((and (markerp marker) (marker-buffer marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
875 ;; Buffer is still live and we have the marker. Should be easy. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
876 (switch-to-buffer-other-window (marker-buffer marker)) |
59534
9bad65481674
2005-01-14 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
53852
diff
changeset
|
877 (push-mark nil) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
878 (goto-char (marker-position marker)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
879 (or (looking-at (regexp-quote literal)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
880 (looking-at (reftex-make-regexp-allow-for-ctrl-m literal)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
881 (looking-at (reftex-make-desperate-section-regexp literal)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
882 (looking-at (concat "\\\\" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
883 (regexp-quote |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
884 (car |
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
885 (rassq level |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
886 reftex-section-levels-all))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
887 "[[{]?")))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
888 ((or (not no-revisit) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
889 (reftex-get-buffer-visiting file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
890 ;; Marker is lost. Use the backup method. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
891 (switch-to-buffer-other-window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
892 (reftex-get-file-buffer-force file nil)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
893 (goto-char (or emergency-point (point-min))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
894 (or (looking-at (regexp-quote literal)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
895 (let ((len (length literal))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
896 (or (reftex-nearest-match (regexp-quote literal) len) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
897 (reftex-nearest-match |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
898 (reftex-make-regexp-allow-for-ctrl-m literal) len) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
899 (reftex-nearest-match |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
900 (reftex-make-desperate-section-regexp literal) len))))) |
87170
e50a2e215441
* erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents:
87022
diff
changeset
|
901 (t (message "%s" reftex-no-follow-message) nil)))) |
25280 | 902 (when match |
903 (goto-char (match-beginning 0)) | |
904 (if (not (= (point) (point-max))) (recenter 1)) | |
905 (reftex-highlight 0 (match-beginning 0) (match-end 0) (current-buffer))) | |
906 match)) | |
907 | |
908 (defun reftex-make-desperate-section-regexp (old) | |
909 ;; Return a regexp which will still match a section statement even if | |
910 ;; x-symbol or isotex or the like have been at work in the mean time. | |
911 (let* ((n (1+ (string-match "[[{]" old))) | |
912 (new (regexp-quote (substring old 0 (1+ (string-match "[[{]" old))))) | |
913 (old (substring old n))) | |
914 (while (string-match | |
915 "\\([\r\n]\\)\\|\\(\\`\\|[ \t\n\r]\\)\\([a-zA-Z0-9]+\\)\\([ \t\n\r]\\|}\\'\\)" | |
916 old) | |
917 (if (match-beginning 1) | |
918 (setq new (concat new "[^\n\r]*[\n\r]")) | |
919 (setq new (concat new "[^\n\r]*" (match-string 3 old)))) | |
920 (setq old (substring old (match-end 0)))) | |
921 new)) | |
922 | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
923 ;; Auto recentering of TOC window |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
924 |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
925 (defun reftex-recenter-toc-when-idle () |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
926 (and (> (buffer-size) 5) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
927 reftex-mode |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
928 (not (active-minibuffer-window)) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
929 (fboundp 'reftex-toc-mode) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
930 (get-buffer-window "*toc*" 'visible) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
931 (string= reftex-last-toc-master (reftex-TeX-master-file)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
932 (let (current-prefix-arg) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
933 (reftex-toc-recenter)))) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
934 |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
935 (defun reftex-toggle-auto-toc-recenter () |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
936 "Toggle the automatic recentering of the toc window. |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
937 When active, leaving point idle will make the toc window jump to the correct |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
938 section." |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
939 (interactive) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
940 (if reftex-toc-auto-recenter-timer |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
941 (progn |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
942 (if (featurep 'xemacs) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
943 (delete-itimer reftex-toc-auto-recenter-timer) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
944 (cancel-timer reftex-toc-auto-recenter-timer)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
945 (setq reftex-toc-auto-recenter-timer nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
946 (message "Automatic recentering of toc windwo was turned off")) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
947 (setq reftex-toc-auto-recenter-timer |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
948 (if (featurep 'xemacs) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
949 (start-itimer "RefTeX Idle Timer for recenter" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
950 'reftex-recenter-toc-when-idle |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
951 reftex-idle-time reftex-idle-time t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
952 (run-with-idle-timer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
953 reftex-idle-time t 'reftex-recenter-toc-when-idle))) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
954 (message "Automatic recentering of toc window was turned on"))) |
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
955 |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
956 (defun reftex-toc-toggle-dedicated-frame () |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
957 "Toggle the display of a separate frame for the TOC. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
958 This frame is not used by the `reftex-toc' commands, but it is useful to |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
959 always show the current section in connection with the option |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
960 `reftex-auto-recenter-toc'." |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
961 (interactive) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
962 (catch 'exit |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
963 (let* ((frames (frame-list)) frame |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
964 (get-frame-prop-func (if (fboundp 'frame-property) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
965 'frame-property |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
966 'frame-parameter))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
967 (while (setq frame (pop frames)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
968 (if (equal (funcall get-frame-prop-func frame 'name) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
969 "RefTeX TOC Frame") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
970 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
971 (delete-frame frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
972 (throw 'exit nil)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
973 (reftex-make-separate-toc-frame)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
974 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
975 (defun reftex-make-separate-toc-frame () |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
976 ;; Create a new fame showing only the toc buffer. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
977 (let ((current-frame (selected-frame)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
978 (current-window (selected-window)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
979 (current-toc-window (get-buffer-window "*toc*" 'visible)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
980 current-toc-frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
981 (if (and current-toc-window |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
982 (not (equal (selected-frame) (window-frame current-toc-window)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
983 nil |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
984 (setq current-toc-frame |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
985 (make-frame |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
986 '((name . "RefTeX TOC Frame") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
987 (height . 20) (width . 60) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
988 (unsplittable . t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
989 (minibuffer . nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
990 (default-toolbar-visible-p . nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
991 (menubar-visible-p . nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
992 (horizontal-scrollbar-visible-p . nil)))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
993 (select-frame current-toc-frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
994 (switch-to-buffer "*toc*") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
995 (select-frame current-frame) |
87633
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
996 (cond ((fboundp 'x-focus-frame) |
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
997 (x-focus-frame current-frame)) |
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
998 ((and (featurep 'xemacs) ; `focus-frame' is a nop in Emacs. |
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
999 (fboundp 'focus-frame)) |
2b38ed4ed1bb
Ralf Angeli <angeli at caeruleus.net>
Glenn Morris <rgm@gnu.org>
parents:
87170
diff
changeset
|
1000 (focus-frame current-frame))) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1001 (select-window current-window) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1002 (when (eq reftex-auto-recenter-toc 'frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1003 (unless reftex-toc-auto-recenter-timer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1004 (reftex-toggle-auto-toc-recenter)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1005 (add-hook 'delete-frame-hook 'reftex-toc-delete-frame-hook))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1006 |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1007 (defun reftex-toc-delete-frame-hook (frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1008 (if (and reftex-toc-auto-recenter-timer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1009 (reftex-toc-dframe-p frame)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1010 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1011 (reftex-toggle-auto-toc-recenter)))) |
47050
904fd28be439
Update to RefTeX 4.19
Carsten Dominik <dominik@science.uva.nl>
parents:
46683
diff
changeset
|
1012 |
25280 | 1013 ;; Table of Contents map |
1014 (define-key reftex-toc-map (if (featurep 'xemacs) [(button2)] [(mouse-2)]) | |
1015 'reftex-toc-mouse-goto-line-and-hide) | |
69227
6c1428d2666e
(reftex-toc-map): Fixed typo,
Carsten Dominik <dominik@science.uva.nl>
parents:
69178
diff
changeset
|
1016 (define-key reftex-toc-map [follow-link] 'mouse-face) |
25280 | 1017 |
1018 (substitute-key-definition | |
1019 'next-line 'reftex-toc-next reftex-toc-map global-map) | |
1020 (substitute-key-definition | |
1021 'previous-line 'reftex-toc-previous reftex-toc-map global-map) | |
1022 | |
1023 (loop for x in | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1024 '(("n" . reftex-toc-next) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1025 ("p" . reftex-toc-previous) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1026 ("?" . reftex-toc-show-help) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1027 (" " . reftex-toc-view-line) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1028 ("\C-m" . reftex-toc-goto-line-and-hide) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1029 ("\C-i" . reftex-toc-goto-line) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1030 ("\C-c>" . reftex-toc-display-index) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1031 ("r" . reftex-toc-rescan) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1032 ("R" . reftex-toc-Rescan) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1033 ("g" . revert-buffer) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1034 ("q" . reftex-toc-quit); |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1035 ("k" . reftex-toc-quit-and-kill) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1036 ("f" . reftex-toc-toggle-follow); |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1037 ("a" . reftex-toggle-auto-toc-recenter) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1038 ("d" . reftex-toc-toggle-dedicated-frame) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1039 ("F" . reftex-toc-toggle-file-boundary) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1040 ("i" . reftex-toc-toggle-index) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1041 ("l" . reftex-toc-toggle-labels) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1042 ("t" . reftex-toc-max-level) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1043 ("c" . reftex-toc-toggle-context) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1044 ; ("%" . reftex-toc-toggle-commented) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1045 ("\M-%" . reftex-toc-rename-label) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1046 ("x" . reftex-toc-external) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1047 ("z" . reftex-toc-jump) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1048 ("." . reftex-toc-show-calling-point) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1049 ("\C-c\C-n" . reftex-toc-next-heading) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1050 ("\C-c\C-p" . reftex-toc-previous-heading) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1051 (">" . reftex-toc-demote) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1052 ("<" . reftex-toc-promote)) |
25280 | 1053 do (define-key reftex-toc-map (car x) (cdr x))) |
1054 | |
1055 (loop for key across "0123456789" do | |
1056 (define-key reftex-toc-map (vector (list key)) 'digit-argument)) | |
1057 (define-key reftex-toc-map "-" 'negative-argument) | |
1058 | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
1059 (easy-menu-define |
25280 | 1060 reftex-toc-menu reftex-toc-map |
1061 "Menu for Table of Contents buffer" | |
1062 '("TOC" | |
1063 ["Show Location" reftex-toc-view-line t] | |
1064 ["Go To Location" reftex-toc-goto-line t] | |
1065 ["Exit & Go To Location" reftex-toc-goto-line-and-hide t] | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1066 ["Show Calling Point" reftex-toc-show-calling-point t] |
25280 | 1067 ["Quit" reftex-toc-quit t] |
1068 "--" | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1069 ("Edit" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1070 ["Promote" reftex-toc-promote t] |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1071 ["Demote" reftex-toc-demote t] |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1072 ["Rename Label" reftex-toc-rename-label t]) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1073 "--" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1074 ["Index" reftex-toc-display-index t] |
25280 | 1075 ["External Document TOC " reftex-toc-external t] |
1076 "--" | |
1077 ("Update" | |
34402
5eec8d1d09f0
Update to RefTeX 4.15, see ChangeLog for details
Carsten Dominik <dominik@science.uva.nl>
parents:
34211
diff
changeset
|
1078 ["Rebuilt *toc* Buffer" revert-buffer t] |
25280 | 1079 ["Rescan One File" reftex-toc-rescan reftex-enable-partial-scans] |
1080 ["Rescan Entire Document" reftex-toc-Rescan t]) | |
1081 ("Options" | |
1082 "TOC Items" | |
1083 ["File Boundaries" reftex-toc-toggle-file-boundary :style toggle | |
1084 :selected reftex-toc-include-file-boundaries] | |
1085 ["Labels" reftex-toc-toggle-labels :style toggle | |
1086 :selected reftex-toc-include-labels] | |
1087 ["Index Entries" reftex-toc-toggle-index :style toggle | |
1088 :selected reftex-toc-include-index-entries] | |
1089 ["Context" reftex-toc-toggle-context :style toggle | |
1090 :selected reftex-toc-include-context] | |
1091 "--" | |
65548
253cad16882d
Little fixes to remove compiler warnings
Carsten Dominik <dominik@science.uva.nl>
parents:
65270
diff
changeset
|
1092 ["Follow Mode" reftex-toc-toggle-follow :style toggle |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1093 :selected reftex-toc-follow-mode] |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1094 ["Auto Recenter" reftex-toggle-auto-toc-recenter :style toggle |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1095 :selected reftex-toc-auto-recenter-timer] |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
50979
diff
changeset
|
1096 ["Dedicated Frame" reftex-toc-toggle-dedicated-frame t]) |
25280 | 1097 "--" |
1098 ["Help" reftex-toc-show-help t])) | |
1099 | |
1100 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93097
diff
changeset
|
1101 ;; arch-tag: 92400ce2-0b86-4c89-a606-4ed71acea17e |
59534
9bad65481674
2005-01-14 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
53852
diff
changeset
|
1102 ;;; reftex-toc.el ends here |