diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 442f2cdbf0c..431b15272e7 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -2232,6 +2232,9 @@ expressions; a `progn' form will be returned enclosing these forms." | |||
| 2232 | (defvar edebug-outside-debug-on-error) ; the value of debug-on-error outside | 2232 | (defvar edebug-outside-debug-on-error) ; the value of debug-on-error outside |
| 2233 | (defvar edebug-outside-debug-on-quit) ; the value of debug-on-quit outside | 2233 | (defvar edebug-outside-debug-on-quit) ; the value of debug-on-quit outside |
| 2234 | 2234 | ||
| 2235 | (defvar edebug-outside-overriding-local-map) | ||
| 2236 | (defvar edebug-outside-overriding-terminal-local-map) | ||
| 2237 | |||
| 2235 | (defvar edebug-outside-pre-command-hook) | 2238 | (defvar edebug-outside-pre-command-hook) |
| 2236 | (defvar edebug-outside-post-command-hook) | 2239 | (defvar edebug-outside-post-command-hook) |
| 2237 | 2240 | ||
| @@ -2292,6 +2295,10 @@ error is signaled again." | |||
| 2292 | ;; Lexical bindings must be uncompiled for this to work. | 2295 | ;; Lexical bindings must be uncompiled for this to work. |
| 2293 | (cl-lexical-debug t) | 2296 | (cl-lexical-debug t) |
| 2294 | 2297 | ||
| 2298 | (edebug-outside-overriding-local-map overriding-local-map) | ||
| 2299 | (edebug-outside-overriding-terminal-local-map | ||
| 2300 | overriding-terminal-local-map) | ||
| 2301 | |||
| 2295 | ;; Save the outside value of executing macro. (here??) | 2302 | ;; Save the outside value of executing macro. (here??) |
| 2296 | (edebug-outside-executing-macro executing-kbd-macro) | 2303 | (edebug-outside-executing-macro executing-kbd-macro) |
| 2297 | (edebug-outside-pre-command-hook pre-command-hook) | 2304 | (edebug-outside-pre-command-hook pre-command-hook) |
| @@ -2303,6 +2310,10 @@ error is signaled again." | |||
| 2303 | (executing-kbd-macro | 2310 | (executing-kbd-macro |
| 2304 | (if edebug-continue-kbd-macro executing-kbd-macro)) | 2311 | (if edebug-continue-kbd-macro executing-kbd-macro)) |
| 2305 | 2312 | ||
| 2313 | ;; Don't get confused by the user's keymap changes. | ||
| 2314 | (overriding-local-map nil) | ||
| 2315 | (overriding-terminal-local-map nil) | ||
| 2316 | |||
| 2306 | (signal-hook-function 'edebug-signal) | 2317 | (signal-hook-function 'edebug-signal) |
| 2307 | 2318 | ||
| 2308 | ;; Disable command hooks. This is essential when | 2319 | ;; Disable command hooks. This is essential when |