diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-06-06 12:29:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-06-06 12:29:57 +0000 |
| commit | 77932668c2ee5354465982e966cf9584cafc1d2c (patch) | |
| tree | 2a58a6fa77f20578da6f359c3236dc4dafc0378a /lisp/emacs-lisp | |
| parent | abed526746f69a5524df703f362d12f348b236ad (diff) | |
| download | emacs-77932668c2ee5354465982e966cf9584cafc1d2c.tar.gz emacs-77932668c2ee5354465982e966cf9584cafc1d2c.tar.bz2 emacs-77932668c2ee5354465982e966cf9584cafc1d2c.zip | |
(debugger-window): New variable.
(debug): Use debugger-window if it is set and still alive.
Record debugger-window for next entry.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 2149cba8720..7d7e066b4e8 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -97,6 +97,11 @@ This is to optimize `debugger-make-xrefs'.") This variable is used by `debugger-jump', `debugger-step-through', and `debugger-reenable' to temporarily disable debug-on-entry.") +(defvar debugger-window nil + "If non-nil, the last window used by the debugger for its buffer. +The next call to the debugger reuses the same window, if it is still live. +That case would normally occur when the window is in a separate frame.") + ;;;###autoload (setq debugger 'debug) ;;;###autoload @@ -178,7 +183,13 @@ first will be printed into the backtrace buffer." ;; Place an extra debug-on-exit for macro's. (when (eq 'lambda (car-safe (cadr (backtrace-frame 4)))) (backtrace-debug 5 t))) - (pop-to-buffer debugger-buffer) + (if (and debugger-window + (window-live-p debugger-window)) + (progn + (set-window-buffer debugger-window debugger-buffer) + (select-window debugger-window)) + (pop-to-buffer debugger-buffer)) + (setq debugger-window (selected-window)) (debugger-mode) (debugger-setup-buffer debugger-args) (when noninteractive |