diff options
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index aecfb93a3c5..510cded57e4 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -439,6 +439,10 @@ will be used, such as in a debug on exit from a frame." | |||
| 439 | "Request entry to debugger when this frame exits. | 439 | "Request entry to debugger when this frame exits. |
| 440 | Applies to the frame whose line point is on in the backtrace." | 440 | Applies to the frame whose line point is on in the backtrace." |
| 441 | (interactive) | 441 | (interactive) |
| 442 | (save-excursion | ||
| 443 | (beginning-of-line) | ||
| 444 | (if (looking-at " *;;;\\|[a-z]") | ||
| 445 | (error "This line is not a function call"))) | ||
| 442 | (beginning-of-line) | 446 | (beginning-of-line) |
| 443 | (let ((level (debugger-frame-number))) | 447 | (let ((level (debugger-frame-number))) |
| 444 | (backtrace-debug (+ level debugger-frame-offset) t)) | 448 | (backtrace-debug (+ level debugger-frame-offset) t)) |
| @@ -452,6 +456,10 @@ Applies to the frame whose line point is on in the backtrace." | |||
| 452 | "Do not enter debugger when this frame exits. | 456 | "Do not enter debugger when this frame exits. |
| 453 | Applies to the frame whose line point is on in the backtrace." | 457 | Applies to the frame whose line point is on in the backtrace." |
| 454 | (interactive) | 458 | (interactive) |
| 459 | (save-excursion | ||
| 460 | (beginning-of-line) | ||
| 461 | (if (looking-at " *;;;\\|[a-z]") | ||
| 462 | (error "This line is not a function call"))) | ||
| 455 | (beginning-of-line) | 463 | (beginning-of-line) |
| 456 | (let ((level (debugger-frame-number))) | 464 | (let ((level (debugger-frame-number))) |
| 457 | (backtrace-debug (+ level debugger-frame-offset) nil)) | 465 | (backtrace-debug (+ level debugger-frame-offset) nil)) |