diff options
| author | Gemini Lasswell | 2017-02-04 16:16:11 -0800 |
|---|---|---|
| committer | Mark Oteiza | 2017-02-17 18:47:50 -0500 |
| commit | 5401820672c650f47bf055ebbf3cc590f90cb05a (patch) | |
| tree | f9fff3038e0de6e665f12e3029cb6b56155c69db | |
| parent | 071680b734f54733614e355ce4b89bd2300a632b (diff) | |
| download | emacs-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.el | 3 |
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, | |||
| 126 | VARLIST can just be a plain tuple. | 126 | VARLIST 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 |