[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el |
Date: |
Thu, 31 Jan 2002 23:24:22 -0500 |
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))