/[emacs]/emacs/lisp/emacs-lisp/debug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/debug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55.2.1 by miles, Fri Apr 4 06:20:16 2003 UTC revision 1.55.2.2 by miles, Tue Oct 14 23:32:21 2003 UTC
# Line 1  Line 1 
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
# Line 128  first will be printed into the backtrace Line 128  first will be printed into the backtrace
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)
# Line 145  first will be printed into the backtrace Line 146  first will be printed into the backtrace
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
# Line 161  first will be printed into the backtrace Line 162  first will be printed into the backtrace
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)
# Line 178  first will be printed into the backtrace Line 181  first will be printed into the backtrace
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.
# Line 214  first will be printed into the backtrace Line 217  first will be printed into the backtrace
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)
# Line 487  Applies to the frame whose line point is Line 491  Applies to the frame whose line point is
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)
# Line 500  Applies to the frame whose line point is Line 503  Applies to the frame whose line point is
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
# Line 509  Applies to the frame whose line point is Line 522  Applies to the frame whose line point is
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)
# Line 721  If argument is nil or an empty string, c Line 733  If argument is nil or an empty string, c
733    
734  (provide 'debug)  (provide 'debug)
735    
736    ;;; arch-tag: b6ec7047-f801-4103-9c63-d69322db9d3b
737  ;;; debug.el ends here  ;;; debug.el ends here

Legend:
Removed from v.1.55.2.1  
changed lines
  Added in v.1.55.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26