[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9676d41: * lisp/emacs-lisp/subr-x.el (if-let): Swap &or branches (Bug#48489),
Philipp Stephani <=