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 | 9c0415e0b53bdb7cf39753d2c7edddcffd31a361 (patch) | |
| tree | dfc651de0d0d12eb85fadd390ceba9f0989efc8f /lisp/emacs-lisp/edebug.el | |
| parent | 3222085ea28076287dd7ea8d661ec4aafb9b007a (diff) | |
| download | emacs-9c0415e0b53bdb7cf39753d2c7edddcffd31a361.tar.gz emacs-9c0415e0b53bdb7cf39753d2c7edddcffd31a361.tar.bz2 emacs-9c0415e0b53bdb7cf39753d2c7edddcffd31a361.zip | |
(edebug-enter): Don't call the current function being debugged in
pre-command-hook or post-command-hook.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -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 |