1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00

Fix abnf parsing of <prose> elements

* lisp/progmodes/ebnf-abn.el (ebnf-abn-lex): Make <prose> parsing
work (bug#39663).
This commit is contained in:
Lars Ingebrigtsen 2021-08-31 03:17:21 +02:00
parent 50765f3f51
commit 65ddaaf41f

View File

@ -530,13 +530,14 @@ See documentation for variable `ebnf-abn-lex'."
(let ((prose-p (= (following-char) ?<)))
(when prose-p
(forward-char)
(or (looking-at ebnf-abn-non-terminal-letter-chars)
(or (looking-at (concat "[" ebnf-abn-non-terminal-letter-chars "]"))
(error "Invalid prose value")))
(setq ebnf-abn-lex
(ebnf-buffer-substring ebnf-abn-non-terminal-chars))
(when prose-p
(or (= (following-char) ?>)
(error "Invalid prose value"))
(forward-char)
(setq ebnf-abn-lex (concat "<" ebnf-abn-lex ">"))))
'non-terminal)
;; equal: =, =/