progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el,
progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with
`invalid'.
+ * 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'.
2005-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
;; org.el --- Outline-based notes management and organizer
;; Carstens outline-mode for keeping track of everything.
-;; Copyright (c) 2003, 2004 Free Software Foundation
+;; Copyright (c) 2003, 2004, 2005 Free Software Foundation
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar
(setq new (1- current)))
((eq action 'down)
(setq new (1+ current)))
- (t (error "Illegal ection")))
+ (t (error "Invalid action")))
(setq new (min (max ?A (upcase new)) org-lowest-priority))
(setq news (format "%c" new))
(if have
(string-to-int (match-string 1 form))
n0)
x (nth n fields))
- (unless x (error "Illegal field specifier \"%s\""
+ (unless x (error "Invalid field specifier \"%s\""
(match-string 0 form)))
(if (equal (string-to-number x) 0) (setq x "0"))
(setq form (replace-match x t t form)))
(setq ev (calc-eval (list form) 'num))
(if (listp ev)
- (error "Illegal expression: %s (%s at %d)" form (nth 1 ev) (car ev)))
+ (error "Invalid expression: %s (%s at %d)" form (nth 1 ev) (car ev)))
(org-table-blank-field)
(if fmt
(insert (format fmt (string-to-number ev)))
;;; refbib.el --- convert refer-style references to ones usable by Latex bib
-;; Copyright (C) 1989 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 2005 Free Software Foundation, Inc.
;; Author: Henry Kautz <kautz@research.att.com>
;; Keywords: bib, tex
;; 9/88, created H.Kautz
;; modified 1/19/89, allow books with editor but no author;
;; added %O ordering field;
-;; appended illegal multiple fields, instead of
+;; appended invalid multiple fields, instead of
;; discarding;
;; added rule, a tech report whose %R number
;; contains "ISBN" is really a book
(setq val item)
(if unique
(progn
- (r2b-warning "*Illegal multiple field %s %s" field item)
+ (r2b-warning "*Invalid multiple field %s %s" field item)
(setq val (concat val "\n" item))
)
(setq val (concat val "\n\t\tand " item))
;;; refer.el --- look up references in bibliography files
-;; Copyright (C) 1992, 1996, 2001, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1996, 2001, 2004, 2005 Free Software Foundation, Inc.
;; Author: Ashwin Ram <ashwin@cc.gatech.edu>
;; Maintainer: Gernot Heiser <gernot@acm.org>
(eq refer-bib-directory 'bibinputs)))
(refer-expand-files refer-bib-files dir-list))
((listp refer-bib-files) refer-bib-files)
- (t (error "Illegal value for refer-bib-files: %s"
+ (t (error "Invalid value for refer-bib-files: %s"
refer-bib-files)))))
(if (or (eq refer-bib-directory 'texinputs)
(eq refer-bib-directory 'bibinputs))
;;; reftex-cite.el --- creating citations with RefTeX
-;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
(if (and reftex-comment-citations
(string-match "%l" reftex-cite-comment-format))
- (error "reftex-cite-comment-format contains illegal %%l"))
+ (error "reftex-cite-comment-format contains invalid %%l"))
(while (string-match
"\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)"
;;; reftex-index.el --- index support with RefTeX
-;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
(error "Not changed"))
((string= npart "")
(if dont-allow-empty
- (error "Illegal value")
+ (error "Invalid value")
(setf (nth n analyze) npart)))
(t (setf (nth n analyze) (concat initial npart))))
(setq new (apply 'concat analyze))
(file-regular-p reftex-index-phrases-restrict-file))
(list reftex-index-phrases-restrict-file))
((stringp reftex-index-phrases-restrict-file)
- (error "Illegal restriction file %s"
+ (error "Invalid restriction file %s"
reftex-index-phrases-restrict-file))
(t reftex-index-phrases-files)))
(as-words reftex-index-phrases-search-whole-words))
;;; reftex-parse.el --- parser functions for RefTeX
-;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
(funcall parse env)
(error (format "HOOK ERROR: %s" (cdr error-var))))))
(t
- "ILLEGAL VALUE OF PARSE"))))
+ "INVALID VALUE OF PARSE"))))
(defun reftex-where-am-I ()
;; Return the docstruct entry above point. Actually returns a cons
;;; reftex-ref.el --- code to create labels and references with RefTeX
-;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
(nth 2 (reftex-label-info " " nil nil t))))
;; Catch the cases where the is actually no context available.
(if (or (string-match "NO MATCH FOR CONTEXT REGEXP" default)
- (string-match "ILLEGAL VALUE OF PARSE" default)
+ (string-match "INVALID VALUE OF PARSE" default)
(string-match "SECTION HEADING NOT FOUND" default)
(string-match "HOOK ERROR" default)
(string-match "^[ \t]*$" default))
;; Test if label contains strange characters
((string-match reftex-label-illegal-re label)
- (message "Label \"%s\" contains illegal characters" label)
+ (message "Label \"%s\" contains invalid characters" label)
(ding)
(sit-for 2))
;;; reftex-vars.el --- configuration variables for RefTeX
-;; Copyright (c) 1997, 1998, 1999, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
NWORDS Number of words to use.
MAXCHAR Maximum number of characters in a label string.
-ILLEGAL nil: Throw away any words containing characters illegal in labels.
- t: Throw away only the illegal characters, not the whole word.
+INVALID nil: Throw away any words containing characters invalid in labels.
+ t: Throw away only the invalid characters, not the whole word.
ABBREV nil: Never abbreviate words.
t: Always abbreviate words (see `reftex-abbrev-parameters').
not t and not nil: Abbreviate words if necessary to shorten
:group 'reftex-making-and-inserting-labels
:type '(list (integer :tag "Number of words " 3)
(integer :tag "Maximum label length " 20)
- (choice :tag "Illegal characters in words"
+ (choice :tag "Invalid characters in words"
(const :tag "throw away entire word" nil)
(const :tag "throw away single chars" t))
(choice :tag "Abbreviate words "
(option (boolean :tag "Downcase words "))))
(defcustom reftex-label-illegal-re "[^-a-zA-Z0-9_+=:;,.]"
- "Regexp matching characters not legal in labels."
+ "Regexp matching characters not valid in labels."
:group 'reftex-making-and-inserting-labels
:type '(regexp :tag "Regular Expression"))
;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
-;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.26
((= key ?\C-i)
(setq prefix (completing-read "Prefix: " xr-alist nil t))
(- len (length (memq (assoc prefix xr-alist) xr-alist))))
- (t (error "Illegal document selection [%c]" key)))))))))
+ (t (error "Invalid document selection [%c]" key)))))))))
;;; =========================================================================
;;;
(reftex-convert-string string "[-~ \t\n\r,;]" nil t t
5 40 nil 1 " " (nth 5 reftex-derive-label-parameters)))
-(defun reftex-convert-string (string split-re illegal-re dot keep-fp
- nwords maxchar illegal abbrev sep
+(defun reftex-convert-string (string split-re invalid-re dot keep-fp
+ nwords maxchar invalid abbrev sep
ignore-words &optional downcase)
"Convert a string (a sentence) to something shorter.
SPLIT-RE is the regular expression used to split the string into words.
-ILLEGAL-RE matches characters which are illegal in the final string.
+INVALID-RE matches characters which are invalid in the final string.
DOT t means add dots to abbreviated words.
KEEP-FP t means to keep a final punctuation when applicable.
NWORDS Number of words to use.
MAXCHAR Maximum number of characters in the final string.
-ILLEGAL nil: Throw away any words containing stuff matched with ILLEGAL-RE.
+INVALID nil: Throw away any words containing stuff matched with INVALID-RE.
t: Throw away only the matched part, not the whole word.
ABBREV nil: Never abbreviate words.
t: Always abbreviate words (see `reftex-abbrev-parameters').
IGNORE-WORDS List of words which should be removed from the string."
(let* ((words0 (split-string string (or split-re "[ \t\n\r]")))
- (reftex-label-illegal-re (or illegal-re "\000"))
+ (reftex-label-illegal-re (or invalid-re "\000"))
(abbrev-re (concat
"\\`\\("
(make-string (nth 0 reftex-abbrev-parameters) ?.)
(cond
((member (downcase word) ignore-words))
((string-match reftex-label-illegal-re word)
- (when illegal
+ (when invalid
(while (string-match reftex-label-illegal-re word)
(setq word (replace-match "" nil nil word)))
(push word words)))
HCoop / bpt / emacs.git / commitdiff