aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorPaul Eggert2011-11-13 22:27:12 -0800
committerPaul Eggert2011-11-13 22:27:12 -0800
commit09e80d9fb9fe7239d0fa301973920845831366d3 (patch)
tree771e73119b2ad9bf6cbf1fbff92a5f4cb1bf03ed /lisp/textmodes
parent56632ce4cd8616f0613e8734d62ec5e2f833c7dc (diff)
downloademacs-09e80d9fb9fe7239d0fa301973920845831366d3.tar.gz
emacs-09e80d9fb9fe7239d0fa301973920845831366d3.zip
Spelling fixes.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/artist.el2
-rw-r--r--lisp/textmodes/bibtex.el2
-rw-r--r--lisp/textmodes/reftex-global.el24
3 files changed, 14 insertions, 14 deletions
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 2325d7b26ff..be14e90e000 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -2437,7 +2437,7 @@ in the coord."
2437 point-list)) 2437 point-list))
2438 2438
2439;; artist-save-chars-under-point-list 2439;; artist-save-chars-under-point-list
2440;; Remebers the chars that were there before we did draw the line. 2440;; Remembers the chars that were there before we did draw the line.
2441;; Returns point-list. 2441;; Returns point-list.
2442;; 2442;;
2443(defun artist-save-chars-under-point-list (point-list) 2443(defun artist-save-chars-under-point-list (point-list)
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 741b6cd904c..4459ac10098 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -3941,7 +3941,7 @@ If `bibtex-files' is non-nil, search all these files.
3941Otherwise the search is limited to the current buffer. 3941Otherwise the search is limited to the current buffer.
3942Return position of entry if CROSSREF-KEY is found or nil otherwise. 3942Return position of entry if CROSSREF-KEY is found or nil otherwise.
3943If CROSSREF-KEY is in the same buffer like current entry but before it 3943If CROSSREF-KEY is in the same buffer like current entry but before it
3944an error is signaled. If NOERRER is non-nil this error is suppressed. 3944an error is signaled. If NOERROR is non-nil this error is suppressed.
3945Optional arg PNT is the position of the referencing entry. It defaults 3945Optional arg PNT is the position of the referencing entry. It defaults
3946to position of point. If optional arg SPLIT is non-nil, split window 3946to position of point. If optional arg SPLIT is non-nil, split window
3947so that both the referencing and the crossrefed entry are displayed. 3947so that both the referencing and the crossrefed entry are displayed.
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index ccdab49750b..6a3a7bef244 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -139,7 +139,7 @@ No active TAGS table is required."
139 (set (make-local-variable 'TeX-master) master) 139 (set (make-local-variable 'TeX-master) master)
140 (erase-buffer) 140 (erase-buffer)
141 (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n") 141 (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n")
142 (insert 142 (insert
143 " Move point to label and type `r' to run a query-replace on the label\n" 143 " Move point to label and type `r' to run a query-replace on the label\n"
144 " and its references. Type `q' to exit this buffer.\n\n") 144 " and its references. Type `q' to exit this buffer.\n\n")
145 (insert " LABEL FILE\n") 145 (insert " LABEL FILE\n")
@@ -190,15 +190,15 @@ This command should be used with care, in particular in multifile
190documents. You should not use it if another document refers to this 190documents. You should not use it if another document refers to this
191one with the `xr' package." 191one with the `xr' package."
192 (interactive) 192 (interactive)
193 ;; Resan the entire document 193 ;; Rescan the entire document
194 (reftex-access-scan-info 1) 194 (reftex-access-scan-info 1)
195 ;; Get some insurance 195 ;; Get some insurance
196 (if (and (reftex-is-multi) 196 (if (and (reftex-is-multi)
197 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? "))) 197 (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? ")))
198 (error "Abort")) 198 (error "Abort"))
199 ;; Make the translation list 199 ;; Make the translation list
200 (let* ((re-core (concat "\\(" 200 (let* ((re-core (concat "\\("
201 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|") 201 (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
202 "\\)")) 202 "\\)"))
203 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'")) 203 (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'"))
204 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]")) 204 (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]"))
@@ -231,11 +231,11 @@ one with the `xr' package."
231 (reftex-save-all-document-buffers) 231 (reftex-save-all-document-buffers)
232 232
233 ;; First test to check for erros 233 ;; First test to check for erros
234 (setq n (reftex-translate 234 (setq n (reftex-translate
235 files search-re translate-alist error-fmt 'test)) 235 files search-re translate-alist error-fmt 'test))
236 236
237 ;; Now the real thing. 237 ;; Now the real thing.
238 (if (yes-or-no-p 238 (if (yes-or-no-p
239 (format "Replace %d items at %d places in %d files? " 239 (format "Replace %d items at %d places in %d files? "
240 (length translate-alist) n (length files))) 240 (length translate-alist) n (length files)))
241 (progn 241 (progn
@@ -253,9 +253,9 @@ one with the `xr' package."
253 253
254(defun reftex-translate (files search-re translate-alist error-fmt test) 254(defun reftex-translate (files search-re translate-alist error-fmt test)
255 ;; In FILES, look for SEARCH-RE and replace match 1 of it with 255 ;; In FILES, look for SEARCH-RE and replace match 1 of it with
256 ;; its association in TRANSLATE-ALSIT. 256 ;; its association in TRANSLATE-ALSIT.
257 ;; If we do not find an association and TEST is non-nil, query 257 ;; If we do not find an association and TEST is non-nil, query
258 ;; to ignore the problematic string. 258 ;; to ignore the problematic string.
259 ;; If TEST is nil, it is ignored without query. 259 ;; If TEST is nil, it is ignored without query.
260 ;; Return the number of replacements. 260 ;; Return the number of replacements.
261 (let ((n 0) file label match-data buf macro pos cell) 261 (let ((n 0) file label match-data buf macro pos cell)
@@ -281,7 +281,7 @@ one with the `xr' package."
281 (or (looking-at "\\\\ref") 281 (or (looking-at "\\\\ref")
282 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]") 282 (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]")
283 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]") 283 (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]")
284 (looking-at (format 284 (looking-at (format
285 reftex-find-label-regexp-format 285 reftex-find-label-regexp-format
286 (regexp-quote label))))) 286 (regexp-quote label)))))
287 ;; OK, we should replace it. 287 ;; OK, we should replace it.
@@ -351,7 +351,7 @@ Also checks if buffers visiting the files are in read-only mode."
351 351
352(defun reftex-isearch-wrap-function () 352(defun reftex-isearch-wrap-function ()
353 (if (not isearch-word) 353 (if (not isearch-word)
354 (switch-to-buffer 354 (switch-to-buffer
355 (funcall isearch-next-buffer-function (current-buffer) t))) 355 (funcall isearch-next-buffer-function (current-buffer) t)))
356 (goto-char (if isearch-forward (point-min) (point-max)))) 356 (goto-char (if isearch-forward (point-min) (point-max))))
357 357
@@ -435,7 +435,7 @@ With no argument, this command toggles
435`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off." 435`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off."
436 (interactive "P") 436 (interactive "P")
437 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode)) 437 (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode))
438 (setq reftex-isearch-minor-mode 438 (setq reftex-isearch-minor-mode
439 (not (or (and (null arg) reftex-isearch-minor-mode) 439 (not (or (and (null arg) reftex-isearch-minor-mode)
440 (<= (prefix-numeric-value arg) 0)))) 440 (<= (prefix-numeric-value arg) 0))))
441 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode) 441 (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode)
@@ -471,7 +471,7 @@ With no argument, this command toggles
471 ;; Force modeline redisplay. 471 ;; Force modeline redisplay.
472 (set-buffer-modified-p (buffer-modified-p)))) 472 (set-buffer-modified-p (buffer-modified-p))))
473 473
474(add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil 474(add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil
475 'reftex-isearch-minor-mode) 475 'reftex-isearch-minor-mode)
476 476
477;;; reftex-global.el ends here 477;;; reftex-global.el ends here