emacs-diffs
[Top][All Lists]
Advanced

[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: =, =/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]