Fix character range regexp. Doc fix.

(ebnf-yac-skip-chars): New internal const.
(ebnf-yac-skip-code): Fix code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c63ce9e6fe4d7614f799ff1599d491d72162a306..292066c4c6dd9e7332d00a505acdf0775c830a63 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2001-09-24  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
+
+       * ebnf2ps.el: Eliminate make-local-hook calls.  Doc fix.
+       (ebnf-version): New version (3.6.1).
+
+       * ebnf-bnf.el: Fix character range regexp.  Doc fix.
+       (ebnf-bnf-non-terminal-chars): New internal const.
+       (ebnf-bnf-lex): Fix code.
+
+       * ebnf-iso.el: Fix character range regexp.  Doc fix.
+       (ebnf-iso-non-terminal-chars): New internal const.
+       (ebnf-iso-lex): Fix code.
+
+       * ebnf-yac.el: Fix character range regexp.  Doc fix.
+       (ebnf-yac-skip-chars): New internal const.
+       (ebnf-yac-skip-code): Fix code.
+
 2001-09-24  Stefan Monnier  <monnier@cs.yale.edu>
 
        * pcvs-parse.el (cvs-parse-commit): Expand the file name before

diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index bff241a5e4952b53ab1ddbbdf6384246b09f2fb6..22984d58fb214ac72d12222e547eef8818087293 100644 (file)
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -5,8 +5,8 @@
 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2001/08/15 17:15:15 vinicius>
-;; Version: 1.1
+;; Time-stamp: <2001/09/24 10:17:13 vinicius>
+;; Version: 1.2
 
 ;; This file is part of GNU Emacs.
 
@@ -383,14 +383,16 @@ See documentation for variable `ebnf-yac-lex'."
   (< (point) ebnf-limit))
 
 
+;; replace the range "\177-\377" (see `ebnf-range-regexp').
+(defconst ebnf-yac-skip-chars
+  (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037" ?\177 ?\377))
+
+
 (defun ebnf-yac-skip-code ()
   (forward-char)
   (let ((pair 1))
     (while (> pair 0)
-      ;; replace the range "\177-\377" (see `ebnf-range-regexp').
-      (skip-chars-forward (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037"
-                                            ?\177 ?\377)
-                         ebnf-limit)
+      (skip-chars-forward ebnf-yac-skip-chars ebnf-limit)
       (cond
        ((= (following-char) ?{)
        (forward-char)