aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes/reftex.el
diff options
context:
space:
mode:
authorWerner LEMBERG2005-03-25 09:03:24 +0000
committerWerner LEMBERG2005-03-25 09:03:24 +0000
commit5181ff9f3d68ae3e1fe260430c1924fafa5b77c6 (patch)
tree91ddc9b4328b8db85c163bdcae16138b4a9baacf /lisp/textmodes/reftex.el
parenteac9c0efd68cdd7a65439bb3958da1db56391bc9 (diff)
downloademacs-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.el17
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.
2174SPLIT-RE is the regular expression used to split the string into words. 2175SPLIT-RE is the regular expression used to split the string into words.
2175ILLEGAL-RE matches characters which are illegal in the final string. 2176INVALID-RE matches characters which are invalid in the final string.
2176DOT t means add dots to abbreviated words. 2177DOT t means add dots to abbreviated words.
2177KEEP-FP t means to keep a final punctuation when applicable. 2178KEEP-FP t means to keep a final punctuation when applicable.
2178NWORDS Number of words to use. 2179NWORDS Number of words to use.
2179MAXCHAR Maximum number of characters in the final string. 2180MAXCHAR Maximum number of characters in the final string.
2180ILLEGAL nil: Throw away any words containing stuff matched with ILLEGAL-RE. 2181INVALID 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.
2182ABBREV nil: Never abbreviate words. 2183ABBREV 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.
2187IGNORE-WORDS List of words which should be removed from the string." 2188IGNORE-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)))