diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2017-04-25 07:42:01 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2017-09-16 07:36:18 -0700 |
| commit | dee96f4a170be134fafd2d11f264952b7e030303 (patch) | |
| tree | 17cea88ca631c97d0dbf2e3c24c0a0e7e1b6a3f4 /lisp/emacs-lisp | |
| parent | 12e864eb30df410906b5fb5d47f0342be7073527 (diff) | |
| download | emacs-dee96f4a170be134fafd2d11f264952b7e030303.tar.gz emacs-dee96f4a170be134fafd2d11f264952b7e030303.tar.bz2 emacs-dee96f4a170be134fafd2d11f264952b7e030303.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec (bug#24765)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d90e70d3d8b..32ba0ac3091 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2438,7 +2438,9 @@ As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)', the PLACE is not modified before executing BODY. \(fn ((PLACE VALUE) ...) BODY...)" - (declare (indent 1) (debug ((&rest (gate gv-place &optional form)) body))) + (declare (indent 1) (debug ((&rest [&or (symbolp form) + (gate gv-place &optional form)]) + body))) (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings))) `(let ,bindings ,@body) (cl--letf bindings () () body))) |