# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748595916 0
# Node ID fd03ee47c0b218e4b11ea840e5ce95374d8d7626
# Parent  f3808bb8a9939f521327acbd8eab4ffbabfb2641
(edebug-enter): Don't call the current function being debugged in
pre-command-hook or post-command-hook.

diff -r f3808bb8a993 -r fd03ee47c0b2 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Tue Sep 21 07:12:36 1993 +0000
+++ b/lisp/emacs-lisp/edebug.el	Tue Sep 21 07:18:36 1993 +0000
@@ -1165,6 +1165,10 @@
       ;; 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