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:
parent
0d017fc7ce
commit
a9a03cf35e
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue