1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-11 17:31:35 -07:00

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.
This commit is contained in:
Richard Lawrence 2026-01-03 17:10:54 +01:00 committed by Eli Zaretskii
parent 0d017fc7ce
commit a9a03cf35e

View file

@ -728,7 +728,7 @@ whether SUBPAT (as well as the subpatterns that contain/precede it) matches,"
(if (null (cdr clearing))
`(or ,expression
,(car clearing))
`(progn ,@clearing))))))
`(or ,expression (progn ,@clearing)))))))
(push expression expressions)))
;; At end of (or...), EACH variable bound by any arm
;; has a backtrack alias gensym. At run time, that gensym's value