439 |
"Request entry to debugger when this frame exits. |
"Request entry to debugger when this frame exits. |
440 |
Applies to the frame whose line point is on in the backtrace." |
Applies to the frame whose line point is on in the backtrace." |
441 |
(interactive) |
(interactive) |
442 |
|
(save-excursion |
443 |
|
(beginning-of-line) |
444 |
|
(if (looking-at " *;;;\\|[a-z]") |
445 |
|
(error "This line is not a function call"))) |
446 |
(beginning-of-line) |
(beginning-of-line) |
447 |
(let ((level (debugger-frame-number))) |
(let ((level (debugger-frame-number))) |
448 |
(backtrace-debug (+ level debugger-frame-offset) t)) |
(backtrace-debug (+ level debugger-frame-offset) t)) |
456 |
"Do not enter debugger when this frame exits. |
"Do not enter debugger when this frame exits. |
457 |
Applies to the frame whose line point is on in the backtrace." |
Applies to the frame whose line point is on in the backtrace." |
458 |
(interactive) |
(interactive) |
459 |
|
(save-excursion |
460 |
|
(beginning-of-line) |
461 |
|
(if (looking-at " *;;;\\|[a-z]") |
462 |
|
(error "This line is not a function call"))) |
463 |
(beginning-of-line) |
(beginning-of-line) |
464 |
(let ((level (debugger-frame-number))) |
(let ((level (debugger-frame-number))) |
465 |
(backtrace-debug (+ level debugger-frame-offset) nil)) |
(backtrace-debug (+ level debugger-frame-offset) nil)) |