diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-09-23 10:32:36 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-09-23 10:32:36 -0400 |
commit | 01c157cc39550b23ca6d083c36797fa1d7faa595 (patch) | |
tree | 35f8899ba44ddfdb06b6c8c924af121ffb4df479 | |
parent | 022de23e6c93c5c4528f10a7d7feb6402d2a05c6 (diff) | |
download | emacs-01c157cc39550b23ca6d083c36797fa1d7faa595.tar.gz |
* lisp/subr.el (with-wrapper-hook): Fix edebug spec.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1fdad104fea..14948d41f7a 100644 --- 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 0d8797b6f63..1aa714fa883 100644 --- 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")) |