Mercurial > emacs
comparison lisp/emacs-lisp/debug.el @ 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 | 2e5cfcc774b9 |
| children | f7baf4c9472b 29e773288013 |
comparison
equal
deleted
inserted
replaced
| 60518:d77b4a9173ea | 60519:2433720b755c |
|---|---|
| 92 (defvar inhibit-debug-on-entry nil | 92 (defvar inhibit-debug-on-entry nil |
| 93 "Non-nil means that debug-on-entry is disabled.") | 93 "Non-nil means that debug-on-entry is disabled.") |
| 94 | 94 |
| 95 (defvar debugger-jumping-flag nil | 95 (defvar debugger-jumping-flag nil |
| 96 "Non-nil means that debug-on-entry is disabled. | 96 "Non-nil means that debug-on-entry is disabled. |
| 97 This variable is used by `debugger-jump' and `debugger-reenable'.") | 97 This variable is used by `debugger-jump', `debugger-step-through', |
| 98 and `debugger-reenable' to temporarily disable debug-on-entry.") | |
| 98 | 99 |
| 99 ;; When you change this, you may also need to change the number of | 100 ;; When you change this, you may also need to change the number of |
| 100 ;; frames that the debugger skips. | 101 ;; frames that the debugger skips. |
| 101 (defconst debug-entry-code | 102 (defconst debug-entry-code |
| 102 '(if (or inhibit-debug-on-entry debugger-jumping-flag) | 103 '(if (or inhibit-debug-on-entry debugger-jumping-flag) |
| 382 (defun debugger-step-through () | 383 (defun debugger-step-through () |
| 383 "Proceed, stepping through subexpressions of this expression. | 384 "Proceed, stepping through subexpressions of this expression. |
| 384 Enter another debugger on next entry to eval, apply or funcall." | 385 Enter another debugger on next entry to eval, apply or funcall." |
| 385 (interactive) | 386 (interactive) |
| 386 (setq debugger-step-after-exit t) | 387 (setq debugger-step-after-exit t) |
| 388 (setq debugger-jumping-flag t) | |
| 389 (add-hook 'post-command-hook 'debugger-reenable) | |
| 387 (message "Proceeding, will debug on next eval or call.") | 390 (message "Proceeding, will debug on next eval or call.") |
| 388 (exit-recursive-edit)) | 391 (exit-recursive-edit)) |
| 389 | 392 |
| 390 (defun debugger-continue () | 393 (defun debugger-continue () |
| 391 "Continue, evaluating this expression without stopping." | 394 "Continue, evaluating this expression without stopping." |