Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 71852:81b8b2bb63de
(edebug-instrument-function): Err if find-function-noselect gives no position.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 12 Jul 2006 16:04:23 +0000 |
| parents | 84008c83cd50 |
| children | 79197e6c8618 8a8e69664178 |
comparison
equal
deleted
inserted
replaced
| 71851:fcc45339ef47 | 71852:81b8b2bb63de |
|---|---|
| 3417 ((consp func-marker) | 3417 ((consp func-marker) |
| 3418 (message "%s is already instrumented." func) | 3418 (message "%s is already instrumented." func) |
| 3419 func) | 3419 func) |
| 3420 (t | 3420 (t |
| 3421 (let ((loc (find-function-noselect func))) | 3421 (let ((loc (find-function-noselect func))) |
| 3422 (unless (cdr loc) | |
| 3423 (error "Could not find the definition in its file")) | |
| 3422 (with-current-buffer (car loc) | 3424 (with-current-buffer (car loc) |
| 3423 (goto-char (cdr loc)) | 3425 (goto-char (cdr loc)) |
| 3424 (edebug-eval-top-level-form) | 3426 (edebug-eval-top-level-form) |
| 3425 func)))))) | 3427 func)))))) |
| 3426 | 3428 |