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