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. |