diff options
| author | Richard Lawrence | 2026-01-03 17:10:54 +0100 |
|---|---|---|
| committer | Eli Zaretskii | 2026-02-28 15:43:55 +0200 |
| commit | a9a03cf35ef4f4bb3a75daffaa93e620f808db0f (patch) | |
| tree | 00296bc894b2ec33814f89dfeed6df4bb456623b | |
| parent | 0d017fc7ce83006eee93402ba0619b5d21906672 (diff) | |
| download | emacs-a9a03cf35ef4f4bb3a75daffaa93e620f808db0f.tar.gz emacs-a9a03cf35ef4f4bb3a75daffaa93e620f808db0f.zip | |
Fix (or ...) patterns in 'cond*'/'match*'
This fixes Bug#80121.
* lisp/emacs-lisp/cond-star.el (cond*-subpat): Add missing reference to
'expression' when clearing multiple backtrack aliases.
| -rw-r--r-- | lisp/emacs-lisp/cond-star.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cond-star.el b/lisp/emacs-lisp/cond-star.el index 97a24011bce..98d4b93583a 100644 --- a/lisp/emacs-lisp/cond-star.el +++ b/lisp/emacs-lisp/cond-star.el | |||
| @@ -728,7 +728,7 @@ whether SUBPAT (as well as the subpatterns that contain/precede it) matches," | |||
| 728 | (if (null (cdr clearing)) | 728 | (if (null (cdr clearing)) |
| 729 | `(or ,expression | 729 | `(or ,expression |
| 730 | ,(car clearing)) | 730 | ,(car clearing)) |
| 731 | `(progn ,@clearing)))))) | 731 | `(or ,expression (progn ,@clearing))))))) |
| 732 | (push expression expressions))) | 732 | (push expression expressions))) |
| 733 | ;; At end of (or...), EACH variable bound by any arm | 733 | ;; At end of (or...), EACH variable bound by any arm |
| 734 | ;; has a backtrack alias gensym. At run time, that gensym's value | 734 | ;; has a backtrack alias gensym. At run time, that gensym's value |