diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:24:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-02-01 04:24:22 +0000 |
| commit | fa5b1b57fef668518be9bc8c03e0454573bcb3ba (patch) | |
| tree | 77af6ee053dc2ed64906d8f93a1999686dad274f /lisp/emacs-lisp | |
| parent | 65fe45f2eae5b1b9de299846a542aba76cbcd428 (diff) | |
| download | emacs-fa5b1b57fef668518be9bc8c03e0454573bcb3ba.tar.gz emacs-fa5b1b57fef668518be9bc8c03e0454573bcb3ba.tar.bz2 emacs-fa5b1b57fef668518be9bc8c03e0454573bcb3ba.zip | |
(debugger-frame-clear, debugger-frame): Error on non-frame line.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." "Request entry to debugger when this frame exits. Applies to the frame whose line point is on in the backtrace." (interactive) + (save-excursion + (beginning-of-line) + (if (looking-at " *;;;\\|[a-z]") + (error "This line is not a function call"))) (beginning-of-line) (let ((level (debugger-frame-number))) (backtrace-debug (+ level debugger-frame-offset) t)) @@ -452,6 +456,10 @@ Applies to the frame whose line point is on in the backtrace." "Do not enter debugger when this frame exits. Applies to the frame whose line point is on in the backtrace." (interactive) + (save-excursion + (beginning-of-line) + (if (looking-at " *;;;\\|[a-z]") + (error "This line is not a function call"))) (beginning-of-line) (let ((level (debugger-frame-number))) (backtrace-debug (+ level debugger-frame-offset) nil)) |