diff options
| author | Richard M. Stallman | 1997-09-15 03:29:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-15 03:29:47 +0000 |
| commit | 17b76fbd4c9b5ce720c2f21bf8846fd0207449a5 (patch) | |
| tree | 8f54304853e6883c435094aba2b739c35cc41d63 | |
| parent | f37bbf08858a55f6fff15798cded0eafd3652c2e (diff) | |
| download | emacs-17b76fbd4c9b5ce720c2f21bf8846fd0207449a5.tar.gz emacs-17b76fbd4c9b5ce720c2f21bf8846fd0207449a5.zip | |
(edebug-enter): Save, and bind to nil,
overriding-local-map and overriding-terminal-local-map.
| -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 |