From 26da6259819380fc571dd7d0d0151832406979e6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 24 Jun 2019 21:42:23 +0200 Subject: [PATCH] Fix #1509: failure to resize certain popups --- core/autoload/ui.el | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/core/autoload/ui.el b/core/autoload/ui.el index 9953070f4..5825e902f 100644 --- a/core/autoload/ui.el +++ b/core/autoload/ui.el @@ -114,22 +114,14 @@ windows (unlike `doom/window-maximize-buffer') Activate again to undo." (assq ?_ register-alist)) (ignore (ignore-errors (jump-to-register ?_))) (window-configuration-to-register ?_) - (if (window-dedicated-p) - ;; `window-resize' and `window-max-delta' don't respect - ;; `ignore-window-parameters', so we gotta force it to. - (cl-letf* ((old-window-resize (symbol-function #'window-resize)) - (old-window-max-delta (symbol-function #'window-max-delta)) - ((symbol-function #'window-resize) - (lambda (window delta &optional horizontal _ignore pixelwise) - (funcall old-window-resize window delta horizontal - t pixelwise))) - ((symbol-function #'window-max-delta) - (lambda (&optional window horizontal _ignore trail noup nodown pixelwise) - (funcall old-window-max-delta window horizontal t - trail noup nodown pixelwise)))) - (maximize-window)) - (maximize-window)) - t))) + (let ((dedicated-p (window-dedicated-p))) + (unwind-protect + (progn + (when dedicated-p + (set-window-dedicated-p nil nil)) + (maximize-window)) + (set-window-dedicated-p nil dedicated-p)) + t)))) ;;;###autoload (defun doom/window-maximize-horizontally ()