Mercurial > emacs
annotate lisp/textmodes/reftex-global.el @ 64881:0fe8ff08c3b2
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Aug 2005 23:37:15 +0000 |
parents | 5b1a238fcbb4 |
children | b1bd53759945 2d92f5c9d6ae |
rev | line source |
---|---|
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
1 ;;; reftex-global.el --- operations on entire documents with RefTeX |
64751
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 |
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, |
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
4 ;; 2005 Free Software Foundation, Inc. |
27035 | 5 |
46612
7522419c4db0
Updated to reftex 4.17
Carsten Dominik <dominik@science.uva.nl>
parents:
42418
diff
changeset
|
6 ;; Author: Carsten Dominik <dominik@science.uva.nl> |
62467
35f6599373fc
* textmodes/reftex-vars.el (reftex-cite-format-builtin): Support
Carsten Dominik <dominik@science.uva.nl>
parents:
59736
diff
changeset
|
7 ;; Version: 4.28 |
27035 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
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 | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
25280 | 25 |
38422
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
26 ;;; Commentary: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
27 |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
28 ;;; Code: |
7a94f1c588c4
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37998
diff
changeset
|
29 |
26910
489a5439b988
* reftex.el (reftex-compile-variables): respect new structure of
Carsten Dominik <dominik@science.uva.nl>
parents:
25806
diff
changeset
|
30 (eval-when-compile (require 'cl)) |
25280 | 31 (provide 'reftex-global) |
32 (require 'reftex) | |
33 ;;; | |
34 | |
35 (defun reftex-create-tags-file () | |
36 "Create TAGS file by running `etags' on the current document. | |
37 The TAGS file is also immediately visited with `visit-tags-table'." | |
38 (interactive) | |
39 (reftex-access-scan-info current-prefix-arg) | |
40 (let* ((master (reftex-TeX-master-file)) | |
41 (files (reftex-all-document-files)) | |
42 (cmd (format "etags %s" (mapconcat 'identity files " ")))) | |
43 (save-excursion | |
34402
5eec8d1d09f0
Update to RefTeX 4.15, see ChangeLog for details
Carsten Dominik <dominik@science.uva.nl>
parents:
29775
diff
changeset
|
44 (set-buffer (reftex-get-file-buffer-force master)) |
25280 | 45 (message "Running etags to create TAGS file...") |
46 (shell-command cmd) | |
47 (visit-tags-table "TAGS")))) | |
48 | |
49 ;; History of grep commands. | |
50 (defvar reftex-grep-history nil) | |
51 (defvar reftex-grep-command "grep -n " | |
52 "Last grep command used in \\[reftex-grep-document]; default for next grep.") | |
53 | |
54 (defun reftex-grep-document (grep-cmd) | |
55 "Run grep query through all files related to this document. | |
56 With prefix arg, force to rescan document. | |
57 No active TAGS table is required." | |
58 | |
59 (interactive | |
60 (list (read-from-minibuffer "Run grep on document (like this): " | |
61 reftex-grep-command nil nil | |
62 'reftex-grep-history))) | |
63 (reftex-access-scan-info current-prefix-arg) | |
64 (let* ((files (reftex-all-document-files t)) | |
65 (cmd (format | |
66 "%s %s" grep-cmd | |
67 (mapconcat 'identity files " ")))) | |
68 (grep cmd))) | |
69 | |
70 (defun reftex-search-document (&optional regexp) | |
71 "Regexp search through all files of the current document. | |
72 Starts always in the master file. Stops when a match is found. | |
73 To continue searching for next match, use command \\[tags-loop-continue]. | |
74 No active TAGS table is required." | |
75 (interactive) | |
76 (let ((default (reftex-this-word))) | |
77 (unless regexp | |
78 (setq regexp (read-string (format "Search regexp in document [%s]: " | |
79 default)))) | |
80 (if (string= regexp "") (setq regexp (regexp-quote default))) | |
81 | |
82 (reftex-access-scan-info current-prefix-arg) | |
83 (tags-search regexp (list 'reftex-all-document-files)))) | |
84 | |
85 (defun reftex-query-replace-document (&optional from to delimited) | |
42418
07e5765f1141
(reftex-query-replace-document, reftex-change-label): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
38422
diff
changeset
|
86 "Do `query-replace-regexp' of FROM with TO over the entire document. |
25280 | 87 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. |
42418
07e5765f1141
(reftex-query-replace-document, reftex-change-label): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
38422
diff
changeset
|
88 If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
25280 | 89 with the command \\[tags-loop-continue]. |
90 No active TAGS table is required." | |
91 (interactive) | |
92 (let ((default (reftex-this-word))) | |
93 (unless from | |
94 (setq from (read-string (format "Replace regexp in document [%s]: " | |
95 default))) | |
96 (if (string= from "") (setq from (regexp-quote default)))) | |
97 (unless to | |
98 (setq to (read-string (format "Replace regexp %s with: " from)))) | |
99 (reftex-access-scan-info current-prefix-arg) | |
100 (tags-query-replace from to (or delimited current-prefix-arg) | |
101 (list 'reftex-all-document-files)))) | |
102 | |
103 (defun reftex-find-duplicate-labels () | |
104 "Produce a list of all duplicate labels in the document." | |
105 | |
106 (interactive) | |
107 | |
108 ;; Rescan the document to make sure | |
109 (reftex-access-scan-info t) | |
110 | |
111 (let ((master (reftex-TeX-master-file)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
112 (cnt 0) |
25280 | 113 (dlist |
114 (mapcar | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
115 (lambda (x) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
116 (let (x1) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
117 (cond |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
118 ((memq (car x) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
119 '(toc bof eof bib thebib label-numbers xr xr-doc |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
120 master-dir file-error bibview-cache appendix |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
121 is-multi index)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
122 nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
123 (t |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
124 (setq x1 (reftex-all-assoc-string |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
125 (car x) (symbol-value reftex-docstruct-symbol))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
126 (if (< 1 (length x1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
127 (append (list (car x)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
128 (mapcar (lambda(x) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
129 (abbreviate-file-name (nth 3 x))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
130 x1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
131 (list nil)))))) |
25280 | 132 (reftex-uniquify-by-car (symbol-value reftex-docstruct-symbol))))) |
133 | |
134 (setq dlist (reftex-uniquify-by-car dlist)) | |
135 (if (null dlist) (error "No duplicate labels in document")) | |
136 (switch-to-buffer-other-window "*Duplicate Labels*") | |
137 (set (make-local-variable 'TeX-master) master) | |
138 (erase-buffer) | |
139 (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n") | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
140 (insert |
25280 | 141 " Move point to label and type `r' to run a query-replace on the label\n" |
142 " and its references. Type `q' to exit this buffer.\n\n") | |
143 (insert " LABEL FILE\n") | |
144 (insert " -------------------------------------------------------------\n") | |
145 (use-local-map (make-sparse-keymap)) | |
146 (local-set-key [?q] (lambda () "Kill this buffer." (interactive) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
147 (kill-buffer (current-buffer)) (delete-window))) |
25280 | 148 (local-set-key [?r] 'reftex-change-label) |
149 (while dlist | |
150 (when (and (car (car dlist)) | |
151 (cdr (car dlist))) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
152 (incf cnt) |
25280 | 153 (insert (mapconcat 'identity (car dlist) "\n ") "\n")) |
154 (pop dlist)) | |
155 (goto-char (point-min)) | |
156 (when (= cnt 0) | |
157 (kill-buffer (current-buffer)) | |
158 (delete-window) | |
159 (message "Document does not contain duplicate labels.")))) | |
160 | |
161 (defun reftex-change-label (&optional from to) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
162 "Run `query-replace-regexp' of FROM with TO in all macro arguments. |
25280 | 163 Works on the entire multifile document. |
42418
07e5765f1141
(reftex-query-replace-document, reftex-change-label): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
38422
diff
changeset
|
164 If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
25280 | 165 with the command \\[tags-loop-continue]. |
166 No active TAGS table is required." | |
167 (interactive) | |
168 (let ((default (reftex-this-word "-a-zA-Z0-9_*.:"))) | |
169 (unless from | |
170 (setq from (read-string (format "Replace label globally [%s]: " | |
171 default)))) | |
172 (if (string= from "") (setq from default)) | |
173 (unless to | |
174 (setq to (read-string (format "Replace label %s with: " | |
175 from)))) | |
176 (reftex-query-replace-document | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
177 (concat "{" (regexp-quote from) "}") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
178 (format "{%s}" to)))) |
25280 | 179 |
180 (defun reftex-renumber-simple-labels () | |
181 "Renumber all simple labels in the document to make them sequentially. | |
182 Simple labels are the ones created by RefTeX, consisting only of the | |
183 prefix and a number. After the command completes, all these labels will | |
184 have sequential numbers throughout the document. Any references to | |
185 the labels will be changed as well. For this, RefTeX looks at the | |
186 arguments of any macros which either start or end in the string `ref'. | |
187 This command should be used with care, in particular in multifile | |
188 documents. You should not use it if another document refers to this | |
189 one with the `xr' package." | |
190 (interactive) | |
191 ;; Resan the entire document | |
192 (reftex-access-scan-info 1) | |
193 ;; Get some insurance | |
194 (if (and (reftex-is-multi) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
195 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? "))) |
25280 | 196 (error "Abort")) |
197 ;; Make the translation list | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
198 (let* ((re-core (concat "\\(" |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
199 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
200 "\\)")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
201 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
202 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
203 (error-fmt "Undefined label or reference %s. Ignore and continue? ") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
204 (label-numbers-alist (mapcar (lambda (x) (cons (cdr x) 0)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
205 reftex-typekey-to-prefix-alist)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
206 (files (reftex-all-document-files)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
207 (list (symbol-value reftex-docstruct-symbol)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
208 translate-alist n entry label new-label nr-cell changed-sequence) |
25280 | 209 |
210 (while (setq entry (pop list)) | |
211 (when (and (stringp (car entry)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
212 (string-match label-re (car entry))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
213 (setq label (car entry) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
214 nr-cell (assoc (match-string 1 (car entry)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
215 label-numbers-alist)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
216 (if (assoc label translate-alist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
217 (error "Duplicate label %s" label)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
218 (setq new-label (concat (match-string 1 (car entry)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
219 (int-to-string (incf (cdr nr-cell))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
220 (push (cons label new-label) translate-alist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
221 (or (string= label new-label) (setq changed-sequence t)))) |
25280 | 222 |
223 (unless changed-sequence | |
224 (error "Simple labels are already in correct sequence")) | |
225 | |
29775
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
226 (reftex-ensure-write-access (reftex-all-document-files)) |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
227 |
25280 | 228 ;; Save all document buffers before this operation |
229 (reftex-save-all-document-buffers) | |
230 | |
231 ;; First test to check for erros | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
232 (setq n (reftex-translate |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
233 files search-re translate-alist error-fmt 'test)) |
25280 | 234 |
235 ;; Now the real thing. | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
236 (if (yes-or-no-p |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
237 (format "Replace %d items at %d places in %d files? " |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
238 (length translate-alist) n (length files))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
239 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
240 (let ((inhibit-quit t)) ;; Do not disturb... |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
241 (reftex-translate |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
242 files search-re translate-alist error-fmt nil) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
243 (setq quit-flag nil)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
244 (if (and (reftex-is-multi) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
245 (yes-or-no-p "Save entire document? ")) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
246 (reftex-save-all-document-buffers)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
247 ;; Rescan again... |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
248 (reftex-access-scan-info 1) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
249 (message "Done replacing simple labels.")) |
25280 | 250 (message "No replacements done")))) |
251 | |
252 (defun reftex-translate (files search-re translate-alist error-fmt test) | |
253 ;; In FILES, look for SEARCH-RE and replace match 1 of it with | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
254 ;; its association in TRANSLATE-ALSIT. |
25280 | 255 ;; If we do not find an association and TEST is non-nil, query |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
256 ;; to ignore the problematic string. |
25280 | 257 ;; If TEST is nil, it is ignored without query. |
258 ;; Return the number of replacements. | |
259 (let ((n 0) file label match-data buf macro pos cell) | |
260 (while (setq file (pop files)) | |
261 (setq buf (reftex-get-file-buffer-force file)) | |
262 (unless buf | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
263 (error "No such file %s" file)) |
25280 | 264 (set-buffer buf) |
265 (save-excursion | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
266 (save-restriction |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
267 (widen) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
268 (goto-char (point-min)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
269 (while (re-search-forward search-re nil t) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
270 (backward-char) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
271 (save-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
272 (setq label (reftex-match-string 1) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
273 cell (assoc label translate-alist) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
274 match-data (match-data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
275 macro (reftex-what-macro 1) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
276 pos (cdr macro)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
277 (goto-char (or pos (point))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
278 (when (and macro |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
279 (or (looking-at "\\\\ref") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
280 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
281 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]") |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
282 (looking-at (format |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
283 reftex-find-label-regexp-format |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
284 (regexp-quote label))))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
285 ;; OK, we should replace it. |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
286 (set-match-data match-data) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
287 (cond |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
288 ((and test (not cell)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
289 ;; We've got a problem |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
290 (unwind-protect |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
291 (progn |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
292 (reftex-highlight 1 (match-beginning 0) (match-end 0)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
293 (ding) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
294 (or (y-or-n-p (format error-fmt label)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
295 (error "Abort"))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
296 (reftex-unhighlight 1))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
297 ((and test cell) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
298 (incf n)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
299 ((and (not test) cell) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
300 ;; Replace |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
301 (goto-char (match-beginning 1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
302 (delete-region (match-beginning 1) (match-end 1)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
303 (insert (cdr cell))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
304 (t nil)))))))) |
25280 | 305 n)) |
306 | |
307 (defun reftex-save-all-document-buffers () | |
308 "Save all documents associated with the current document. | |
309 The function is useful after a global action like replacing or renumbering | |
310 labels." | |
311 (interactive) | |
312 (let ((files (reftex-all-document-files)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
313 file buffer) |
25280 | 314 (save-excursion |
315 (while (setq file (pop files)) | |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
316 (setq buffer (reftex-get-buffer-visiting file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
317 (when buffer |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
318 (set-buffer buffer) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
319 (save-buffer)))))) |
25280 | 320 |
29775
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
321 (defun reftex-ensure-write-access (files) |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
322 "Make sure we have write access to all files in FILES. |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
323 Also checks if buffers visiting the files are in read-only mode." |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
324 (let (file buf) |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
325 (while (setq file (pop files)) |
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
326 (unless (file-exists-p file) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
327 (ding) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
328 (or (y-or-n-p (format "No such file %s. Continue? " file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
329 (error "Abort"))) |
29775
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
330 (unless (file-writable-p file) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
331 (ding) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
332 (or (y-or-n-p (format "No write access to %s. Continue? " file)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
333 (error "Abort"))) |
29775
31536c6cf2e3
* textmodes/reftex.el (reftex-find-citation-regexp-format):
Carsten Dominik <dominik@science.uva.nl>
parents:
27603
diff
changeset
|
334 (when (and (setq buf (reftex-get-buffer-visiting file)) |
52170
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
335 (save-excursion |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
336 (set-buffer buf) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
337 buffer-read-only)) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
338 (ding) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
339 (or (y-or-n-p (format "Buffer %s is read-only. Continue? " |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
340 (buffer-name buf))) |
27340819ef07
Updated to version 4.21
Carsten Dominik <dominik@science.uva.nl>
parents:
49599
diff
changeset
|
341 (error "Abort")))))) |
25280 | 342 |
59736
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
343 (defun reftex-isearch-wrap-function () |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
344 (if (not isearch-word) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
345 (switch-to-buffer |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
346 (funcall isearch-next-buffer-function (current-buffer) t))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
347 (goto-char (if isearch-forward (point-min) (point-max)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
348 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
349 (defun reftex-isearch-push-state-function () |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
350 `(lambda (cmd) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
351 (reftex-isearch-pop-state-function cmd ,(current-buffer)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
352 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
353 (defun reftex-isearch-pop-state-function (cmd buffer) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
354 (switch-to-buffer buffer)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
355 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
356 (defun reftex-isearch-isearch-search (string bound noerror) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
357 (let ((nxt-buff nil) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
358 (search-fun |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
359 (cond |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
360 (isearch-word |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
361 (if isearch-forward 'word-search-forward 'word-search-backward)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
362 (isearch-regexp |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
363 (if isearch-forward 're-search-forward 're-search-backward)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
364 (t |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
365 (if isearch-forward 'search-forward 'search-backward))))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
366 (or |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
367 (funcall search-fun string bound noerror) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
368 (unless bound |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
369 (condition-case nil |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
370 (when isearch-next-buffer-function |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
371 (while (not (funcall search-fun string bound noerror)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
372 (cond |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
373 (isearch-forward |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
374 (setq nxt-buff |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
375 (funcall isearch-next-buffer-function |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
376 (current-buffer))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
377 (if (not nxt-buff) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
378 (progn |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
379 (error "Wrap forward")) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
380 (switch-to-buffer nxt-buff) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
381 (goto-char (point-min)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
382 (t |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
383 (setq nxt-buff |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
384 (funcall isearch-next-buffer-function |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
385 (current-buffer))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
386 (if (not nxt-buff) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
387 (progn |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
388 (error "Wrap backward")) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
389 (switch-to-buffer nxt-buff) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
390 (goto-char (point-max)))))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
391 (point)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
392 (error nil)))))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
393 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
394 ;;; This function is called when isearch reaches the end of a |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
395 ;;; buffer. For reftex what we want to do is not wrap to the |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
396 ;;; beginning, but switch to the next buffer in the logical order of |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
397 ;;; the document. This function looks through list of files in the |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
398 ;;; document (reftex-all-document-files), searches for the current |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
399 ;;; buffer and switches to the next/previous one in the logical order |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
400 ;;; of the document. If WRAPP is true then wrap the search to the |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
401 ;;; beginning/end of the file list, depending of the search direction. |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
402 (defun reftex-isearch-switch-to-next-file (crt-buf &optional wrapp) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
403 (reftex-access-scan-info) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
404 (let* ((cb (buffer-file-name crt-buf)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
405 (flist (reftex-all-document-files)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
406 (orig-flist flist)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
407 (when flist |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
408 (if wrapp |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
409 (unless isearch-forward |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
410 (setq flist (last flist))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
411 (unless isearch-forward |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
412 (setq flist (nreverse (copy-list flist))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
413 (setq orig-flist flist)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
414 (while (not (string= (car flist) cb)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
415 (setq flist (cdr flist))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
416 (setq flist (cdr flist))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
417 (when flist |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
418 (find-file (car flist)))))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
419 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
420 ;;;###autoload |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
421 (defun reftex-isearch-minor-mode (&optional arg) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
422 "When on, isearch searches the whole document, not only the current file. |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
423 This minor mode allows isearch to search through all the files of |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
424 the current TeX document. |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
425 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
426 With no argument, this command toggles |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
427 `reftex-isearch-minor-mode'. With a prefix argument ARG, turn |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
428 `reftex-isearch-minor-mode' on iff ARG is positive." |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
429 (interactive "P") |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
430 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
431 (setq reftex-isearch-minor-mode |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
432 (not (or (and (null arg) reftex-isearch-minor-mode) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
433 (<= (prefix-numeric-value arg) 0)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
434 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
435 (if reftex-isearch-minor-mode |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
436 (progn |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
437 (dolist (crt-buf (buffer-list)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
438 (with-current-buffer crt-buf |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
439 (when reftex-mode |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
440 (set (make-local-variable 'isearch-wrap-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
441 'reftex-isearch-wrap-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
442 (set (make-local-variable 'isearch-search-fun-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
443 (lambda () 'reftex-isearch-isearch-search)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
444 (set (make-local-variable 'isearch-push-state-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
445 'reftex-isearch-push-state-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
446 (set (make-local-variable 'isearch-next-buffer-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
447 'reftex-isearch-switch-to-next-file) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
448 (setq reftex-isearch-minor-mode t)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
449 (add-hook 'reftex-mode-hook 'reftex-isearch-minor-mode)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
450 (dolist (crt-buf (buffer-list)) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
451 (with-current-buffer crt-buf |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
452 (when reftex-mode |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
453 (kill-local-variable 'isearch-wrap-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
454 (kill-local-variable 'isearch-search-fun-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
455 (kill-local-variable 'isearch-push-state-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
456 (kill-local-variable 'isearch-next-buffer-function) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
457 (setq reftex-isearch-minor-mode nil)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
458 (remove-hook 'reftex-mode-hook 'reftex-isearch-minor-mode))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
459 ;; Force modeline redisplay. |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
460 (set-buffer-modified-p (buffer-modified-p)))) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
461 |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
462 (add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
463 'reftex-isearch-minor-mode) |
fc3483d0f93e
* textmodes/reftex-global.el (reftex-isearch-push-state-function)
Carsten Dominik <dominik@science.uva.nl>
parents:
59534
diff
changeset
|
464 |
52401 | 465 ;;; arch-tag: 2dbf7633-92c8-4340-8656-7aa019d0f80d |
25280 | 466 ;;; reftex-global.el ends here |