# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1012537462 0
# Node ID c803f1ca9d2b0e9089f7e77a1c5456ff87830853
# Parent  9af85e74c28730e5b83268b85992cbedc1d6a198
(debugger-frame-clear, debugger-frame): Error on non-frame line.

diff -r 9af85e74c287 -r c803f1ca9d2b lisp/emacs-lisp/debug.el
--- a/lisp/emacs-lisp/debug.el	Fri Feb 01 04:21:38 2002 +0000
+++ b/lisp/emacs-lisp/debug.el	Fri Feb 01 04:24:22 2002 +0000
@@ -439,6 +439,10 @@
   "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 @@
   "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))