procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix character range regexp. Doc fix.

Browse source 
(ebnf-iso-non-terminal-chars): New internal const.
(ebnf-iso-lex): Fix code.
This commit is contained in:
Gerd Moellmann 2001-09-24 17:42:00 +00:00
parent 40b35c64e1
commit 8a1e4eebeb
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/ebnf-iso.el
View file

@ -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:12:51 vinicius>
;; Version: 1.5
;; Time-stamp: <2001/09/24 10:17:20 vinicius>
;; Version: 1.6
;; This file is part of GNU Emacs.
@ -387,6 +387,11 @@
(aset ebnf-iso-token-table ?. 'character)))
;; replace the range "\240-\377" (see `ebnf-range-regexp').
(defconst ebnf-iso-non-terminal-chars
(ebnf-range-regexp " 0-9A-Za-z" ?\240 ?\377))
(defun ebnf-iso-lex ()
"Lexical analyser for ISO EBNF.
@ -447,9 +452,10 @@ See documentation for variable `ebnf-iso-lex'."
'terminal)
;; non-terminal
((eq token 'non-terminal)
(setq ebnf-iso-lex (ebnf-iso-normalize
(ebnf-trim-right
(ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
(setq ebnf-iso-lex
(ebnf-iso-normalize
(ebnf-trim-right
(ebnf-buffer-substring ebnf-iso-non-terminal-chars))))
(and ebnf-no-meta-identifier
(error "Exception sequence should not contain a meta identifier"))
'non-terminal)