Mercurial > emacs

changeset 43034:c803f1ca9d2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(debugger-frame-clear, debugger-frame): Error on non-frame line.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 Feb 2002 04:24:22 +0000
parents 9af85e74c287
children 225a3a5477a9
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))