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

Fix character range regexp. Doc fix.

Browse Source 
(ebnf-bnf-non-terminal-chars): New internal const.
(ebnf-bnf-lex): Fix code.
This commit is contained in:
Gerd Moellmann 2001-09-24 17:41:41 +00:00
parent 68f38c8c9a
commit 40b35c64e1
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/ebnf-bnf.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/09/18 21:03:57 vinicius>
;; Version: 1.6
;; Time-stamp: <2001/09/24 10:17:26 vinicius>
;; Version: 1.7
;; This file is part of GNU Emacs.
@ -408,6 +408,11 @@
(aset ebnf-bnf-token-table ebnf-lex-eop-char 'period)))
;; replace the range "\240-\377" (see `ebnf-range-regexp').
(defconst ebnf-bnf-non-terminal-chars
(ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\\\^-z~" ?\240 ?\377))
(defun ebnf-bnf-lex ()
"Lexical analyser for EBNF.
@ -467,10 +472,7 @@ See documentation for variable `ebnf-bnf-lex'."
'terminal)
;; non-terminal or terminal
((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~"
?\240 ?\377)))
(setq ebnf-bnf-lex (ebnf-buffer-substring ebnf-bnf-non-terminal-chars))
(let ((case-fold-search ebnf-case-fold-search)
match)
(if (and ebnf-terminal-regexp