diff options
| author | Mark Oteiza | 2017-04-08 11:30:36 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-04-08 11:36:56 -0400 |
| commit | fd4b83ca7c20a68060772ec13aadbe29db612b3f (patch) | |
| tree | fdb234a2b40346a8276e5b541ec5eae6ddcdf7d1 | |
| parent | 1c69215c511789ddcdeab60192087733c521652b (diff) | |
| download | emacs-fd4b83ca7c20a68060772ec13aadbe29db612b3f.tar.gz 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.
| -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 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, | |||
| 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 [&or symbolp (symbolp form)]) (symbolp form)] | 129 | (debug ([&or (&rest &or symbolp (gate symbolp &optional form)) |
| 130 | (symbolp form)] | ||
| 130 | form body))) | 131 | form body))) |
| 131 | (when (and (<= (length bindings) 2) | 132 | (when (and (<= (length bindings) 2) |
| 132 | (not (listp (car bindings)))) | 133 | (not (listp (car bindings)))) |