aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2025-03-25 22:17:05 -0400
committerStefan Monnier2025-03-25 22:17:32 -0400
commitfb4db5c1a7b9dcb24e6cfed064b252a9f8fe97ef (patch)
tree38e97edd359e88049a9d2d6f7cf184d4c2a018f4
parent9a07d64f5c734f08baa741d763640943a7b407e7 (diff)
downloademacs-fb4db5c1a7b9dcb24e6cfed064b252a9f8fe97ef.tar.gz
emacs-fb4db5c1a7b9dcb24e6cfed064b252a9f8fe97ef.zip
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.
-rw-r--r--doc/lispref/peg.texi2
-rw-r--r--lisp/progmodes/peg.el2
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}.
141@example 141@example
142@group 142@group
143(define-peg-ruleset number-grammar 143(define-peg-ruleset number-grammar
144 ;; `digit' here references the definition above.
144 '((number sign digit (* digit)) 145 '((number sign digit (* digit))
145 digit ;; A reference to the definition above.
146 (sign (or "+" "-" "")))) 146 (sign (or "+" "-" ""))))
147@end group 147@end group
148@end example 148@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'."
369 "Define PEG rule NAME as equivalent to PEXS. 369 "Define PEG rule NAME as equivalent to PEXS.
370The PEG expressions in PEXS are implicitly combined with the 370The PEG expressions in PEXS are implicitly combined with the
371sequencing `and' operator of PEG grammars." 371sequencing `and' operator of PEG grammars."
372 (declare (indent 1)) 372 (declare (indent 2))
373 (let ((inline nil)) 373 (let ((inline nil))
374 (while (keywordp (car pexs)) 374 (while (keywordp (car pexs))
375 (pcase (pop pexs) 375 (pcase (pop pexs)