Mercurial > emacs

changeset 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 240e662ee053
children 84008c83cd50
files lisp/subr.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
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