# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1144925477 0
# Node ID 5fd1441a60f96116a6d077de29fac1bf2faa085e
# Parent  e753e12d2f337f50442176faa83c4dae6bbb0a18
(edebug-basic-spec): New function for vetting file-local form specs.

diff -r e753e12d2f33 -r 5fd1441a60f9 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Thu Apr 13 10:44:37 2006 +0000
+++ b/lisp/emacs-lisp/edebug.el	Thu Apr 13 10:51:17 2006 +0000
@@ -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