Mercurial > emacs

comparison lisp/emacs-lisp/debug.el @ 24741:00ef85c8a0ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(debugger-outer-inhibit-redisplay): New variable. (debug): Bind and use debugger-outer-inhibit-redisplay. Bind inhibit-redisplay to nil. (debugger-env-macro): Treat inhibit-redisplay like other outside vars.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 May 1999 04:20:59 +0000
parents d46353824322
children 8523249aaee3
comparison
equal deleted inserted replaced
24740:a112021381c5 24741:00ef85c8a0ff
70 (defvar debugger-outer-last-command-event) 70 (defvar debugger-outer-last-command-event)
71 (defvar debugger-outer-last-nonmenu-event) 71 (defvar debugger-outer-last-nonmenu-event)
72 (defvar debugger-outer-last-event-frame) 72 (defvar debugger-outer-last-event-frame)
73 (defvar debugger-outer-standard-input) 73 (defvar debugger-outer-standard-input)
74 (defvar debugger-outer-standard-output) 74 (defvar debugger-outer-standard-output)
75 (defvar debugger-outer-inhibit-redisplay)
75 (defvar debugger-outer-cursor-in-echo-area) 76 (defvar debugger-outer-cursor-in-echo-area)
76 77
77 ;;;###autoload 78 ;;;###autoload
78 (setq debugger 'debug) 79 (setq debugger 'debug)
79 ;;;###autoload 80 ;;;###autoload
114 (debugger-outer-last-command-event last-command-event) 115 (debugger-outer-last-command-event last-command-event)
115 (debugger-outer-last-nonmenu-event last-nonmenu-event) 116 (debugger-outer-last-nonmenu-event last-nonmenu-event)
116 (debugger-outer-last-event-frame last-event-frame) 117 (debugger-outer-last-event-frame last-event-frame)
117 (debugger-outer-standard-input standard-input) 118 (debugger-outer-standard-input standard-input)
118 (debugger-outer-standard-output standard-output) 119 (debugger-outer-standard-output standard-output)
120 (debugger-outer-inhibit-redisplay inhibit-redisplay)
119 (debugger-outer-cursor-in-echo-area cursor-in-echo-area)) 121 (debugger-outer-cursor-in-echo-area cursor-in-echo-area))
120 ;; Set this instead of binding it, so that `q' 122 ;; Set this instead of binding it, so that `q'
121 ;; will not restore it. 123 ;; will not restore it.
122 (setq overriding-terminal-local-map nil) 124 (setq overriding-terminal-local-map nil)
123 ;; Don't let these magic variables affect the debugger itself. 125 ;; Don't let these magic variables affect the debugger itself.
131 ;; If we are inside a minibuffer, allow nesting 133 ;; If we are inside a minibuffer, allow nesting
132 ;; so that we don't get an error from the `e' command. 134 ;; so that we don't get an error from the `e' command.
133 (enable-recursive-minibuffers 135 (enable-recursive-minibuffers
134 (or enable-recursive-minibuffers (> (minibuffer-depth) 0))) 136 (or enable-recursive-minibuffers (> (minibuffer-depth) 0)))
135 (standard-input t) (standard-output t) 137 (standard-input t) (standard-output t)
138 inhibit-redisplay
136 (cursor-in-echo-area nil)) 139 (cursor-in-echo-area nil))
137 (unwind-protect 140 (unwind-protect
138 (save-excursion 141 (save-excursion
139 (save-window-excursion 142 (save-window-excursion
140 (pop-to-buffer debugger-buffer) 143 (pop-to-buffer debugger-buffer)
226 (setq last-command-event debugger-outer-last-command-event) 229 (setq last-command-event debugger-outer-last-command-event)
227 (setq last-nonmenu-event debugger-outer-last-nonmenu-event) 230 (setq last-nonmenu-event debugger-outer-last-nonmenu-event)
228 (setq last-event-frame debugger-outer-last-event-frame) 231 (setq last-event-frame debugger-outer-last-event-frame)
229 (setq standard-input debugger-outer-standard-input) 232 (setq standard-input debugger-outer-standard-input)
230 (setq standard-output debugger-outer-standard-output) 233 (setq standard-output debugger-outer-standard-output)
234 (setq inhibit-redisplay debugger-outer-inhibit-redisplay)
231 (setq cursor-in-echo-area debugger-outer-cursor-in-echo-area) 235 (setq cursor-in-echo-area debugger-outer-cursor-in-echo-area)
232 (setq debug-on-next-call debugger-step-after-exit) 236 (setq debug-on-next-call debugger-step-after-exit)
233 debugger-value)) 237 debugger-value))
234 238
235 (defun debugger-step-through () 239 (defun debugger-step-through ()
349 (save-excursion 353 (save-excursion
350 (if (null (buffer-name debugger-old-buffer)) 354 (if (null (buffer-name debugger-old-buffer))
351 ;; old buffer deleted 355 ;; old buffer deleted
352 (setq debugger-old-buffer (current-buffer))) 356 (setq debugger-old-buffer (current-buffer)))
353 (set-buffer debugger-old-buffer) 357 (set-buffer debugger-old-buffer)
354 (let ((track-mouse debugger-outer-track-mouse) 358 (let ((load-read-function debugger-outer-load-read-function)
359 (overriding-terminal-local-map
360 debugger-outer-overriding-terminal-local-map)
361 (overriding-local-map debugger-outer-overriding-local-map)
362 (track-mouse debugger-outer-track-mouse)
355 (last-command debugger-outer-last-command) 363 (last-command debugger-outer-last-command)
356 (this-command debugger-outer-this-command) 364 (this-command debugger-outer-this-command)
357 (unread-command-char debugger-outer-unread-command-char) 365 (unread-command-char debugger-outer-unread-command-char)
358 (unread-command-events debugger-outer-unread-command-events) 366 (unread-command-events debugger-outer-unread-command-events)
359 (unread-post-input-method-events 367 (unread-post-input-method-events
362 (last-command-event debugger-outer-last-command-event) 370 (last-command-event debugger-outer-last-command-event)
363 (last-nonmenu-event debugger-outer-last-nonmenu-event) 371 (last-nonmenu-event debugger-outer-last-nonmenu-event)
364 (last-event-frame debugger-outer-last-event-frame) 372 (last-event-frame debugger-outer-last-event-frame)
365 (standard-input debugger-outer-standard-input) 373 (standard-input debugger-outer-standard-input)
366 (standard-output debugger-outer-standard-output) 374 (standard-output debugger-outer-standard-output)
367 (cursor-in-echo-area debugger-outer-cursor-in-echo-area) 375 (inhibit-redisplay debugger-outer-inhibit-redisplay)
368 (overriding-local-map debugger-outer-overriding-local-map) 376 (cursor-in-echo-area debugger-outer-cursor-in-echo-area))
369 (overriding-terminal-local-map
370 debugger-outer-overriding-terminal-local-map)
371 (load-read-function debugger-outer-load-read-function))
372 (set-match-data debugger-outer-match-data) 377 (set-match-data debugger-outer-match-data)
373 (prog1 (progn (,@ body)) 378 (prog1 (progn (,@ body))
374 (setq debugger-outer-match-data (match-data)) 379 (setq debugger-outer-match-data (match-data))
375 (setq debugger-outer-load-read-function load-read-function) 380 (setq debugger-outer-load-read-function load-read-function)
376 (setq debugger-outer-overriding-terminal-local-map 381 (setq debugger-outer-overriding-terminal-local-map
387 (setq debugger-outer-last-command-event last-command-event) 392 (setq debugger-outer-last-command-event last-command-event)
388 (setq debugger-outer-last-nonmenu-event last-nonmenu-event) 393 (setq debugger-outer-last-nonmenu-event last-nonmenu-event)
389 (setq debugger-outer-last-event-frame last-event-frame) 394 (setq debugger-outer-last-event-frame last-event-frame)
390 (setq debugger-outer-standard-input standard-input) 395 (setq debugger-outer-standard-input standard-input)
391 (setq debugger-outer-standard-output standard-output) 396 (setq debugger-outer-standard-output standard-output)
397 (setq debugger-outer-inhibit-redisplay inhibit-redisplay)
392 (setq debugger-outer-cursor-in-echo-area cursor-in-echo-area) 398 (setq debugger-outer-cursor-in-echo-area cursor-in-echo-area)
393 ))))) 399 )))))
394 400
395 (defun debugger-eval-expression (exp) 401 (defun debugger-eval-expression (exp)
396 "Eval an expression, in an environment like that outside the debugger." 402 "Eval an expression, in an environment like that outside the debugger."