# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1152410410 0
# Node ID a36e654643c12a44dfe49dc2ddbdbaccecda2435
# Parent  240e662ee0536726b099b14193f951ee3565d793
(def-edebug-spec): Moved here.

diff -r 240e662ee053 -r a36e654643c1 lisp/subr.el
--- 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