diff options
| -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." | |||
| 1165 | ;; Reset edebug-mode to the initial mode. | 1165 | ;; Reset edebug-mode to the initial mode. |
| 1166 | (setq edebug-mode edebug-initial-mode)) | 1166 | (setq edebug-mode edebug-initial-mode)) |
| 1167 | (let* ((edebug-entered t) | 1167 | (let* ((edebug-entered t) |
| 1168 | (pre-command-hook (if (memq edebug-func pre-command-hook) | ||
| 1169 | nil pre-command-hook)) | ||
| 1170 | (post-command-hook (if (memq edebug-func post-command-hook) | ||
| 1171 | nil post-command-hook)) | ||
| 1168 | (edebug-data (get edebug-func 'edebug)) | 1172 | (edebug-data (get edebug-func 'edebug)) |
| 1169 | ;; pull out parts of the edebug-data | 1173 | ;; pull out parts of the edebug-data |
| 1170 | (edebug-func-mark (car edebug-data)) ; mark at function start | 1174 | (edebug-func-mark (car edebug-data)) ; mark at function start |