diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2012-10-19 11:28:50 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2012-10-19 11:28:50 +0200 |
| commit | fb0104dabe260892805790f36df7d5968ee1f53d (patch) | |
| tree | 428486d853de51a218dfc251e304f7fbffa39829 /lisp/emacs-lisp | |
| parent | d282492862879e50bcbb8d10510da4a7a7f6eb4c (diff) | |
| download | emacs-fb0104dabe260892805790f36df7d5968ee1f53d.tar.gz emacs-fb0104dabe260892805790f36df7d5968ee1f53d.tar.bz2 emacs-fb0104dabe260892805790f36df7d5968ee1f53d.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 8 |
1 files changed, 5 insertions, 3 deletions
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). |