diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-07 21:13:29 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-07 21:13:29 +0100 |
| commit | 3a33ac8911e835bf2be3ed34dd1288521ade91a8 (patch) | |
| tree | 83ed87b5811856cc0121ace41c9390372ce3e903 /lisp/emacs-lisp | |
| parent | ead05a1c2f31296796c9cc7ac2e1e295c988c4eb (diff) | |
| download | emacs-3a33ac8911e835bf2be3ed34dd1288521ade91a8.tar.gz emacs-3a33ac8911e835bf2be3ed34dd1288521ade91a8.tar.bz2 emacs-3a33ac8911e835bf2be3ed34dd1288521ade91a8.zip | |
* lisp/emacs-lisp/subr-x.el (if-let): Fix debug spec
Support the case when BINDINGS is a single tuple. (Bug#20525)
Diffstat (limited to 'lisp/emacs-lisp')
| -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 78a6dc98456..bd178faa4af 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -120,7 +120,8 @@ Argument BINDINGS is a list of tuples whose car is a symbol to be bound and (optionally) used in THEN, and its cadr is a sexp to be evalled to set symbol's value. In the special case you only want to bind a single value, BINDINGS can just be a plain tuple." - (declare (indent 2) (debug ((&rest (symbolp form)) form body))) + (declare (indent 2) + (debug ([&or (&rest (symbolp form)) (symbolp form)] form body))) (when (and (<= (length bindings) 2) (not (listp (car bindings)))) ;; Adjust the single binding case |