From 9676d41b8301b84e07717e633059a3f2b5c4c9d8 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Tue, 18 May 2021 09:25:54 +0200 Subject: [PATCH] * lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches (Bug#48489) --- lisp/emacs-lisp/subr-x.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.39.5