From 45525cafcbcc5205b7a3d53a6ae62c3ee31dfaf2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 5 Feb 2023 09:04:51 -0500 Subject: [PATCH] * lisp/emacs-lisp/cconv.el (cconv-convert): Fix thinko --- lisp/emacs-lisp/cconv.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index e4268c2fb88..e8d639903c1 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -488,7 +488,7 @@ places where they originally did not directly appear." (_ (pcase cif ('nil nil) (`#',f - (setf (cadr (car bf)) (if wrapped (nth 2 f) f)) + (setf (cadr (car bf)) (if wrapped (nth 2 f) cif)) (setq cif nil)) ;; The interactive form needs special treatment, so the form ;; inside the `interactive' won't be used any further. -- 2.39.5