128 |
(debugger-outer-track-mouse track-mouse) |
(debugger-outer-track-mouse track-mouse) |
129 |
(debugger-outer-last-command last-command) |
(debugger-outer-last-command last-command) |
130 |
(debugger-outer-this-command this-command) |
(debugger-outer-this-command this-command) |
131 |
(debugger-outer-unread-command-char unread-command-char) |
(debugger-outer-unread-command-char |
132 |
|
(with-no-warnings unread-command-char)) |
133 |
(debugger-outer-unread-command-events unread-command-events) |
(debugger-outer-unread-command-events unread-command-events) |
134 |
(debugger-outer-unread-post-input-method-events |
(debugger-outer-unread-post-input-method-events |
135 |
unread-post-input-method-events) |
unread-post-input-method-events) |
146 |
(setq overriding-terminal-local-map nil) |
(setq overriding-terminal-local-map nil) |
147 |
;; Don't let these magic variables affect the debugger itself. |
;; Don't let these magic variables affect the debugger itself. |
148 |
(let ((last-command nil) this-command track-mouse |
(let ((last-command nil) this-command track-mouse |
149 |
(unread-command-char -1) unread-command-events |
unread-command-events |
150 |
unread-post-input-method-events |
unread-post-input-method-events |
151 |
last-input-event last-command-event last-nonmenu-event |
last-input-event last-command-event last-nonmenu-event |
152 |
last-event-frame |
last-event-frame |
162 |
(unwind-protect |
(unwind-protect |
163 |
(save-excursion |
(save-excursion |
164 |
(save-window-excursion |
(save-window-excursion |
165 |
|
(with-no-warnings |
166 |
|
(setq unread-command-char -1)) |
167 |
(pop-to-buffer debugger-buffer) |
(pop-to-buffer debugger-buffer) |
168 |
(debugger-mode) |
(debugger-mode) |
169 |
(debugger-setup-buffer debugger-args) |
(debugger-setup-buffer debugger-args) |
217 |
(setq track-mouse debugger-outer-track-mouse) |
(setq track-mouse debugger-outer-track-mouse) |
218 |
(setq last-command debugger-outer-last-command) |
(setq last-command debugger-outer-last-command) |
219 |
(setq this-command debugger-outer-this-command) |
(setq this-command debugger-outer-this-command) |
220 |
(setq unread-command-char debugger-outer-unread-command-char) |
(with-no-warnings |
221 |
|
(setq unread-command-char debugger-outer-unread-command-char)) |
222 |
(setq unread-command-events debugger-outer-unread-command-events) |
(setq unread-command-events debugger-outer-unread-command-events) |
223 |
(setq unread-post-input-method-events |
(setq unread-post-input-method-events |
224 |
debugger-outer-unread-post-input-method-events) |
debugger-outer-unread-post-input-method-events) |
491 |
(track-mouse debugger-outer-track-mouse) |
(track-mouse debugger-outer-track-mouse) |
492 |
(last-command debugger-outer-last-command) |
(last-command debugger-outer-last-command) |
493 |
(this-command debugger-outer-this-command) |
(this-command debugger-outer-this-command) |
|
(unread-command-char debugger-outer-unread-command-char) |
|
494 |
(unread-command-events debugger-outer-unread-command-events) |
(unread-command-events debugger-outer-unread-command-events) |
495 |
(unread-post-input-method-events |
(unread-post-input-method-events |
496 |
debugger-outer-unread-post-input-method-events) |
debugger-outer-unread-post-input-method-events) |
503 |
(inhibit-redisplay debugger-outer-inhibit-redisplay) |
(inhibit-redisplay debugger-outer-inhibit-redisplay) |
504 |
(cursor-in-echo-area debugger-outer-cursor-in-echo-area)) |
(cursor-in-echo-area debugger-outer-cursor-in-echo-area)) |
505 |
(set-match-data debugger-outer-match-data) |
(set-match-data debugger-outer-match-data) |
506 |
(prog1 (progn ,@body) |
(prog1 |
507 |
|
(let ((save-ucc (with-no-warnings unread-command-char))) |
508 |
|
(unwind-protect |
509 |
|
(progn |
510 |
|
(with-no-warnings |
511 |
|
(setq unread-command-char debugger-outer-unread-command-char)) |
512 |
|
(prog1 (progn ,@body) |
513 |
|
(with-no-warnings |
514 |
|
(setq debugger-outer-unread-command-char unread-command-char)))) |
515 |
|
(with-no-warnings |
516 |
|
(setq unread-command-char save-ucc)))) |
517 |
(setq debugger-outer-match-data (match-data)) |
(setq debugger-outer-match-data (match-data)) |
518 |
(setq debugger-outer-load-read-function load-read-function) |
(setq debugger-outer-load-read-function load-read-function) |
519 |
(setq debugger-outer-overriding-terminal-local-map |
(setq debugger-outer-overriding-terminal-local-map |
522 |
(setq debugger-outer-track-mouse track-mouse) |
(setq debugger-outer-track-mouse track-mouse) |
523 |
(setq debugger-outer-last-command last-command) |
(setq debugger-outer-last-command last-command) |
524 |
(setq debugger-outer-this-command this-command) |
(setq debugger-outer-this-command this-command) |
|
(setq debugger-outer-unread-command-char unread-command-char) |
|
525 |
(setq debugger-outer-unread-command-events unread-command-events) |
(setq debugger-outer-unread-command-events unread-command-events) |
526 |
(setq debugger-outer-unread-post-input-method-events |
(setq debugger-outer-unread-post-input-method-events |
527 |
unread-post-input-method-events) |
unread-post-input-method-events) |