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") |