From fb4db5c1a7b9dcb24e6cfed064b252a9f8fe97ef Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 25 Mar 2025 22:17:05 -0400 Subject: [PATCH] PEG: Fix bug#76555 * doc/lispref/peg.texi (Parsing Expression Grammars): Fix `define-peg-ruleset` example. * lisp/progmodes/peg.el (define-peg-rule): Fix indent rule. --- doc/lispref/peg.texi | 2 +- lisp/progmodes/peg.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/lispref/peg.texi b/doc/lispref/peg.texi index 80e2581e7bb..e03ec57a457 100644 --- a/doc/lispref/peg.texi +++ b/doc/lispref/peg.texi @@ -141,8 +141,8 @@ Define @var{name} as an identifier for @var{rules}. @example @group (define-peg-ruleset number-grammar + ;; `digit' here references the definition above. '((number sign digit (* digit)) - digit ;; A reference to the definition above. (sign (or "+" "-" "")))) @end group @end example diff --git a/lisp/progmodes/peg.el b/lisp/progmodes/peg.el index ebcf7f7455b..41e052b505f 100644 --- a/lisp/progmodes/peg.el +++ b/lisp/progmodes/peg.el @@ -369,7 +369,7 @@ defaults to `ignore'." "Define PEG rule NAME as equivalent to PEXS. The PEG expressions in PEXS are implicitly combined with the sequencing `and' operator of PEG grammars." - (declare (indent 1)) + (declare (indent 2)) (let ((inline nil)) (while (keywordp (car pexs)) (pcase (pop pexs)