* lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec (bug#24765)

dee96f4a · Gemini Lasswell · 12e864eb · dee96f4a
Commit dee96f4a authored Apr 25, 2017 by Gemini Lasswell
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/emacs-lisp/cl-macs.el lisp/emacs-lisp/cl-macs.el +3 -1

No files found.
--- 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)))