diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-07-12 16:04:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-07-12 16:04:23 +0000 |
| commit | fea7b5149b0c05f34810911f3e279d058c2e3b6b (patch) | |
| tree | ad05f532fdd618b9dfacf44e8594ba6940e9c838 /lisp/emacs-lisp | |
| parent | 39ff5f6495b22f79f2b94bf251d23ebe4d18b0ad (diff) | |
| download | emacs-fea7b5149b0c05f34810911f3e279d058c2e3b6b.tar.gz emacs-fea7b5149b0c05f34810911f3e279d058c2e3b6b.tar.bz2 emacs-fea7b5149b0c05f34810911f3e279d058c2e3b6b.zip | |
(edebug-instrument-function): Err if find-function-noselect gives no position.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |