diff options
| author | martin rudalics <rudalics@gmx.at> | 2021-09-06 12:48:07 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-06 12:48:07 +0200 |
| commit | 9680994d3a1a9d08a12927be4aacb8b631f6b046 (patch) | |
| tree | b56ad609f66a182daf1cefa3ba0d4559c4b2f5d9 /lisp/emacs-lisp/debug.el | |
| parent | 63618ba27aeb41c1b0348ac5ef7104bc02b97dc7 (diff) | |
| download | emacs-9680994d3a1a9d08a12927be4aacb8b631f6b046.tar.gz emacs-9680994d3a1a9d08a12927be4aacb8b631f6b046.tar.bz2 emacs-9680994d3a1a9d08a12927be4aacb8b631f6b046.zip | |
Restore the debugging window size more reliably
* lisp/emacs-lisp/debug.el (debug): Restore the debugging window
size more reliably (bug#12921).
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 2007f79634d..f76ae3fe69f 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -266,16 +266,15 @@ the debugger will not be entered." (window-frame debugger-previous-window))) `((previous-window . ,debugger-previous-window)))))) (setq debugger-window (selected-window)) - (if (eq debugger-previous-window debugger-window) - (when debugger-jumping-flag - ;; Try to restore previous height of debugger - ;; window. - (condition-case nil - (window-resize - debugger-window - (- debugger-previous-window-height - (window-total-height debugger-window))) - (error nil))) + (when debugger-jumping-flag + ;; Try to restore previous height of debugger + ;; window. + (condition-case nil + (window-resize + debugger-window + (- debugger-previous-window-height + (window-total-height debugger-window))) + (error nil)) (setq debugger-previous-window debugger-window)) (message "") (let ((standard-output nil) |