procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix buglet.

Browse source 
* lisp/emacs-lisp/cond-star.el (cond*-match): Move a backquote.
This commit is contained in:
Richard Stallman 2024-08-10 18:45:06 -04:00
parent b6c2f36069
commit ca56dc2e71
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/cond-star.el
View file

@ -347,8 +347,8 @@ as in `cond*-condition'."
(if uncondit-clauses
(setq expression
`(progn ,expression
(cond*-bind-pattern-syms
,(if retrieve-value-swap-outs
,(cond*-bind-pattern-syms
(if retrieve-value-swap-outs
;; If we saved the bindings' values after the
;; true-clauses, bind the same variables
;; here to the values we saved then.
@ -356,7 +356,7 @@ as in `cond*-condition'."
;; Otherwise bind them to the values
;; they matched in the pattern.
(car raw-result))
(cond*-convert uncondit-clauses)))))
(cond*-convert uncondit-clauses)))))
;; Bind the backtrack-aliases if any.
;; We need them bound for the TRUE-EXPS.
;; It is harmless to bind them around IFFALSE