* lisp/subr.el (with-wrapper-hook): Fix edebug spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fdad104feac3bb5481cd0f9bd2c73cb391c24de..14948d41f7a64c770347af753dd3fcea10e48f46 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * subr.el (with-wrapper-hook): Fix edebug spec.
+
 2011-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * simple.el (kill-line): Note effect of `show-trailing-whitespace'

diff --git a/lisp/subr.el b/lisp/subr.el
index 0d8797b6f63a3226526b1bc0292c9562320b681b..1aa714fa883e479cf43f422191429efb6c910030 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1377,7 +1377,7 @@ arbitrary expression.
 ARGS is a list of variables which will be passed as additional arguments
 to each function, after the initial argument, and which the first argument
 expects to receive when called."
-  (declare (indent 2) (debug t))
+  (declare (indent 2) (debug (form sexp body)))
   ;; We need those two gensyms because CL's lexical scoping is not available
   ;; for function arguments :-(
   (let ((funs (make-symbol "funs"))