[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el

[Eli Zaretskii]

Index: emacs/lisp/emacs-lisp/edebug.el
diff -u emacs/lisp/emacs-lisp/edebug.el:3.88 
emacs/lisp/emacs-lisp/edebug.el:3.89
--- emacs/lisp/emacs-lisp/edebug.el:3.88        Fri Mar  3 11:55:43 2006
+++ emacs/lisp/emacs-lisp/edebug.el     Thu Apr 13 10:51:17 2006
@@ -258,6 +258,20 @@
     edebug-form-spec
     ))
 
+;;;###autoload
+(defun edebug-basic-spec (spec)
+  "Return t if SPEC uses only extant spec symbols.
+An extant spec symbol is a symbol that is not a function and has a
+`edebug-form-spec' property."
+  (cond ((listp spec)
+        (catch 'basic
+          (while spec
+            (unless (edebug-basic-spec (car spec)) (throw 'basic nil))
+            (setq spec (cdr spec)))
+          t))
+       ((symbolp spec)
+        (unless (functionp spec) (get spec 'edebug-form-spec)))))
+
 ;;; Utilities
 
 ;; Define edebug-gensym - from old cl.el