procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2006-07-12 16:04:23 +00:00
parent 39ff5f6495
commit fea7b5149b
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/edebug.el
View file

@ -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)