summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorMark Oteiza <mvoteiza@udel.edu>2017-04-08 11:30:36 -0400
committerMark Oteiza <mvoteiza@udel.edu>2017-04-08 11:36:56 -0400
commitfd4b83ca7c20a68060772ec13aadbe29db612b3f (patch)
treefdb234a2b40346a8276e5b541ec5eae6ddcdf7d1 /lisp/emacs-lisp
parent1c69215c511789ddcdeab60192087733c521652b (diff)
downloademacs-fd4b83ca7c20a68060772ec13aadbe29db612b3f.tar.gz
emacs-fd4b83ca7c20a68060772ec13aadbe29db612b3f.tar.bz2
emacs-fd4b83ca7c20a68060772ec13aadbe29db612b3f.zip
Adjust the edebug spec of if-let*
This was fixed in Bug#24748, but now looking more closely, using gate in the spec seems correct. See (info "(elisp) Backtracking"). * lisp/emacs-lisp/subr-x.el (if-let*): Use gate in edebug spec.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/subr-x.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 1d729f94092..5ad482d1eac 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -126,7 +126,8 @@ In the special case you only want to bind a single value,
VARLIST can just be a plain tuple.
\n(fn VARLIST THEN ELSE...)"
(declare (indent 2)
- (debug ([&or (&rest [&or symbolp (symbolp form)]) (symbolp form)]
+ (debug ([&or (&rest &or symbolp (gate symbolp &optional form))
+ (symbolp form)]
form body)))
(when (and (<= (length bindings) 2)
(not (listp (car bindings))))