From 8285ccd2e1abf08f829f67d93375a2df4e38a859 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 9 Jul 2006 02:00:10 +0000
Subject: [PATCH] (def-edebug-spec): Moved here.

---
 lisp/subr.el | 6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
2.39.5