comparison lisp/progmodes/ebnf-dtd.el @ 60917:87f9bb9d3718

* 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'.

60916:480134f8cd16

;;; ebnf-dtd.el --- parser for DTD (Data Type Description for XML)

;; Copyright (C) 2004 Free Sofware Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2004/04/04 21:50:16 vinicius>
;; Keywords: wp, ebnf, PostScript

       ;; end of input
       ((>= (point) ebnf-limit)
	'end-of-input)
       ;; error
       ((eq token 'error)
	(error "Illegal character"))
       ;; beginning of declaration:
       ;; <?name, <!ATTLIST, <!DOCTYPE, <!ELEMENT, <!ENTITY, <!NOTATION
       ((eq token 'less-than)
	(forward-char)
	(let ((char (following-char)))

	 nil)
	((looking-at "-->")
	 (forward-char 3)
	 t)
	(t
	 (error "Illegal character"))
	))


(defun ebnf-dtd-eps-filename ()
  (forward-char)

60917:87f9bb9d3718

;;; ebnf-dtd.el --- parser for DTD (Data Type Description for XML)

;; Copyright (C) 2004, 2005 Free Sofware Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2004/04/04 21:50:16 vinicius>
;; Keywords: wp, ebnf, PostScript

       ;; end of input
       ((>= (point) ebnf-limit)
	'end-of-input)
       ;; error
       ((eq token 'error)
	(error "Invalid character"))
       ;; beginning of declaration:
       ;; <?name, <!ATTLIST, <!DOCTYPE, <!ELEMENT, <!ENTITY, <!NOTATION
       ((eq token 'less-than)
	(forward-char)
	(let ((char (following-char)))

	 nil)
	((looking-at "-->")
	 (forward-char 3)
	 t)
	(t
	 (error "Invalid character"))
	))


(defun ebnf-dtd-eps-filename ()
  (forward-char)