(debugger-step-through): Make sure that stepping into the debugger's

code is not possible.
(debugger-jumping-flag): Docstring update.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9473a68ecaad3395516210e3f2e89ad183e606b2..bceac3d75970ca39fec4a6ee8c0346dce7085c03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-08  Lute Kamstra  <lute@gnu.org>
+
+       * emacs-lisp/debug.el (debugger-step-through): Make sure that
+       stepping into the debugger's code is not possible.
+       (debugger-jumping-flag): Docstring update.
+
 2005-03-08  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-embed.el (calc-do-embedded): Reset mode line when

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 67836215da39bfe3add2fa87a0921e9b03deb4c2..fc665cb973f989b3e12fcb3633a86b5234821050 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -94,7 +94,8 @@ This is to optimize `debugger-make-xrefs'.")
 
 (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 @@ That buffer should be current already."
 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))