From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 27 Jan 2021 23:53:58 +0000 (-0500)
Subject: * lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
X-Git-Tag: emacs-28.0.90~4086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30914167fd49e208c483541663f0275253e42227;p=emacs.git

* lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
---

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 78f0b636a74..e842222b7c3 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -377,7 +377,7 @@ Never returns an empty list."
      (t
       `(cond (,test ,@(macroexp-unprogn then))
              (,(nth 1 else) ,@(macroexp-unprogn (nth 2 else)))
-             ,@(let ((def (nthcdr 3 else))) (if def '((t ,@def))))))))
+             ,@(let ((def (nthcdr 3 else))) (if def `((t ,@def))))))))
    ((eq (car-safe else) 'cond)
     `(cond (,test ,@(macroexp-unprogn then)) ,@(cdr else)))
    ;; Invert the test if that lets us reduce the depth of the tree.