diff options
| author | Mark Oteiza | 2017-05-13 21:40:23 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-05-13 21:40:23 -0400 |
| commit | 4e0887556776086a0f508c394ab56cac5e1a4c8d (patch) | |
| tree | 0b296b474179f62e0dec2c63c8b66a29b079c038 | |
| parent | 78fe5abc11c9ff237615d6884aed159229377cc5 (diff) | |
| download | emacs-4e0887556776086a0f508c394ab56cac5e1a4c8d.tar.gz emacs-4e0887556776086a0f508c394ab56cac5e1a4c8d.zip | |
; Revert "Adjust the edebug spec of if-let*"
This reverts commit fd4b83ca7c20a68060772ec13aadbe29db612b3f.
| -rw-r--r-- | lisp/emacs-lisp/subr-x.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 440213eb38a..8a955277fed 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el | |||
| @@ -128,8 +128,7 @@ In the special case you only want to bind a single value, | |||
| 128 | VARLIST can just be a plain tuple. | 128 | VARLIST can just be a plain tuple. |
| 129 | \n(fn VARLIST THEN ELSE...)" | 129 | \n(fn VARLIST THEN ELSE...)" |
| 130 | (declare (indent 2) | 130 | (declare (indent 2) |
| 131 | (debug ([&or (&rest &or symbolp (gate symbolp &optional form)) | 131 | (debug ([&or (&rest [&or symbolp (symbolp form)]) (symbolp form)] |
| 132 | (symbolp form)] | ||
| 133 | form body))) | 132 | form body))) |
| 134 | (when (and (<= (length bindings) 2) | 133 | (when (and (<= (length bindings) 2) |
| 135 | (not (listp (car bindings)))) | 134 | (not (listp (car bindings)))) |