Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 71727:84008c83cd50
(def-edebug-spec): Moved to subr.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 Jul 2006 02:00:46 +0000 |
| parents | 5fd1441a60f9 |
| children | 81b8b2bb63de |
comparison
equal
deleted
inserted
replaced
| 71726:a36e654643c1 | 71727:84008c83cd50 |
|---|---|
| 232 "*Number of seconds to pause when execution mode is `trace'." | 232 "*Number of seconds to pause when execution mode is `trace'." |
| 233 :type 'number | 233 :type 'number |
| 234 :group 'edebug) | 234 :group 'edebug) |
| 235 | 235 |
| 236 ;;; Form spec utilities. | 236 ;;; Form spec utilities. |
| 237 | |
| 238 ;;;###autoload | |
| 239 (defmacro def-edebug-spec (symbol spec) | |
| 240 "Set the `edebug-form-spec' property of SYMBOL according to SPEC. | |
| 241 Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol | |
| 242 \(naming a function), or a list." | |
| 243 `(put (quote ,symbol) 'edebug-form-spec (quote ,spec))) | |
| 244 | 237 |
| 245 (defmacro def-edebug-form-spec (symbol spec-form) | 238 (defmacro def-edebug-form-spec (symbol spec-form) |
| 246 "For compatibility with old version." | 239 "For compatibility with old version." |
| 247 (def-edebug-spec symbol (eval spec-form))) | 240 (def-edebug-spec symbol (eval spec-form))) |
| 248 (make-obsolete 'def-edebug-form-spec 'def-edebug-spec "22.1") | 241 (make-obsolete 'def-edebug-form-spec 'def-edebug-spec "22.1") |