From a1548b10da9be0103706e2c2304689f4b4c59c87 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 24 Sep 2001 17:43:45 +0000 Subject: [PATCH] Fix character range regexp. Doc fix. (ebnf-yac-skip-chars): New internal const. (ebnf-yac-skip-code): Fix code. --- lisp/ChangeLog | 17 +++++++++++++++++ lisp/progmodes/ebnf-yac.el | 14 ++++++++------ 2 files changed, 25 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c63ce9e6fe4..292066c4c6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +2001-09-24 Vinicius Jose Latorre + + * 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 * 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 bff241a5e49..22984d58fb2 100644 --- a/lisp/progmodes/ebnf-yac.el +++ b/lisp/progmodes/ebnf-yac.el @@ -5,8 +5,8 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; 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) -- 2.39.2