From 9c0415e0b53bdb7cf39753d2c7edddcffd31a361 Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 07:18:36 +0000 Subject: (edebug-enter): Don't call the current function being debugged in pre-command-hook or post-command-hook. --- lisp/emacs-lisp/edebug.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/emacs-lisp/edebug.el') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index a5acfd5087..9061751082 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 -- cgit v1.2.3