[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.51 emacs/lisp/emacs-lisp/debug.el:1.52
*** emacs/lisp/emacs-lisp/debug.el:1.51 Thu Jan 31 23:21:38 2002
--- emacs/lisp/emacs-lisp/debug.el      Thu Jan 31 23:24:22 2002
***************
*** 439,444 ****
--- 439,448 ----
    "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,457 ****
--- 456,465 ----
    "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))