From: Martin Rudalics Date: Fri, 19 Oct 2012 09:28:50 +0000 (+0200) Subject: In debug record height of debugger window also when debugger will be back (Bug#8789). X-Git-Tag: emacs-24.2.90~216 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb0104dabe260892805790f36df7d5968ee1f53d;p=emacs.git In debug record height of debugger window also when debugger will be back (Bug#8789). * emacs-lisp/debug.el (debug): Record height of debugger window also when debugger will be back (Bug#8789). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 46336af6e71..f9d9ad4b03d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-19 Martin Rudalics + + * emacs-lisp/debug.el (debug): Record height of debugger window + also when debugger will be back (Bug#8789). + 2012-10-18 Chong Yidong * progmodes/gdb-mi.el (gdb-display-buffer-other-frame-action): diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index c30ccf3315e..c04e68c0cfa 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -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).