procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore the debugging window size more reliably

Browse source 
* lisp/emacs-lisp/debug.el (debug): Restore the debugging window
size more reliably (bug#12921).
This commit is contained in:
martin rudalics 2021-09-06 12:48:07 +02:00 • committed by Lars Ingebrigtsen
parent 63618ba27a
commit 9680994d3a
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)