[Emacs-diffs] /srv/bzr/emacs/trunk r105886: * lisp/subr.el (with-wrapper-hook): Fix edebug spec.

[Stefan Monnier]

------------------------------------------------------------
revno: 105886
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-09-23 10:32:36 -0400
message:
  * lisp/subr.el (with-wrapper-hook): Fix edebug spec.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-23 10:52:23 +0000
+++ b/lisp/ChangeLog    2011-09-23 14:32:36 +0000
@@ -1,3 +1,7 @@
+2011-09-23  Stefan Monnier  <address@hidden>
+
+       * subr.el (with-wrapper-hook): Fix edebug spec.
+
 2011-09-23  Lars Magne Ingebrigtsen  <address@hidden>
 
        * simple.el (kill-line): Note effect of `show-trailing-whitespace'

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2011-09-11 03:35:02 +0000
+++ b/lisp/subr.el      2011-09-23 14:32:36 +0000
@@ -1377,7 +1377,7 @@
 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"))