From: Stefan Monnier Date: Mon, 6 Jun 2005 19:47:05 +0000 (+0000) Subject: (debug): Don't bury the buffer unless it's in a dedicated window. X-Git-Tag: emacs-pretest-22.0.90~9239 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=532c188a19153c4517be3bde16890ffb2f4b0441;p=emacs.git (debug): Don't bury the buffer unless it's in a dedicated window. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c0c26c09fe..d6cfeab3d08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-06-06 Stefan Monnier + * emacs-lisp/debug.el (debug): Don't bury the buffer unless it's in + a dedicated window. + * international/latexenc.el (latexenc-find-file-coding-system): Undo part of last patch, to turn off a compiler warning. diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 7d7e066b4e8..30e6f3480cc 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -221,12 +221,18 @@ first will be printed into the backtrace buffer." ;; Still visible despite the save-window-excursion? Maybe it ;; it's in a pop-up frame. It would be annoying to delete and ;; recreate it every time the debugger stops, so instead we'll - ;; erase it and hide it but keep it alive. + ;; erase it (and maybe hide it) but keep it alive. (with-current-buffer debugger-buffer (erase-buffer) (fundamental-mode) (with-selected-window (get-buffer-window debugger-buffer 0) - (bury-buffer))) + (when (window-dedicated-p (selected-window)) + ;; If the window is not dedicated, burying the buffer + ;; will mean that the frame created for it is left + ;; around showing smoe random buffer, and next time we + ;; pop to the debugger buffer we'll create yet + ;; another frame. + (bury-buffer)))) (kill-buffer debugger-buffer)) (set-match-data debugger-outer-match-data))) ;; Put into effect the modified values of these variables