mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

In debug record height of debugger window also when debugger will be back (Bug#8789).

Browse source 
* emacs-lisp/debug.el (debug): Record height of debugger window
also when debugger will be back (Bug#8789).
This commit is contained in:
Martin Rudalics 2012-10-19 11:28:50 +02:00
parent d282492862
commit fb0104dabe
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/debug.el
View file

@ -267,15 +267,17 @@ first will be printed into the backtrace buffer."
;; Make sure we unbind buffer-read-only in the right buffer.
(save-excursion
(recursive-edit))))
(when (and (window-live-p debugger-window)
(eq (window-buffer debugger-window) debugger-buffer))
;; Record height of debugger window.
(setq debugger-previous-window-height
(window-total-size debugger-window)))
(if debugger-will-be-back
;; Restore previous window configuration (Bug#12623).
(set-window-configuration window-configuration)
(when (and (window-live-p debugger-window)
(eq (window-buffer debugger-window) debugger-buffer))
(progn
;; Record height of debugger window.
(setq debugger-previous-window-height
(window-total-size debugger-window))
;; Unshow debugger-buffer.
(quit-restore-window debugger-window debugger-bury-or-kill)
;; Restore current buffer (Bug#12502).