diff options
| author | Werner LEMBERG | 2005-03-25 09:03:24 +0000 |
|---|---|---|
| committer | Werner LEMBERG | 2005-03-25 09:03:24 +0000 |
| commit | 5181ff9f3d68ae3e1fe260430c1924fafa5b77c6 (patch) | |
| tree | 91ddc9b4328b8db85c163bdcae16138b4a9baacf /lisp/textmodes/reftex.el | |
| parent | eac9c0efd68cdd7a65439bb3958da1db56391bc9 (diff) | |
| download | emacs-5181ff9f3d68ae3e1fe260430c1924fafa5b77c6.tar.gz emacs-5181ff9f3d68ae3e1fe260430c1924fafa5b77c6.zip | |
* textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el,
textmodes/reftex-index.el, textmodes/reftex-parse.el,
textmodes/reftex-ref.el, textmodes/reftex-vars.el,
textmodes/reftex.el, textmodes/org.el: Replace `illegal' with
`invalid'.
Diffstat (limited to 'lisp/textmodes/reftex.el')
| -rw-r--r-- | lisp/textmodes/reftex.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 49485c24725..68b3b408d60 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX | 1 | ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX |
| 2 | ;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc. | 2 | ;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 |
| 3 | ;; Free Software Foundation, Inc. | ||
| 3 | 4 | ||
| 4 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
| 5 | ;; Version: 4.26 | 6 | ;; Version: 4.26 |
| @@ -1416,7 +1417,7 @@ Valid actions are: readable, restore, read, kill, write." | |||
| 1416 | ((= key ?\C-i) | 1417 | ((= key ?\C-i) |
| 1417 | (setq prefix (completing-read "Prefix: " xr-alist nil t)) | 1418 | (setq prefix (completing-read "Prefix: " xr-alist nil t)) |
| 1418 | (- len (length (memq (assoc prefix xr-alist) xr-alist)))) | 1419 | (- len (length (memq (assoc prefix xr-alist) xr-alist)))) |
| 1419 | (t (error "Illegal document selection [%c]" key))))))))) | 1420 | (t (error "Invalid document selection [%c]" key))))))))) |
| 1420 | 1421 | ||
| 1421 | ;;; ========================================================================= | 1422 | ;;; ========================================================================= |
| 1422 | ;;; | 1423 | ;;; |
| @@ -2167,17 +2168,17 @@ Works on both Emacs and XEmacs." | |||
| 2167 | (reftex-convert-string string "[-~ \t\n\r,;]" nil t t | 2168 | (reftex-convert-string string "[-~ \t\n\r,;]" nil t t |
| 2168 | 5 40 nil 1 " " (nth 5 reftex-derive-label-parameters))) | 2169 | 5 40 nil 1 " " (nth 5 reftex-derive-label-parameters))) |
| 2169 | 2170 | ||
| 2170 | (defun reftex-convert-string (string split-re illegal-re dot keep-fp | 2171 | (defun reftex-convert-string (string split-re invalid-re dot keep-fp |
| 2171 | nwords maxchar illegal abbrev sep | 2172 | nwords maxchar invalid abbrev sep |
| 2172 | ignore-words &optional downcase) | 2173 | ignore-words &optional downcase) |
| 2173 | "Convert a string (a sentence) to something shorter. | 2174 | "Convert a string (a sentence) to something shorter. |
| 2174 | SPLIT-RE is the regular expression used to split the string into words. | 2175 | SPLIT-RE is the regular expression used to split the string into words. |
| 2175 | ILLEGAL-RE matches characters which are illegal in the final string. | 2176 | INVALID-RE matches characters which are invalid in the final string. |
| 2176 | DOT t means add dots to abbreviated words. | 2177 | DOT t means add dots to abbreviated words. |
| 2177 | KEEP-FP t means to keep a final punctuation when applicable. | 2178 | KEEP-FP t means to keep a final punctuation when applicable. |
| 2178 | NWORDS Number of words to use. | 2179 | NWORDS Number of words to use. |
| 2179 | MAXCHAR Maximum number of characters in the final string. | 2180 | MAXCHAR Maximum number of characters in the final string. |
| 2180 | ILLEGAL nil: Throw away any words containing stuff matched with ILLEGAL-RE. | 2181 | INVALID nil: Throw away any words containing stuff matched with INVALID-RE. |
| 2181 | t: Throw away only the matched part, not the whole word. | 2182 | t: Throw away only the matched part, not the whole word. |
| 2182 | ABBREV nil: Never abbreviate words. | 2183 | ABBREV nil: Never abbreviate words. |
| 2183 | t: Always abbreviate words (see `reftex-abbrev-parameters'). | 2184 | t: Always abbreviate words (see `reftex-abbrev-parameters'). |
| @@ -2187,7 +2188,7 @@ SEP String separating different words in the output string. | |||
| 2187 | IGNORE-WORDS List of words which should be removed from the string." | 2188 | IGNORE-WORDS List of words which should be removed from the string." |
| 2188 | 2189 | ||
| 2189 | (let* ((words0 (split-string string (or split-re "[ \t\n\r]"))) | 2190 | (let* ((words0 (split-string string (or split-re "[ \t\n\r]"))) |
| 2190 | (reftex-label-illegal-re (or illegal-re "\000")) | 2191 | (reftex-label-illegal-re (or invalid-re "\000")) |
| 2191 | (abbrev-re (concat | 2192 | (abbrev-re (concat |
| 2192 | "\\`\\(" | 2193 | "\\`\\(" |
| 2193 | (make-string (nth 0 reftex-abbrev-parameters) ?.) | 2194 | (make-string (nth 0 reftex-abbrev-parameters) ?.) |
| @@ -2203,7 +2204,7 @@ IGNORE-WORDS List of words which should be removed from the string." | |||
| 2203 | (cond | 2204 | (cond |
| 2204 | ((member (downcase word) ignore-words)) | 2205 | ((member (downcase word) ignore-words)) |
| 2205 | ((string-match reftex-label-illegal-re word) | 2206 | ((string-match reftex-label-illegal-re word) |
| 2206 | (when illegal | 2207 | (when invalid |
| 2207 | (while (string-match reftex-label-illegal-re word) | 2208 | (while (string-match reftex-label-illegal-re word) |
| 2208 | (setq word (replace-match "" nil nil word))) | 2209 | (setq word (replace-match "" nil nil word))) |
| 2209 | (push word words))) | 2210 | (push word words))) |