# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1152720263 0
# Node ID 81b8b2bb63de77ce9e63870198db41bdc2c3b151
# Parent  fcc45339ef471f707e791c3218b135d7efb071f0
(edebug-instrument-function): Err if find-function-noselect gives no position.

diff -r fcc45339ef47 -r 81b8b2bb63de lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Wed Jul 12 16:03:47 2006 +0000
+++ b/lisp/emacs-lisp/edebug.el	Wed Jul 12 16:04:23 2006 +0000
@@ -3419,6 +3419,8 @@
       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)