From 1475cbb3d253db904e8ec7577ab187e54703da83 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 19 Sep 2001 08:54:32 +0000 Subject: [PATCH] Doc fix. (ebnf-bnf-lex): Fix regexp for non-terminal and terminal tokens. --- lisp/progmodes/ebnf-bnf.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el index 1b748b3b9c3..acac3a591b4 100644 --- a/lisp/progmodes/ebnf-bnf.el +++ b/lisp/progmodes/ebnf-bnf.el @@ -1,12 +1,12 @@ ;;; ebnf-bnf.el --- parser for EBNF -;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation, Inc. -;; Author: Vinicius Jose Latorre +;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre -;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2001-07-15 01:02:12 pavel> -;; Version: 1.5 +;; Keywords: wp, ebnf, PostScript +;; Time-stamp: <2001/09/18 21:03:57 vinicius> +;; Version: 1.6 ;; This file is part of GNU Emacs. @@ -94,7 +94,7 @@ ;; | "{" body [ "||" body ] "}" ;; zero-or-more ;; . ;; -;; non_terminal = "[A-Za-z\\240-\\377][!#%&'*-,0-:<>@-Z\\^-z~\\240-\\377]*". +;; non_terminal = "[!#%&'*-,0-:<>@-Z\\\\^-z~\\240-\\377]+". ;; ;; terminal = "\\([^\"\\]\\|\\\\[ -~\\240-\\377]\\)+". ;; @@ -469,7 +469,7 @@ See documentation for variable `ebnf-bnf-lex'." ((eq token 'non-terminal) ;; replace the range "\240-\377" (see `ebnf-range-regexp'). (setq ebnf-bnf-lex (ebnf-buffer-substring - (ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\^-z~" + (ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\\\^-z~" ?\240 ?\377))) (let ((case-fold-search ebnf-case-fold-search) match) -- 2.39.2