diff options
| author | Brian Fox <bfox@gnu.org> | 1993-09-21 07:18:36 +0000 |
|---|---|---|
| committer | Brian Fox <bfox@gnu.org> | 1993-09-21 07:18:36 +0000 |
| commit | 2b46691861740889f8fc0a751943c43e80c04c0a (patch) | |
| tree | 41a7d6b2ca1db63d885c512fe43ba87d349fa00f /lisp/emacs-lisp | |
| parent | 3f6a352d5799ab2698b11481af823cd709a73cbc (diff) | |
| download | emacs-2b46691861740889f8fc0a751943c43e80c04c0a.tar.gz | |
(edebug-enter): Don't call the current function being debugged in
pre-command-hook or post-command-hook.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index a5acfd50875..9061751082d 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1165,6 +1165,10 @@ result of BODY." ;; Reset edebug-mode to the initial mode. (setq edebug-mode edebug-initial-mode)) (let* ((edebug-entered t) + (pre-command-hook (if (memq edebug-func pre-command-hook) + nil pre-command-hook)) + (post-command-hook (if (memq edebug-func post-command-hook) + nil post-command-hook)) (edebug-data (get edebug-func 'edebug)) ;; pull out parts of the edebug-data (edebug-func-mark (car edebug-data)) ; mark at function start |