aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGemini Lasswell2017-02-04 16:16:11 -0800
committerMark Oteiza2017-02-17 18:47:50 -0500
commit5401820672c650f47bf055ebbf3cc590f90cb05a (patch)
treef9fff3038e0de6e665f12e3029cb6b56155c69db
parent071680b734f54733614e355ce4b89bd2300a632b (diff)
downloademacs-5401820672c650f47bf055ebbf3cc590f90cb05a.tar.gz
emacs-5401820672c650f47bf055ebbf3cc590f90cb05a.zip
* lisp/emacs-lisp/subr-x.el (if-let*): Fix Edebug spec (Bug#24748)
-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 f7a846927c0..1d729f94092 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,
126VARLIST can just be a plain tuple. 126VARLIST can just be a plain tuple.
127\n(fn VARLIST THEN ELSE...)" 127\n(fn VARLIST THEN ELSE...)"
128 (declare (indent 2) 128 (declare (indent 2)
129 (debug ([&or (&rest (symbolp form)) (symbolp form)] form body))) 129 (debug ([&or (&rest [&or symbolp (symbolp form)]) (symbolp form)]
130 form body)))
130 (when (and (<= (length bindings) 2) 131 (when (and (<= (length bindings) 2)
131 (not (listp (car bindings)))) 132 (not (listp (car bindings))))
132 ;; Adjust the single binding case 133 ;; Adjust the single binding case