mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

Doc fix.

Browse Source 
(ebnf-bnf-lex): Fix regexp for non-terminal and terminal tokens.
This commit is contained in:
Gerd Moellmann 2001-09-19 08:54:32 +00:00
parent 0b5ecd6d02
commit 1475cbb3d2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/ebnf-bnf.el
View File

@ -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 <vinicius@cpqd.com.br>
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; 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)