From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 12 Jul 2006 16:04:23 +0000 (+0000)
Subject: (edebug-instrument-function): Err if find-function-noselect gives no position.
X-Git-Tag: emacs-pretest-22.0.90~1486
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fea7b5149b0c05f34810911f3e279d058c2e3b6b;p=emacs.git

(edebug-instrument-function): Err if find-function-noselect gives no position.
---

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 7e4972194bb..8645ec5a6ed 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -3419,6 +3419,8 @@ go to the end of the last sexp, or if that is the same point, then step."
       func)
      (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))
 	  (edebug-eval-top-level-form)