From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 26 Mar 2025 02:17:05 +0000 (-0400)
Subject: PEG: Fix bug#76555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=309355ada287ddb979968f52947db3f3f02cb828;p=emacs.git

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.

(cherry picked from commit 1db7aaceb9fe9b78838ad06199e3fbba830737e9)
---

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 405b92c53b0..e55148b51c7 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)