Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 90384:c156f6a9e7b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-56 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 204-225) - Update from CVS - Sync from erc--emacs--0 - Merge from gnus--rel--5.10 - Improve tq.el. - Update from CVS: src/puresize.h (PURESIZE_RATIO): Reduce to 10/6. * gnus--rel--5.10 (patch 81-85) - Update from CVS - Merge from emacs--devo--0
author Miles Bader <miles@gnu.org>
date Mon, 17 Apr 2006 08:41:12 +0000
parents a7364c1a561e 5fd1441a60f9
children 8a8e69664178
comparison
equal deleted inserted replaced
90383:ab20fb198dda 90384:c156f6a9e7b5
255 (setq indirect (get edebug-form-spec 'edebug-form-spec))) 255 (setq indirect (get edebug-form-spec 'edebug-form-spec)))
256 ;; (edebug-trace "indirection: %s" edebug-form-spec) 256 ;; (edebug-trace "indirection: %s" edebug-form-spec)
257 (setq edebug-form-spec indirect)) 257 (setq edebug-form-spec indirect))
258 edebug-form-spec 258 edebug-form-spec
259 )) 259 ))
260
261 ;;;###autoload
262 (defun edebug-basic-spec (spec)
263 "Return t if SPEC uses only extant spec symbols.
264 An extant spec symbol is a symbol that is not a function and has a
265 `edebug-form-spec' property."
266 (cond ((listp spec)
267 (catch 'basic
268 (while spec
269 (unless (edebug-basic-spec (car spec)) (throw 'basic nil))
270 (setq spec (cdr spec)))
271 t))
272 ((symbolp spec)
273 (unless (functionp spec) (get spec 'edebug-form-spec)))))
260 274
261 ;;; Utilities 275 ;;; Utilities
262 276
263 ;; Define edebug-gensym - from old cl.el 277 ;; Define edebug-gensym - from old cl.el
264 (defvar edebug-gensym-index 0 278 (defvar edebug-gensym-index 0