>From 192a5649fef5a686676b98340818b3f6ab4e5a47 Mon Sep 17 00:00:00 2001 From: Gemini Lasswell Date: Sat, 4 Feb 2017 16:16:11 -0800 Subject: [PATCH] * lisp/emacs-lisp/subr-x.el (if-let*): Fix Edebug spec (Bug#24748) --- lisp/emacs-lisp/subr-x.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index f7a8469..1d729f9 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -126,7 +126,8 @@ if-let* VARLIST can just be a plain tuple. \n(fn VARLIST THEN ELSE...)" (declare (indent 2) - (debug ([&or (&rest (symbolp form)) (symbolp form)] form body))) + (debug ([&or (&rest [&or symbolp (symbolp form)]) (symbolp form)] + form body))) (when (and (<= (length bindings) 2) (not (listp (car bindings)))) ;; Adjust the single binding case -- 2.10.1