1 |
;;; debug.el --- debuggers and related commands for Emacs |
;;; debug.el --- debuggers and related commands for Emacs |
2 |
|
|
3 |
;; Copyright (C) 1985, 1986, 1994, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 1986, 1994, 2001, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Maintainer: FSF |
;; Maintainer: FSF |
6 |
;; Keywords: lisp, tools, maint |
;; Keywords: lisp, tools, maint |
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) |
181 |
(delete-region middlestart (point))) |
(delete-region middlestart (point))) |
182 |
(insert "...\n")) |
(insert "...\n")) |
183 |
(goto-char (point-min)) |
(goto-char (point-min)) |
184 |
(message (buffer-string)) |
(message "%s" (buffer-string)) |
185 |
(kill-emacs)) |
(kill-emacs)) |
186 |
(if (eq (car debugger-args) 'debug) |
(if (eq (car debugger-args) 'debug) |
187 |
;; Skip the frames for backtrace-debug, byte-code, and debug. |
;; Skip the frames for backtrace-debug, byte-code, and debug. |
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) |
733 |
|
|
734 |
(provide 'debug) |
(provide 'debug) |
735 |
|
|
736 |
|
;;; arch-tag: b6ec7047-f801-4103-9c63-d69322db9d3b |
737 |
;;; debug.el ends here |
;;; debug.el ends here |