From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Feb 2002 04:24:22 +0000 (+0000)
Subject: (debugger-frame-clear, debugger-frame): Error on non-frame line.
X-Git-Tag: ttn-vms-21-2-B4~16908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa5b1b57fef668518be9bc8c03e0454573bcb3ba;p=emacs.git

(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 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))