From: Philipp Stephani <phst@google.com>
Date: Tue, 18 May 2021 07:25:54 +0000 (+0200)
Subject: * lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches (Bug#48489)
X-Git-Tag: emacs-28.0.90~2434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9676d41b8301b84e07717e633059a3f2b5c4c9d8;p=emacs.git

* lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches (Bug#48489)
---

diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 5a8885c0427..fb890509ad7 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -174,8 +174,8 @@ As a special case, interprets a SPEC of the form \(SYMBOL SOMETHING)
 like \((SYMBOL SOMETHING)).  This exists for backward compatibility
 with an old syntax that accepted only one binding."
   (declare (indent 2)
-           (debug ([&or (&rest [&or symbolp (symbolp form) (form)])
-                        (symbolp form)]
+           (debug ([&or (symbolp form)  ; must be first, Bug#48489
+                        (&rest [&or symbolp (symbolp form) (form)])]
                    form body)))
   (when (and (<= (length spec) 2)
              (not (listp (car spec))))