emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 9676d41: * lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches


From: Philipp Stephani
Subject: master 9676d41: * lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches (Bug#48489)
Date: Tue, 18 May 2021 03:27:53 -0400 (EDT)

branch: master
commit 9676d41b8301b84e07717e633059a3f2b5c4c9d8
Author: Philipp Stephani <phst@google.com>
Commit: Philipp Stephani <phst@google.com>

    * 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 5a8885c..fb89050 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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]