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 | |
| 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')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/org.el | 8 | ||||
| -rw-r--r-- | lisp/textmodes/refbib.el | 6 | ||||
| -rw-r--r-- | lisp/textmodes/refer.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-cite.el | 5 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-index.el | 7 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-parse.el | 5 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-ref.el | 7 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-vars.el | 11 | ||||
| -rw-r--r-- | lisp/textmodes/reftex.el | 17 |
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 | ||
| 17 | 2005-03-24 Stefan Monnier <monnier@iro.umontreal.ca> | 22 | 2005-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 | ||
| 812 | NWORDS Number of words to use. | 813 | NWORDS Number of words to use. |
| 813 | MAXCHAR Maximum number of characters in a label string. | 814 | MAXCHAR Maximum number of characters in a label string. |
| 814 | ILLEGAL nil: Throw away any words containing characters illegal in labels. | 815 | INVALID 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. |
| 816 | ABBREV nil: Never abbreviate words. | 817 | ABBREV 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. |
| 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))) |