[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9680994: Restore the debugging window size more reliably
From: |
Lars Ingebrigtsen |
Subject: |
master 9680994: Restore the debugging window size more reliably |
Date: |
Mon, 6 Sep 2021 06:48:14 -0400 (EDT) |
branch: master
commit 9680994d3a1a9d08a12927be4aacb8b631f6b046
Author: martin rudalics <rudalics@gmx.at>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Restore the debugging window size more reliably
* lisp/emacs-lisp/debug.el (debug): Restore the debugging window
size more reliably (bug#12921).
---
lisp/emacs-lisp/debug.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 2007f79..f76ae3f 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9680994: Restore the debugging window size more reliably,
Lars Ingebrigtsen <=