[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 65ddaaf: Fix abnf parsing of <prose> elements
From: |
Lars Ingebrigtsen |
Subject: |
master 65ddaaf: Fix abnf parsing of <prose> elements |
Date: |
Mon, 30 Aug 2021 21:17:34 -0400 (EDT) |
branch: master
commit 65ddaaf41ffc2b6f49ddf8a5f689dd24ab0a0a98
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix abnf parsing of <prose> elements
* lisp/progmodes/ebnf-abn.el (ebnf-abn-lex): Make <prose> parsing
work (bug#39663).
---
lisp/progmodes/ebnf-abn.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el
index 2a37110..c3b240a 100644
--- a/lisp/progmodes/ebnf-abn.el
+++ b/lisp/progmodes/ebnf-abn.el
@@ -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: =, =/
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 65ddaaf: Fix abnf parsing of <prose> elements,
Lars Ingebrigtsen <=