From: Richard M. Stallman Date: Sun, 9 Jul 2006 02:00:10 +0000 (+0000) Subject: (def-edebug-spec): Moved here. X-Git-Tag: emacs-pretest-22.0.90~1604 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8285ccd2e1abf08f829f67d93375a2df4e38a859;p=emacs.git (def-edebug-spec): Moved here. --- diff --git a/lisp/subr.el b/lisp/subr.el index f19142faa60..9672a7afb76 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -53,6 +53,12 @@ This is the global do-nothing version. There is also `testcover-1value' that complains if FORM ever does return differing values." form) +(defmacro def-edebug-spec (symbol spec) + "Set the `edebug-form-spec' property of SYMBOL according to SPEC. +Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol +\(naming a function), or a list." + `(put (quote ,symbol) 'edebug-form-spec (quote ,spec))) + (defmacro lambda (&rest cdr) "Return a lambda expression. A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is