(debugger-frame-clear, debugger-frame): Error on non-frame line.

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index aecfb93a3c51e2e080ef4edf3d9464a31c4dc169..510cded57e43b551ff2da75a68ecc3e7a14d8195 100644 (file)
--- 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))