diff options
| author | Stefan Monnier | 2025-03-25 22:17:05 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2025-03-25 22:17:32 -0400 |
| commit | fb4db5c1a7b9dcb24e6cfed064b252a9f8fe97ef (patch) | |
| tree | 38e97edd359e88049a9d2d6f7cf184d4c2a018f4 | |
| parent | 9a07d64f5c734f08baa741d763640943a7b407e7 (diff) | |
| download | emacs-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.texi | 2 | ||||
| -rw-r--r-- | 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}. | |||
| 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. |
| 370 | The PEG expressions in PEXS are implicitly combined with the | 370 | The PEG expressions in PEXS are implicitly combined with the |
| 371 | sequencing `and' operator of PEG grammars." | 371 | sequencing `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) |