diff options
| author | Richard M. Stallman | 2006-07-09 02:00:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-07-09 02:00:10 +0000 |
| commit | 8285ccd2e1abf08f829f67d93375a2df4e38a859 (patch) | |
| tree | 087f1fae80c07399bedbbb308ea2d87ae7e9de88 | |
| parent | 4b21e5f30feb1aed86ba1f38e5e4fcb76a6cd11c (diff) | |
| download | emacs-8285ccd2e1abf08f829f67d93375a2df4e38a859.tar.gz emacs-8285ccd2e1abf08f829f67d93375a2df4e38a859.zip | |
(def-edebug-spec): Moved here.
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 6 insertions, 0 deletions
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' | |||
| 53 | that complains if FORM ever does return differing values." | 53 | that complains if FORM ever does return differing values." |
| 54 | form) | 54 | form) |
| 55 | 55 | ||
| 56 | (defmacro def-edebug-spec (symbol spec) | ||
| 57 | "Set the `edebug-form-spec' property of SYMBOL according to SPEC. | ||
| 58 | Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol | ||
| 59 | \(naming a function), or a list." | ||
| 60 | `(put (quote ,symbol) 'edebug-form-spec (quote ,spec))) | ||
| 61 | |||
| 56 | (defmacro lambda (&rest cdr) | 62 | (defmacro lambda (&rest cdr) |
| 57 | "Return a lambda expression. | 63 | "Return a lambda expression. |
| 58 | A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is | 64 | A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is |