From: Gemini Lasswell <gazally@runbox.com>
Date: Tue, 25 Apr 2017 14:42:01 +0000 (-0700)
Subject: * lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec (bug#24765)
X-Git-Tag: emacs-26.0.90~161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dee96f4a17;p=emacs.git

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

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)))