Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 19930:1e0f347ee021
(edebug-enter): Save, and bind to nil,
overriding-local-map and overriding-terminal-local-map.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Sep 1997 03:29:47 +0000 |
| parents | 43149745d126 |
| children | 0fc1437e7427 |
comparison
equal
deleted
inserted
replaced
| 19929:0ccbd9bdcd8f | 19930:1e0f347ee021 |
|---|---|
| 2230 (defvar edebug-next-execution-mode nil) ; Use once instead of initial mode. | 2230 (defvar edebug-next-execution-mode nil) ; Use once instead of initial mode. |
| 2231 | 2231 |
| 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 |
| 2238 (defvar cl-lexical-debug) ;; Defined in cl.el | 2241 (defvar cl-lexical-debug) ;; Defined in cl.el |
| 2239 | 2242 |
| 2290 (debug-on-quit edebug-on-quit) | 2293 (debug-on-quit edebug-on-quit) |
| 2291 | 2294 |
| 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) |
| 2298 (edebug-outside-post-command-hook post-command-hook)) | 2305 (edebug-outside-post-command-hook post-command-hook)) |
| 2299 (unwind-protect | 2306 (unwind-protect |
| 2300 (let (;; Don't keep reading from an executing kbd macro | 2307 (let (;; Don't keep reading from an executing kbd macro |
| 2301 ;; within edebug unless edebug-continue-kbd-macro is | 2308 ;; within edebug unless edebug-continue-kbd-macro is |
| 2302 ;; non-nil. Again, local binding may not be best. | 2309 ;; non-nil. Again, local binding may not be best. |
| 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)) |
| 2312 | |
| 2313 ;; Don't get confused by the user's keymap changes. | |
| 2314 (overriding-local-map nil) | |
| 2315 (overriding-terminal-local-map nil) | |
| 2305 | 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 |
| 2309 ;; a hook function is instrumented - to avoid infinite loop. | 2320 ;; a hook function is instrumented - to avoid infinite loop. |