aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
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
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')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/org.el8
-rw-r--r--lisp/textmodes/refbib.el6
-rw-r--r--lisp/textmodes/refer.el4
-rw-r--r--lisp/textmodes/reftex-cite.el5
-rw-r--r--lisp/textmodes/reftex-index.el7
-rw-r--r--lisp/textmodes/reftex-parse.el5
-rw-r--r--lisp/textmodes/reftex-ref.el7
-rw-r--r--lisp/textmodes/reftex-vars.el11
-rw-r--r--lisp/textmodes/reftex.el17
10 files changed, 43 insertions, 32 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0739e8a0e00..ac66214242e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -13,6 +13,11 @@
13 progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el, 13 progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el,
14 progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with 14 progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with
15 `invalid'. 15 `invalid'.
16 * textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el,
17 textmodes/reftex-index.el, textmodes/reftex-parse.el,
18 textmodes/reftex-ref.el, textmodes/reftex-vars.el,
19 textmodes/reftex.el, textmodes/org.el: Replace `illegal' with
20 `invalid'.
16 21
172005-03-24 Stefan Monnier <monnier@iro.umontreal.ca> 222005-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
18 23
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 1ff21ea1ce0..ab45434526a 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -1,6 +1,6 @@
1;; org.el --- Outline-based notes management and organizer 1;; org.el --- Outline-based notes management and organizer
2;; Carstens outline-mode for keeping track of everything. 2;; Carstens outline-mode for keeping track of everything.
3;; Copyright (c) 2003, 2004 Free Software Foundation 3;; Copyright (c) 2003, 2004, 2005 Free Software Foundation
4 4
5;; Author: Carsten Dominik <dominik at science dot uva dot nl> 5;; Author: Carsten Dominik <dominik at science dot uva dot nl>
6;; Keywords: outlines, hypermedia, calendar 6;; Keywords: outlines, hypermedia, calendar
@@ -2380,7 +2380,7 @@ ACTION can be set, up, or down."
2380 (setq new (1- current))) 2380 (setq new (1- current)))
2381 ((eq action 'down) 2381 ((eq action 'down)
2382 (setq new (1+ current))) 2382 (setq new (1+ current)))
2383 (t (error "Illegal ection"))) 2383 (t (error "Invalid action")))
2384 (setq new (min (max ?A (upcase new)) org-lowest-priority)) 2384 (setq new (min (max ?A (upcase new)) org-lowest-priority))
2385 (setq news (format "%c" new)) 2385 (setq news (format "%c" new))
2386 (if have 2386 (if have
@@ -5902,13 +5902,13 @@ separator line)."
5902 (string-to-int (match-string 1 form)) 5902 (string-to-int (match-string 1 form))
5903 n0) 5903 n0)
5904 x (nth n fields)) 5904 x (nth n fields))
5905 (unless x (error "Illegal field specifier \"%s\"" 5905 (unless x (error "Invalid field specifier \"%s\""
5906 (match-string 0 form))) 5906 (match-string 0 form)))
5907 (if (equal (string-to-number x) 0) (setq x "0")) 5907 (if (equal (string-to-number x) 0) (setq x "0"))
5908 (setq form (replace-match x t t form))) 5908 (setq form (replace-match x t t form)))
5909 (setq ev (calc-eval (list form) 'num)) 5909 (setq ev (calc-eval (list form) 'num))
5910 (if (listp ev) 5910 (if (listp ev)
5911 (error "Illegal expression: %s (%s at %d)" form (nth 1 ev) (car ev))) 5911 (error "Invalid expression: %s (%s at %d)" form (nth 1 ev) (car ev)))
5912 (org-table-blank-field) 5912 (org-table-blank-field)
5913 (if fmt 5913 (if fmt
5914 (insert (format fmt (string-to-number ev))) 5914 (insert (format fmt (string-to-number ev)))
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index 5c9e6c1c6dc..dedad3b1aa9 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -1,6 +1,6 @@
1;;; refbib.el --- convert refer-style references to ones usable by Latex bib 1;;; refbib.el --- convert refer-style references to ones usable by Latex bib
2 2
3;; Copyright (C) 1989 Free Software Foundation, Inc. 3;; Copyright (C) 1989, 2005 Free Software Foundation, Inc.
4 4
5;; Author: Henry Kautz <kautz@research.att.com> 5;; Author: Henry Kautz <kautz@research.att.com>
6;; Keywords: bib, tex 6;; Keywords: bib, tex
@@ -35,7 +35,7 @@
35;; 9/88, created H.Kautz 35;; 9/88, created H.Kautz
36;; modified 1/19/89, allow books with editor but no author; 36;; modified 1/19/89, allow books with editor but no author;
37;; added %O ordering field; 37;; added %O ordering field;
38;; appended illegal multiple fields, instead of 38;; appended invalid multiple fields, instead of
39;; discarding; 39;; discarding;
40;; added rule, a tech report whose %R number 40;; added rule, a tech report whose %R number
41;; contains "ISBN" is really a book 41;; contains "ISBN" is really a book
@@ -292,7 +292,7 @@ title if CAPITALIZE is true. Returns value of VAR."
292 (setq val item) 292 (setq val item)
293 (if unique 293 (if unique
294 (progn 294 (progn
295 (r2b-warning "*Illegal multiple field %s %s" field item) 295 (r2b-warning "*Invalid multiple field %s %s" field item)
296 (setq val (concat val "\n" item)) 296 (setq val (concat val "\n" item))
297 ) 297 )
298 (setq val (concat val "\n\t\tand " item)) 298 (setq val (concat val "\n\t\tand " item))
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el
index 1c77a8f4b36..2e26e2d3da6 100644
--- a/lisp/textmodes/refer.el
+++ b/lisp/textmodes/refer.el
@@ -1,6 +1,6 @@
1;;; refer.el --- look up references in bibliography files 1;;; refer.el --- look up references in bibliography files
2 2
3;; Copyright (C) 1992, 1996, 2001, 2004 Free Software Foundation, Inc. 3;; Copyright (C) 1992, 1996, 2001, 2004, 2005 Free Software Foundation, Inc.
4 4
5;; Author: Ashwin Ram <ashwin@cc.gatech.edu> 5;; Author: Ashwin Ram <ashwin@cc.gatech.edu>
6;; Maintainer: Gernot Heiser <gernot@acm.org> 6;; Maintainer: Gernot Heiser <gernot@acm.org>
@@ -388,7 +388,7 @@ found on the last refer-find-entry or refer-find-next-entry."
388 (eq refer-bib-directory 'bibinputs))) 388 (eq refer-bib-directory 'bibinputs)))
389 (refer-expand-files refer-bib-files dir-list)) 389 (refer-expand-files refer-bib-files dir-list))
390 ((listp refer-bib-files) refer-bib-files) 390 ((listp refer-bib-files) refer-bib-files)
391 (t (error "Illegal value for refer-bib-files: %s" 391 (t (error "Invalid value for refer-bib-files: %s"
392 refer-bib-files))))) 392 refer-bib-files)))))
393 (if (or (eq refer-bib-directory 'texinputs) 393 (if (or (eq refer-bib-directory 'texinputs)
394 (eq refer-bib-directory 'bibinputs)) 394 (eq refer-bib-directory 'bibinputs))
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el
index bfe2cd8282b..f12d01716fe 100644
--- a/lisp/textmodes/reftex-cite.el
+++ b/lisp/textmodes/reftex-cite.el
@@ -1,5 +1,6 @@
1;;; reftex-cite.el --- creating citations with RefTeX 1;;; reftex-cite.el --- creating citations with RefTeX
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
@@ -982,7 +983,7 @@ While entering the regexp, completion on knows citation keys is possible.
982 983
983 (if (and reftex-comment-citations 984 (if (and reftex-comment-citations
984 (string-match "%l" reftex-cite-comment-format)) 985 (string-match "%l" reftex-cite-comment-format))
985 (error "reftex-cite-comment-format contains illegal %%l")) 986 (error "reftex-cite-comment-format contains invalid %%l"))
986 987
987 (while (string-match 988 (while (string-match
988 "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)" 989 "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)"
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index cb02f2e056f..8fada9c4930 100644
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -1,5 +1,6 @@
1;;; reftex-index.el --- index support with RefTeX 1;;; reftex-index.el --- index support with RefTeX
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
@@ -928,7 +929,7 @@ When index is restricted, select the previous section as restriction criterion."
928 (error "Not changed")) 929 (error "Not changed"))
929 ((string= npart "") 930 ((string= npart "")
930 (if dont-allow-empty 931 (if dont-allow-empty
931 (error "Illegal value") 932 (error "Invalid value")
932 (setf (nth n analyze) npart))) 933 (setf (nth n analyze) npart)))
933 (t (setf (nth n analyze) (concat initial npart)))) 934 (t (setf (nth n analyze) (concat initial npart))))
934 (setq new (apply 'concat analyze)) 935 (setq new (apply 'concat analyze))
@@ -1385,7 +1386,7 @@ match, the user will be asked to confirm the replacement."
1385 (file-regular-p reftex-index-phrases-restrict-file)) 1386 (file-regular-p reftex-index-phrases-restrict-file))
1386 (list reftex-index-phrases-restrict-file)) 1387 (list reftex-index-phrases-restrict-file))
1387 ((stringp reftex-index-phrases-restrict-file) 1388 ((stringp reftex-index-phrases-restrict-file)
1388 (error "Illegal restriction file %s" 1389 (error "Invalid restriction file %s"
1389 reftex-index-phrases-restrict-file)) 1390 reftex-index-phrases-restrict-file))
1390 (t reftex-index-phrases-files))) 1391 (t reftex-index-phrases-files)))
1391 (as-words reftex-index-phrases-search-whole-words)) 1392 (as-words reftex-index-phrases-search-whole-words))
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el
index 630c7101725..ce1e3d77d72 100644
--- a/lisp/textmodes/reftex-parse.el
+++ b/lisp/textmodes/reftex-parse.el
@@ -1,5 +1,6 @@
1;;; reftex-parse.el --- parser functions for RefTeX 1;;; reftex-parse.el --- parser functions for RefTeX
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
@@ -544,7 +545,7 @@ of master file."
544 (funcall parse env) 545 (funcall parse env)
545 (error (format "HOOK ERROR: %s" (cdr error-var)))))) 546 (error (format "HOOK ERROR: %s" (cdr error-var))))))
546 (t 547 (t
547 "ILLEGAL VALUE OF PARSE")))) 548 "INVALID VALUE OF PARSE"))))
548 549
549(defun reftex-where-am-I () 550(defun reftex-where-am-I ()
550 ;; Return the docstruct entry above point. Actually returns a cons 551 ;; Return the docstruct entry above point. Actually returns a cons
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index 43095e2d684..6afbb77767c 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -1,5 +1,6 @@
1;;; reftex-ref.el --- code to create labels and references with RefTeX 1;;; reftex-ref.el --- code to create labels and references with RefTeX
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
@@ -172,7 +173,7 @@ This function is controlled by the settings of reftex-insert-label-flags."
172 (nth 2 (reftex-label-info " " nil nil t)))) 173 (nth 2 (reftex-label-info " " nil nil t))))
173 ;; Catch the cases where the is actually no context available. 174 ;; Catch the cases where the is actually no context available.
174 (if (or (string-match "NO MATCH FOR CONTEXT REGEXP" default) 175 (if (or (string-match "NO MATCH FOR CONTEXT REGEXP" default)
175 (string-match "ILLEGAL VALUE OF PARSE" default) 176 (string-match "INVALID VALUE OF PARSE" default)
176 (string-match "SECTION HEADING NOT FOUND" default) 177 (string-match "SECTION HEADING NOT FOUND" default)
177 (string-match "HOOK ERROR" default) 178 (string-match "HOOK ERROR" default)
178 (string-match "^[ \t]*$" default)) 179 (string-match "^[ \t]*$" default))
@@ -217,7 +218,7 @@ This function is controlled by the settings of reftex-insert-label-flags."
217 218
218 ;; Test if label contains strange characters 219 ;; Test if label contains strange characters
219 ((string-match reftex-label-illegal-re label) 220 ((string-match reftex-label-illegal-re label)
220 (message "Label \"%s\" contains illegal characters" label) 221 (message "Label \"%s\" contains invalid characters" label)
221 (ding) 222 (ding)
222 (sit-for 2)) 223 (sit-for 2))
223 224
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index a7c0cb1c1ad..4e770d88ecf 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -1,5 +1,6 @@
1;;; reftex-vars.el --- configuration variables for RefTeX 1;;; reftex-vars.el --- configuration variables for RefTeX
2;; Copyright (c) 1997, 1998, 1999, 2003, 2004 Free Software Foundation, Inc. 2;; Copyright (c) 1997, 1998, 1999, 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
@@ -811,8 +812,8 @@ This variable is a list of the following items.
811 812
812NWORDS Number of words to use. 813NWORDS Number of words to use.
813MAXCHAR Maximum number of characters in a label string. 814MAXCHAR Maximum number of characters in a label string.
814ILLEGAL nil: Throw away any words containing characters illegal in labels. 815INVALID nil: Throw away any words containing characters invalid in labels.
815 t: Throw away only the illegal characters, not the whole word. 816 t: Throw away only the invalid characters, not the whole word.
816ABBREV nil: Never abbreviate words. 817ABBREV nil: Never abbreviate words.
817 t: Always abbreviate words (see `reftex-abbrev-parameters'). 818 t: Always abbreviate words (see `reftex-abbrev-parameters').
818 not t and not nil: Abbreviate words if necessary to shorten 819 not t and not nil: Abbreviate words if necessary to shorten
@@ -823,7 +824,7 @@ DOWNCASE t: Downcase words before using them."
823 :group 'reftex-making-and-inserting-labels 824 :group 'reftex-making-and-inserting-labels
824 :type '(list (integer :tag "Number of words " 3) 825 :type '(list (integer :tag "Number of words " 3)
825 (integer :tag "Maximum label length " 20) 826 (integer :tag "Maximum label length " 20)
826 (choice :tag "Illegal characters in words" 827 (choice :tag "Invalid characters in words"
827 (const :tag "throw away entire word" nil) 828 (const :tag "throw away entire word" nil)
828 (const :tag "throw away single chars" t)) 829 (const :tag "throw away single chars" t))
829 (choice :tag "Abbreviate words " 830 (choice :tag "Abbreviate words "
@@ -837,7 +838,7 @@ DOWNCASE t: Downcase words before using them."
837 (option (boolean :tag "Downcase words ")))) 838 (option (boolean :tag "Downcase words "))))
838 839
839(defcustom reftex-label-illegal-re "[^-a-zA-Z0-9_+=:;,.]" 840(defcustom reftex-label-illegal-re "[^-a-zA-Z0-9_+=:;,.]"
840 "Regexp matching characters not legal in labels." 841 "Regexp matching characters not valid in labels."
841 :group 'reftex-making-and-inserting-labels 842 :group 'reftex-making-and-inserting-labels
842 :type '(regexp :tag "Regular Expression")) 843 :type '(regexp :tag "Regular Expression"))
843 844
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)))