[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf-iso.el

[Werner LEMBERG]

Index: emacs/lisp/progmodes/ebnf-iso.el
diff -c emacs/lisp/progmodes/ebnf-iso.el:1.12 
emacs/lisp/progmodes/ebnf-iso.el:1.13
*** emacs/lisp/progmodes/ebnf-iso.el:1.12       Mon Apr  5 01:53:52 2004
--- emacs/lisp/progmodes/ebnf-iso.el    Fri Mar 25 08:47:00 2005
***************
*** 1,6 ****
  ;;; ebnf-iso.el --- parser for ISO EBNF
  
! ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
  ;; Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
--- 1,6 ----
  ;;; ebnf-iso.el --- parser for ISO EBNF
  
! ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;; Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
***************
*** 112,118 ****
  ;;
  ;; 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
  ;; european 8-bit accentuated characters (from \240 to \377) and underscore
  ;; (_).
  ;;
--- 112,118 ----
  ;;
  ;; 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 invalid.  But ebnf2ps accepts also the
  ;; european 8-bit accentuated characters (from \240 to \377) and underscore
  ;; (_).
  ;;
***************
*** 427,433 ****
        'end-of-input)
         ;; error
         ((eq token 'error)
!       (error "Illegal character"))
         ;; integer
         ((eq token 'integer)
        (setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
--- 427,433 ----
        'end-of-input)
         ;; error
         ((eq token 'error)
!       (error "Invalid character"))
         ;; integer
         ((eq token 'integer)
        (setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
***************
*** 527,533 ****
               (forward-char)
               (setq pair (1+ pair))))
            (t
!            (error "Illegal character"))
            ))))
  
  
--- 527,533 ----
               (forward-char)
               (setq pair (1+ pair))))
            (t
!            (error "Invalid character"))
            ))))