Mercurial > emacs

diff lisp/subr.el @ 71726:a36e654643c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(def-edebug-spec): Moved here.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Jul 2006 02:00:10 +0000
parents 207dba45f18e
children bedc73f663be
line wrap: on
line diff
--- a/lisp/subr.el	Sun Jul 09 01:59:34 2006 +0000
+++ b/lisp/subr.el	Sun Jul 09 02:00:10 2006 +0000
@@ -53,6 +53,12 @@
 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