changeset 60519:2433720b755c

(debugger-step-through): Make sure that stepping into the debugger's code is not possible. (debugger-jumping-flag): Docstring update.
author Lute Kamstra <lute@gnu.org>
date Tue, 08 Mar 2005 20:15:15 +0000
parents d77b4a9173ea
children e9054877fa6b
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Tue Mar 08 15:47:08 2005 +0000
+++ b/lisp/emacs-lisp/debug.el	Tue Mar 08 20:15:15 2005 +0000
@@ -94,7 +94,8 @@
 
 (defvar debugger-jumping-flag nil
   "Non-nil means that debug-on-entry is disabled.
-This variable is used by `debugger-jump' and `debugger-reenable'.")
+This variable is used by `debugger-jump', `debugger-step-through',
+and `debugger-reenable' to temporarily disable debug-on-entry.")
 
 ;; When you change this, you may also need to change the number of
 ;; frames that the debugger skips.
@@ -384,6 +385,8 @@
 Enter another debugger on next entry to eval, apply or funcall."
   (interactive)
   (setq debugger-step-after-exit t)
+  (setq debugger-jumping-flag t)
+  (add-hook 'post-command-hook 'debugger-reenable)
   (message "Proceeding, will debug on next eval or call.")
   (exit-recursive-edit))