diff options
| author | Paul Eggert | 2011-11-13 22:27:12 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-11-13 22:27:12 -0800 |
| commit | 09e80d9fb9fe7239d0fa301973920845831366d3 (patch) | |
| tree | 771e73119b2ad9bf6cbf1fbff92a5f4cb1bf03ed /lisp/textmodes | |
| parent | 56632ce4cd8616f0613e8734d62ec5e2f833c7dc (diff) | |
| download | emacs-09e80d9fb9fe7239d0fa301973920845831366d3.tar.gz emacs-09e80d9fb9fe7239d0fa301973920845831366d3.zip | |
Spelling fixes.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/artist.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-global.el | 24 |
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. | |||
| 3941 | Otherwise the search is limited to the current buffer. | 3941 | Otherwise the search is limited to the current buffer. |
| 3942 | Return position of entry if CROSSREF-KEY is found or nil otherwise. | 3942 | Return position of entry if CROSSREF-KEY is found or nil otherwise. |
| 3943 | If CROSSREF-KEY is in the same buffer like current entry but before it | 3943 | If CROSSREF-KEY is in the same buffer like current entry but before it |
| 3944 | an error is signaled. If NOERRER is non-nil this error is suppressed. | 3944 | an error is signaled. If NOERROR is non-nil this error is suppressed. |
| 3945 | Optional arg PNT is the position of the referencing entry. It defaults | 3945 | Optional arg PNT is the position of the referencing entry. It defaults |
| 3946 | to position of point. If optional arg SPLIT is non-nil, split window | 3946 | to position of point. If optional arg SPLIT is non-nil, split window |
| 3947 | so that both the referencing and the crossrefed entry are displayed. | 3947 | so 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 | |||
| 190 | documents. You should not use it if another document refers to this | 190 | documents. You should not use it if another document refers to this |
| 191 | one with the `xr' package." | 191 | one 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 |