Handle initial comments.

2 files changed, 22 insertions, 16 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f39510089..ad3f129726f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
         * printing.el (pr-update-menus): Modify interactive declaration.
         Reported by Drew Adams <drew.adams@oracle.com>.
 
+        * progmodes/ebnf-abn.el (ebnf-abn-parser): Handle initial comments.
+
 2004-03-28  Nick Roberts  <nick@nick.uklinux.net>
 
         * progmodes/gdb-ui.el (gdb-ann3, gdb-send-item)
@@ -945,12 +947,12 @@
 
 2004-02-28  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
-        * ebnf-abn.el: Doc fix.
+        * progmodes/ebnf-abn.el: Doc fix.
 
-        * ebnf-bnf.el: Doc fix.
+        * progmodes/ebnf-bnf.el: Doc fix.
         (ebnf-repeat): Code fix.
 
-        * ebnf2ps.el: Doc fix.
+        * progmodes/ebnf2ps.el: Doc fix.
         (ebnf-syntax-directory, ebnf-syntax-file): New funs.
 
 2004-02-28  Juri Linkov  <juri@jurta.org>
@@ -1016,8 +1018,8 @@
 
 2004-02-25  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
-        * ebnf2ps.el: Doc fix.  For compatibility with Emacs 20, define
-        assq-delete-all if it's not defined.
+        * progmodes/ebnf2ps.el: Doc fix.  For compatibility with Emacs 20,
+        define assq-delete-all if it's not defined.
         (ebnf-generate-region): Code fix.
 
         * printing.el: Doc fix.
@@ -1026,12 +1028,13 @@
 
 2004-02-24  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
-        * ebnf-abn.el: New file, implements an ABNF parser.
+        * progmodes/ebnf-abn.el: New file, implements an ABNF parser.
 
-        * ebnf2ps.el: Doc fix.  Accept ABNF (Augmented BNF).  New arrow shapes:
-        semi-up-hollow, semi-up-full, semi-down-hollow and semi-down-full.
-        Fix a bug on productions like test = {"test"}* | ( "tt" ["test"] ).
-        Reported by Markus Dreyer <mdreyer@ix.urz.uni-heidelberg.de>.
+        * progmodes/ebnf2ps.el: Doc fix.  Accept ABNF (Augmented BNF).  New
+        arrow shapes: semi-up-hollow, semi-up-full, semi-down-hollow and
+        semi-down-full.  Fix a bug on productions like test = {"test"}* | (
+        "tt" ["test"] ).  Reported by Markus Dreyer
+        <mdreyer@ix.urz.uni-heidelberg.de>.
         (ebnf-version): New version number (4.0).
         (ebnf-print-directory, ebnf-print-file, ebnf-spool-directory)
         (ebnf-spool-file, ebnf-eps-directory, ebnf-eps-file)
@@ -1051,18 +1054,19 @@
         (ebnf-make-terminal1, ebnf-make-or-more1, ebnf-make-repeat)
         (ebnf-token-repeat): Code fix.
 
-        * ebnf-yac.el: Doc fix.  Handle Bison pragmas %nonassoc, %right, %left
-        and %prec.  Suggested by Matthew K. Junker <junker@alum.mit.edu>.
+        * progmodes/ebnf-yac.el: Doc fix.  Handle Bison pragmas %nonassoc,
+        %right, %left and %prec.  Suggested by Matthew K. Junker
+        <junker@alum.mit.edu>.
         (ebnf-yac-definitions, ebnf-yac-lex): Code fix.
 
-        * ebnf-iso.el: Doc fix.
+        * progmodes/ebnf-iso.el: Doc fix.
         (ebnf-iso-token-table, ebnf-iso-non-terminal-chars): Adjust vars.
         (ebnf-iso-lex): Code fix.
 
-        * ebnf-bnf.el: Doc fix.
+        * progmodes/ebnf-bnf.el: Doc fix.
         (ebnf-bnf-lex): Code fix.
 
-        * ebnf-otz.el: Doc fix.
+        * progmodes/ebnf-otz.el: Doc fix.
 
 2004-02-23  Luc Teirlinck  <teirllm@auburn.edu>
 
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el
index 9c341c5181c..e41d27d0c1f 100644
--- a/lisp/progmodes/ebnf-abn.el
+++ b/lisp/progmodes/ebnf-abn.el
@@ -4,7 +4,7 @@
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/02/28 17:40:41 vinicius>
+;; Time-stamp: <2004/03/18 23:49:58 vinicius>
 ;; Keywords: wp, ebnf, PostScript
 ;; Version: 1.0
 
@@ -233,6 +233,8 @@
     (setq token (ebnf-abn-lex))
     (and (eq token 'end-of-input)
          (error "Invalid ABNF file format"))
+    (and (eq token 'end-of-rule)
+         (setq token (ebnf-abn-lex)))
     (while (not (eq token 'end-of-input))
       (ebnf-message-float
        "Parsing...%s%%"