From fa5b1b57fef668518be9bc8c03e0454573bcb3ba Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Feb 2002 04:24:22 +0000 Subject: [PATCH] (debugger-frame-clear, debugger-frame): Error on non-frame line. --- lisp/emacs-lisp/debug.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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)) -- 2.39.2