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:
parent
50765f3f51
commit
65ddaaf41f
@ -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: =, =/
|
||||
|
Loading…
Reference in New Issue
Block a user