mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

* progmodes/ebnf-abn.el, progmodes/ebnf-bnf.el,

Browse Source 
progmodes/ebnf-ebx.el, progmodes/ebnf-dtd.el, progmodes/ebnf-iso.el,
progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el,
progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with
`invalid'.
This commit is contained in:
Werner LEMBERG 2005-03-25 08:47:00 +00:00
parent 9d03424549
commit eac9c0efd6
11 changed files with 35 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -8,6 +8,11 @@
* eshell/esh-io.el, eshell/esh-var.el: Replace `illegal' with
`invalid'.
* mail/supercite.el: Replace `illegal' with `invalid'.
* progmodes/ebnf-abn.el, progmodes/ebnf-bnf.el,
progmodes/ebnf-ebx.el, progmodes/ebnf-dtd.el, progmodes/ebnf-iso.el,
progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el,
progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with
`invalid'.
2005-03-24 Stefan Monnier <monnier@iro.umontreal.ca>

6
lisp/progmodes/ebnf-abn.el
View File

@ -1,6 +1,6 @@
;;; ebnf-abn.el --- parser for ABNF (Augmented BNF)
;; Copyright (C) 2004 Free Sofware Foundation, Inc.
;; Copyright (C) 2004, 2005 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -518,7 +518,7 @@ See documentation for variable `ebnf-abn-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; end of rule
((eq token 'end-of-rule)
'end-of-rule)
@ -600,7 +600,7 @@ See documentation for variable `ebnf-abn-lex'."
((= (following-char) ?\n)
t)
(t
(error "Illegal character"))
(error "Invalid character"))
))

8
lisp/progmodes/ebnf-bnf.el
View File

@ -1,6 +1,6 @@
;;; ebnf-bnf.el --- parser for EBNF
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -461,7 +461,7 @@ See documentation for variable `ebnf-bnf-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; default
((eq token 'default)
(forward-char)
@ -470,7 +470,7 @@ See documentation for variable `ebnf-bnf-lex'."
(prog1
(ebnf-bnf-lex)
(setq ebnf-default-p t))
(error "Illegal `default' element")))
(error "Invalid `default' element")))
;; integer
((eq token 'integer)
(setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
@ -550,7 +550,7 @@ See documentation for variable `ebnf-bnf-lex'."
(forward-char)
t)
(t
(error "Illegal character"))
(error "Invalid character"))
))

6
lisp/progmodes/ebnf-dtd.el
View File

@ -1,6 +1,6 @@
;;; ebnf-dtd.el --- parser for DTD (Data Type Description for XML)
;; Copyright (C) 2004 Free Sofware Foundation, Inc.
;; Copyright (C) 2004, 2005 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -1181,7 +1181,7 @@ See documentation for variable `ebnf-dtd-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; beginning of declaration:
;; <?name, <!ATTLIST, <!DOCTYPE, <!ELEMENT, <!ENTITY, <!NOTATION
((eq token 'less-than)
@ -1322,7 +1322,7 @@ See documentation for variable `ebnf-dtd-lex'."
(forward-char 3)
t)
(t
(error "Illegal character"))
(error "Invalid character"))
))

4
lisp/progmodes/ebnf-ebx.el
View File

@ -1,6 +1,6 @@
;;; ebnf-ebx.el --- parser for EBNF used to specify XML (EBNFX)
;; Copyright (C) 2004 Free Sofware Foundation, Inc.
;; Copyright (C) 2004, 2005 Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -453,7 +453,7 @@ See documentation for variable `ebnf-ebx-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; end of rule
((eq token 'end-of-rule)
'end-of-rule)

8
lisp/progmodes/ebnf-iso.el
View File

@ -1,6 +1,6 @@
;;; ebnf-iso.el --- parser for ISO EBNF
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -112,7 +112,7 @@
;;
;; ISO EBNF accepts the characters given by <character> production above,
;; HORIZONTAL TAB (^I), VERTICAL TAB (^K), NEWLINE (^J or ^M) and FORM FEED
;; (^L), any other characters are illegal. But ebnf2ps accepts also the
;; (^L), any other characters are invalid. But ebnf2ps accepts also the
;; european 8-bit accentuated characters (from \240 to \377) and underscore
;; (_).
;;
@ -427,7 +427,7 @@ See documentation for variable `ebnf-iso-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; integer
((eq token 'integer)
(setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
@ -527,7 +527,7 @@ See documentation for variable `ebnf-iso-lex'."
(forward-char)
(setq pair (1+ pair))))
(t
(error "Illegal character"))
(error "Invalid character"))
))))

8
lisp/progmodes/ebnf-yac.el
View File

@ -1,6 +1,6 @@
;;; ebnf-yac.el --- parser for Yacc/Bison
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Sofware Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -346,7 +346,7 @@ See documentation for variable `ebnf-yac-lex'."
'end-of-input)
;; error
((eq token 'error)
(error "Illegal character"))
(error "Invalid character"))
;; "string"
((eq token 'string)
(setq ebnf-yac-lex (ebnf-get-string))
@ -425,7 +425,7 @@ See documentation for variable `ebnf-yac-lex'."
((= (following-char) ?\')
(ebnf-string " -&(-~" ?\' "character"))
(t
(error "Illegal character"))
(error "Invalid character"))
)))
(ebnf-yac-skip-spaces))
@ -476,7 +476,7 @@ See documentation for variable `ebnf-yac-lex'."
(forward-char)
(setq not-end nil)))
(t
(error "Illegal character"))
(error "Invalid character"))
))))

4
lisp/progmodes/ebnf2ps.el
View File

@ -1,6 +1,6 @@
;;; ebnf2ps.el --- translate an EBNF to a syntactic chart on PostScript
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -5499,7 +5499,7 @@ killed after process termination."
;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
(skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
(if (or (eobp) (/= (following-char) eos-char))
(error "Illegal %s: missing `%c'" kind eos-char)
(error "Invalid %s: missing `%c'" kind eos-char)
(forward-char)
(1- (point))))))

7
lisp/progmodes/idlwave.el
View File

@ -1,5 +1,6 @@
;; idlwave.el --- IDL editing mode for GNU Emacs
;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation
;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation
;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
;; Carsten Dominik <dominik@science.uva.nl>
@ -5587,7 +5588,7 @@ other completions will be tried.")
(symbolp what)
(assoc (symbol-name what) what-list))
what)
(t (error "Illegal WHAT"))))
(t (error "Invalid WHAT"))))
(nil-list '(nil nil nil nil))
(class-list (list nil nil (or class t) nil)))
@ -5656,7 +5657,7 @@ other completions will be tried.")
((eq what 'class)
(list nil-list nil-list 'class nil-list nil))
(t (error "Illegal value for WHAT")))))
(t (error "Invalid value for WHAT")))))
(defun idlwave-completing-read (&rest args)
;; Completing read, case insensitive

2
lisp/progmodes/sh-script.el
View File

@ -2388,7 +2388,7 @@ Optional parameter DEPTH (usually 1) says how many to look for."
(defun sh-var-value (var &optional ignore-error)
"Return the value of variable VAR, interpreting symbols.
It can also return t or nil.
If an illegal value is found, throw an error unless Optional argument
If an invalid value is found, throw an error unless Optional argument
IGNORE-ERROR is non-nil."
(let ((val (symbol-value var)))
(cond

5
lisp/progmodes/xscheme.el
View File

@ -1,6 +1,7 @@
;;; xscheme.el --- run MIT Scheme under Emacs
;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2004 Free Software Foundation, Inc.
;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2004, 2005
;; Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: languages, lisp
@ -408,7 +409,7 @@ characters perform useful functions.
Commands:
\\{scheme-debugger-mode-map}"
(error "Illegal entry to scheme-debugger-mode"))
(error "Invalid entry to scheme-debugger-mode"))
(defun scheme-debugger-mode-initialize ()
(use-local-map scheme-debugger-mode-map)