Changeset 4111 for trunk/lisp/emacs-lisp/edebug.el

Timestamp:

2006年07月16日 08時36分52秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emacs-lisp/edebug.el (modified) (2 diffs)

trunk/lisp/emacs-lisp/edebug.el

@@ -235 +235 @@
-
-;;; Form spec utilities.
-
-;;;###autoload
-(defmacro def-edebug-spec (symbol spec)
-  "Set the `edebug-form-spec' property of SYMBOL according to SPEC.
-Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
-\(naming a function), or a list."
-  `(put (quote ,symbol) 'edebug-form-spec (quote ,spec)))
-
-(defmacro def-edebug-form-spec (symbol spec-form)
@@ -3427 +3420 @@
-     (t
-      (let ((loc (find-function-noselect func)))
+        (unless (cdr loc)
+          (error "Could not find the definition in its file"))
-        (with-current-buffer (car loc)
-          (goto-char (cdr loc))