Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 90384:c156f6a9e7b5
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 |